W15JSUN003, updated the sql for QC Order validation.

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

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

+
+CREATE OR REPLACE
+  FUNCTION FN_CHK_STA(
+      as_itemcode swms_to_awms.item_code%type,
+      as_lotno swms_to_awms.lot_no%type)
+    RETURN NUMBER
+  IS
+    ll_retval     NUMBER(1) := 1;
+    ll_retval_ctr NUMBER(1) := 0;
+  BEGIN
+    BEGIN
+      SELECT COUNT(1)
+      INTO ll_retval_ctr
+      FROM SWMS_TO_AWMS
+      WHERE SCHEDULE_STATUS= 'N'
+      AND item_code        = as_itemcode
+      AND lot_no           = as_lotno;
+      IF ll_retval_ctr     = 0 THEN
+        ll_retval         := 1;
+      END IF;
+    END;
+    IF ll_retval_ctr >= 1 THEN
+      BEGIN
+        SELECT COUNT(1)
+        INTO ll_retval_ctr
+        FROM SWMS_TO_AWMS S ,
+          wms_to_host W
+        WHERE S.SCHEDULE_STATUS= 'N'
+        AND S.REF_ID           = W.REF_ID
+        AND S.item_code        = as_itemcode
+        AND S.lot_no           = as_lotno;
+        IF ll_retval_ctr       = 0 THEN
+          ll_retval           := 0;
+        END IF;
+      END;
+    END IF;
+    RETURN (ll_retval);
+  END;
+  /
+
+
+insert into genmst (FLD_NAME,MOD_NAME,DESCR,ERROR_CD,BLANK_OPT,FLD_TYPE,FLD_MIN,FLD_MAX,VAL_TYPE,CHG_DATE,CHG_USER,CHG_TERM,SQL_INPUT,FLD_WIDTH,FORM_NO) 
+values ('REJECTION_CODE','W_QCORDER_NEW','Transaction in transist','VTQCPEND','N','C','SELECT (CASE WHEN FN_CHK_STA( ? , ? ) = 0 THEN 0 ELSE 1 END) FROM DUAL','1','Q',sysdate,
+'BASE','BASE',':0.item_code,:0.lot_no',3,'1');
+
+
+insert into messages (msg_no,msg_str,msg_descr,msg_type,chg_date,chg_user,chg_term) 
+values ('VTQCPEND','Transaction in transist','Transaction is still in transist.','E',sysdate,'BASE','BASE');
+
+
+
+
+