W15JSUN004 added W15jSUN004.sql file by Santosh

git-svn-id: http://15.206.35.175/svn/proteus/business-java/trunk@100004 ce508802-f39f-4f6c-b175-0d175dae99d5

webitm-wms/module-resource/sql/W15JSUN004.sql

+Insert into DISPARM (PRD_CODE,VAR_NAME,VAR_TYPE,VAR_VALUE,DESCR,VAR_SUBS,CHG_DATE,CHG_USER,CHG_TERM) values ('999999','HLD_LOCK_STAT_CHANGE','S','DM_LOCK,HLD_LOCK,DM_LOCK1','Awms Status Change request for hold locks',0,sysdate,'BASE','BASE');
+
+Insert into DISPARM (PRD_CODE,VAR_NAME,VAR_TYPE,VAR_VALUE,DESCR,VAR_SUBS,CHG_DATE,CHG_USER,CHG_TERM) values ('999999','DM_LOCKS','S','DM_LOCK','Awms damage locks',0,sysdate,'BASE',localhost.local');
+
+Insert into DISPARM (PRD_CODE,VAR_NAME,VAR_TYPE,VAR_VALUE,DESCR,VAR_SUBS,CHG_DATE,CHG_USER,CHG_TERM) values ('999999','HOLD_LOCKS','S','HLD_LOCK','Awms hold locks',0,sysdate,'BASE','localhost.local');
+
+CREATE OR REPLACE
+FUNCTION FN_CHECK_SWMS_TO_AWMS(LS_TRAN_ID IN INV_HOLD.TRAN_ID%TYPE, LS_REF_SER IN TRANSETUP.REF_SER%TYPE, LS_IN_OUT IN SWMS_TO_AWMS.IN_OUT%TYPE)
+RETURN NUMBER IS
+LS_CNT NUMBER;
+BEGIN
+  SELECT  COUNT(*) INTO LS_CNT 
+  FROM SWMS_TO_AWMS 
+  WHERE TRIM(REF_ID) = TRIM(LS_TRAN_ID)
+  AND TRIM(REF_SER) = TRIM(LS_REF_SER)
+  AND TRIM(IN_OUT) = TRIM(LS_IN_OUT);
+IF (LS_CNT  = 0) THEN
+  RETURN 0 ;
+ELSE
+  RETURN 1 ;
+END IF ;
+EXCEPTION
+WHEN NO_DATA_FOUND THEN
+DBMS_OUTPUT.PUT_LINE('EXCEPTIP'||LS_CNT);
+RETURN 0 ;
+END ;
\ No newline at end of file