'KP' AND T.PRD_TY <> 'HK')) --09为板加，08为热轧 AND NVL(B02MC.ORD_NO,' ') LIKE :1||'%' AND NVL(B02MC.CRET_PRINT_TP,'N') LIKE :2||'%' AND NVL(SUBSTR(B02MC.CRET_NO_DTIME,1,8),'00000101') >= NVL(:3,'00000101') AND NVL(SUBSTR(B02MC.CRET_NO_DTIME,1,8),'99991231') <= NVL(:4,'99991231') AND NVL(B02MCO.CAR_GP,' ') LIKE :5||'%' AND NVL(H02CC.DLIV_DIRNO,' ') LIKE :6||'%' AND NVL(B02MC.INV_NO,' ') LIKE :7||'%' AND NVL(B02MC.SPEC_STL_GRD , ' ') LIKE ?||'%' AND NVL(B02MC.SEND_TP,'N') = DECODE(? , 'ALL' , NVL(B02MC.SEND_TP,'N') , ?) and (CASE WHEN B02MC.IS_WRONG IS NULL THEN 'N' ELSE 'Y' END ) = ? --增加字段是否发送异常by pbs20161219,点击发送后异常的话再次查询屏蔽发送异常的质保书 ORDER BY B02MC.CRET_NO ]]> SELECT XB_PACKAGE.GF_CUSTOMER_FIND(T1.CUST_CD) CUST_CD -- 订货单位 ,XB_PACKAGE.GF_CUSTOMER_FIND(T1.ORDCUST_CD) ORDCUST_CD -- 收货单位 ,T1.ORD_NO -- 合同号 ,T1.PRDNM_CD --交货状态 ,NVL(T3.DDC_STL_GRD,T1.SPEC_STL_GRD) SPEC_STL_GRD --T1.SPEC_STL_GRD 牌号 ,NVL(T3.BUY_ABBSYM ,T1.SPEC_ABBSYM) SPEC_ABBSYM -- 标准 ,NVL(T3.PRODUCT_LX,DECODE(T1.ORD_USE_ALIAS, NULL , PKG_QUALITY_COMM.FIB040000('A01007' , T1.ORD_USE_TP , 'Z') , PKG_QUALITY_COMM.FIB040000('A02003' , T1.ORD_USE_ALIAS , 'Z'))) ORD_USE -- 产品名称 ,DECODE(T1.ORD_USE_ALIAS, NULL , PKG_QUALITY_COMM.FIB040000('A01007' , T1.ORD_USE_TP , 'E') , PKG_QUALITY_COMM.FIB040000('A02003' , T1.ORD_USE_ALIAS , 'E')) ORD_USE_EN -- 产品名称 ,T1.SHIP_DIRNO -- 发行指示编号 ,T1.CRET_NO -- 证明书编号 ,TO_CHAR(SYSDATE , 'YYYY-MM-DD HH24:MI') CRET_NO_DTIME -- 签发日期 ,TO_CHAR(TO_DATE(SUBSTR(T2.SHIP_DIR_DTIME,1,8), 'YYYYMMDD'),'YYYY-MM-DD') SHIP_DIR_DTIME -- 发货日期 ,NVL(XB_PACKAGE.GF_USER_FIND(T1.CRET_PRINT_ID),' ') USERID ,T1.INV_NO --明细号 ,'' LICENSENO ,T2.CAR_GP ,TJ.COIL_SUM_CNT ,TJ.COIL_SUM_WGT ,T1.PRDNM_CD ,T2.CAR_GP ,T1.CRET_NO_RMK ,T1.PIC1 ,T1.PIC2 ,T1.PIC3 ,T1.CRET_DESC FROM TBB02_MS_COM T1 , TBB02_MS_COIL T2 , TBA01_ORD_LINE T3, (SELECT T.CRET_NO ,TO_CHAR(SUM(T.COIL_WGT)/1000 , 'FM9999.000') COIL_SUM_WGT ,TO_CHAR(COUNT(1)) COIL_SUM_CNT FROM TBB02_MS_COIL T WHERE T.CRET_NO = ? GROUP BY T.CRET_NO ) TJ WHERE T1.CRET_NO = T2.CRET_NO AND T1.CRET_NO = TJ.CRET_NO AND T1.ORD_NO = T3.ORD_NO AND T1.ORD_SEQ = T3.ORD_SEQ AND ROWNUM = 1 SELECT DISTINCT A.OLD_SAMPL_NO ROW_FLAG --在DataRowList用于区分，必须 ,A.OLD_SAMPL_NO COIL_NO ,DECODE( UPPER(C.COMP_DETAIL) , 'CE' , 'CE' , 'PCM' , 'PCM' , 'CEV' , 'CEV' , 'CEQ' , 'CEQ', C.CHEM_CD) CHEM_CD -- ,TO_CHAR(B.CHEM_VAL,DECODE(LENGTH(TRUNC(B.CHEM_VAL)),'1','0','2','00','3','000')||'.'||SUBSTR(c.display_len,2,LENGTH(c.display_len)-1)) CHEM_VAL -- 成份值 ,ROUND(B.CHEM_VAL*C.DISPLAY_LEN) CHEM_VAL1 ,B.CHEM_VAL ,C.DISPLAY_LEN ,C.DISPLAY_SEQ ,C.COMP_YN ,SUBSTR(F.SLAB_NO,1,10) CHARGE_NO --A.CHARGE_NO ,NVL(T1.SPEC_STL_GRD,D.SPEC_STL_GRD) SPEC_STL_GRD ,A.COIL_THK ,A.COIL_WTH ,A.COIL_LEN ,TO_CHAR(A.COIL_WGT/1000) COIL_WGT ,'L' PROC_TP FROM TBB02_MS_COIL A, TBB02_WORK_INGR B, TBB01_SEQ_INGR C ,TBB02_MS_COM D,TBB01_ORD_INGR E,TBH02_COIL_COMM F,TBA01_ORD_LINE T1 WHERE A.CRET_NO = ? AND ((A.PROC_CD = 'JJ' AND A.CHARGE_NO = B.CHARGE_NO) OR (A.PROC_CD = 'CO' AND A.COIL_NO = B.CHARGE_NO)) AND A.PROC_CD = B.PROC_CD --AND (E.DSN_KIND = '1' OR E.DSN_KIND = '2') AND E.DSN_KIND = '2' AND F.TOT_DEC_GRD = '1' AND (F.MATLQLTY_DEC_GRD = '1' OR F.MATLQLTY_DEC_GRD = '0') AND A.COIL_NO = F.COIL_NO AND A.CHEM_SEQ = B.CHEM_SEQ AND B.CHEM_CD = C.CHEM_CD AND A.CRET_NO = D.CRET_NO AND D.ORD_NO = E.ORD_NO AND D.ORD_SEQ = E.ORD_SEQ AND D.ORD_NO = T1.ORD_NO AND D.ORD_SEQ =T1.ORD_SEQ AND E.CHEM_CD = B.CHEM_CD AND (E.CHEM_DEC_CD IS NULL OR E.CHEM_DEC_CD = 'B') ORDER BY A.OLD_SAMPL_NO , C.COMP_YN, C.DISPLAY_SEQ = NVL(?,'00000101') AND NVL(SUBSTR(MC.CRET_NO_DTIME,1,8),'99991231') <= NVL(?,'99991231') AND NVL(MP.CAR_GP,' ') LIKE ?||'%' AND NVL(MC.SHIP_DIRNO,' ') LIKE ?||'%' AND NVL(MC.INV_NO,' ') LIKE ?||'%' AND NVL(MC.SPEC_STL_GRD , ' ') LIKE ?||'%' AND NVL(MC.SEND_TP,'N') = DECODE(? , 'ALL' , NVL(MC.SEND_TP,'N') , ?) and (CASE WHEN MC.IS_WRONG IS NULL THEN 'N' ELSE 'Y' END ) = ? --增加字段是否发送异常by pbs20161219,点击发送后异常的话再次查询屏蔽发送异常的质保书 ORDER BY MC.CRET_NO ]]> = NVL(?,'00000101') AND NVL(SUBSTR(T1.CRET_NO_DTIME,1,8),'99991231') <= NVL(?,'99991231') --AND T1.CRET_NO_DTIME BETWEEN ? AND ? AND NVL(T3.CAR_GP,' ') LIKE ?||'%' AND NVL(T2.DLIV_DIRNO,' ') LIKE ?||'%' AND NVL(T1.INV_NO,' ') LIKE ?||'%' AND NVL(T1.SPEC_STL_GRD , ' ') LIKE ?||'%' AND NVL(T1.SEND_TP,'N') = DECODE(? , 'ALL' , NVL(T1.SEND_TP,'N') , ?) and (CASE WHEN T1.IS_WRONG IS NULL THEN 'N' ELSE 'Y' END ) = ? --增加字段是否发送异常by pbs20161219,点击发送后异常的话再次查询屏蔽发送异常的质保书 ORDER BY T1.CRET_NO ]]> = NVL(?,'00000101') AND NVL(SUBSTR(T1.CRET_NO_DTIME,1,8),'99991231') <= NVL(?,'99991231') --AND T1.CRET_NO_DTIME BETWEEN ? AND ? AND NVL(T3.CAR_GP,' ') LIKE ?||'%' AND NVL(T2.DLIV_DIRNO,' ') LIKE ?||'%' AND NVL(T1.INV_NO,' ') LIKE ?||'%' AND NVL(T1.SPEC_STL_GRD , ' ') LIKE ?||'%' AND NVL(T1.SEND_TP,'N') = DECODE(? , 'ALL' , NVL(T1.SEND_TP,'N') , ?) and (CASE WHEN T1.IS_WRONG IS NULL THEN 'N' ELSE 'Y' END ) = ? --增加字段是否发送异常by pbs20161219,点击发送后异常的话再次查询屏蔽发送异常的质保书 ORDER BY T1.CRET_NO ]]> = NVL(:3,'00000101') AND NVL(SUBSTR(B02MC.CRET_NO_DTIME,1,8),'99991231') <= NVL(:4,'99991231') AND NVL(B02MCO.CAR_GP,' ') LIKE :5||'%' AND NVL(H02CC.DLIV_DIRNO,' ') LIKE :6||'%' AND NVL(B02MC.INV_NO,' ') LIKE :7||'%' AND NVL(B02MC.SPEC_STL_GRD , ' ') LIKE ?||'%' AND NVL(B02MC.SEND_TP,'N') = DECODE(? , 'ALL' , NVL(B02MC.SEND_TP,'N') , ?) and (CASE WHEN B02MC.IS_WRONG IS NULL THEN 'N' ELSE 'Y' END ) = ? --增加字段是否发送异常by pbs20161219,点击发送后异常的话再次查询屏蔽发送异常的质保书 ORDER BY B02MC.CRET_NO ]]> SELECT XB_PACKAGE.GF_CUSTOMER_FIND(T1.CUST_CD) CUST_CD -- 订货单位 ,XB_PACKAGE.GF_CUSTOMER_FIND(T1.ORDCUST_CD) ORDCUST_CD -- 收货单位 ,T1.ORD_NO -- 合同号 ,T1.PRDNM_CD --交货状态 ,T1.SPEC_STL_GRD -- 牌号 ,T1.SPEC_ABBSYM -- 标准 ,DECODE(T1.ORD_USE_ALIAS, NULL , PKG_QUALITY_COMM.FIB040000('A01007' , T1.ORD_USE_TP , 'Z') , PKG_QUALITY_COMM.FIB040000('A02003' , T1.ORD_USE_ALIAS , 'Z')) ORD_USE -- 产品名称 ,DECODE(T1.ORD_USE_ALIAS, NULL , PKG_QUALITY_COMM.FIB040000('A01007' , T1.ORD_USE_TP , 'E') , PKG_QUALITY_COMM.FIB040000('A02003' , T1.ORD_USE_ALIAS , 'E')) ORD_USE_EN -- 产品名称 ,T1.SHIP_DIRNO -- 发行指示编号 ,T1.CRET_NO -- 证明书编号 ,TO_CHAR(SYSDATE , 'YYYY-MM-DD HH24:MI') CRET_NO_DTIME -- 签发日期 ,TO_CHAR(TO_DATE(SUBSTR(T2.SHIP_DIR_DTIME,1,8), 'YYYYMMDD'),'YYYY-MM-DD') SHIP_DIR_DTIME -- 发货日期 ,NVL(XB_PACKAGE.GF_USER_FIND(T1.CRET_PRINT_ID),' ') USERID ,T1.INV_NO --明细号 ,'' LICENSENO ,T2.CAR_GP ,TJ.COIL_SUM_CNT ,TJ.COIL_SUM_WGT ,T1.PRDNM_CD ,T2.CAR_GP ,T1.CRET_NO_RMK ,T1.PIC1 ,T1.PIC2 ,T1.PIC3 ,T1.CRET_DESC FROM TBB02_MS_COM T1 , TBB02_MS_COIL T2 , (SELECT T.CRET_NO ,TO_CHAR(SUM(T.COIL_WGT)/1000 , 'FM9999.000') COIL_SUM_WGT ,TO_CHAR(COUNT(1)) COIL_SUM_CNT FROM TBB02_MS_COIL T WHERE T.CRET_NO = ? GROUP BY T.CRET_NO ) TJ WHERE T1.CRET_NO = T2.CRET_NO AND T1.CRET_NO = TJ.CRET_NO AND ROWNUM = 1 SELECT DISTINCT A.OLD_SAMPL_NO ROW_FLAG --在DataRowList用于区分，必须 ,A.OLD_SAMPL_NO COIL_NO ,DECODE( UPPER(C.COMP_DETAIL) , 'CE' , 'CE' , 'PCM' , 'PCM' , 'CEV' , 'CEV' , 'CEQ' , 'CEQ', C.CHEM_CD) CHEM_CD ,ROUND(B.CHEM_VAL*C.DISPLAY_LEN) CHEM_VAL1 ,B.CHEM_VAL ,C.DISPLAY_LEN ,C.DISPLAY_SEQ ,C.COMP_YN ,A.CHARGE_NO ,D.SPEC_STL_GRD ,A.COIL_THK ,A.COIL_WTH ,A.COIL_LEN ,TO_CHAR(A.COIL_WGT/1000) COIL_WGT ,'L' PROC_TP FROM TBB02_MS_COIL A, TBB02_WORK_INGR B, TBB01_SEQ_INGR C ,TBB02_MS_COM D,TBB01_ORD_INGR E,TBH02_COIL_COMM_BJ F WHERE A.CRET_NO = ? AND ((A.PROC_CD = 'JJ' AND A.CHARGE_NO = B.CHARGE_NO) OR (A.PROC_CD = 'CO' AND A.COIL_NO = B.CHARGE_NO)) AND A.PROC_CD = B.PROC_CD AND E.DSN_KIND = '2' AND F.TOT_DEC_GRD = '1' AND (F.MATLQLTY_DEC_GRD = '1' OR F.MATLQLTY_DEC_GRD = '0') AND A.OLD_SAMPL_NO = F.OLD_SAMPL_NO AND A.CHEM_SEQ = B.CHEM_SEQ AND B.CHEM_CD = C.CHEM_CD AND A.CRET_NO = D.CRET_NO AND D.ORD_NO = E.ORD_NO AND D.ORD_SEQ = E.ORD_SEQ AND E.CHEM_CD = B.CHEM_CD AND (E.CHEM_DEC_CD IS NULL OR E.CHEM_DEC_CD = 'B') ORDER BY A.OLD_SAMPL_NO , C.COMP_YN, C.DISPLAY_SEQ SELECT T.ZBSXLS FROM ZL_ZBS_MAIN_DATA T WHERE T.ZBS_BH = ? FOR UPDATE UPDATE ZL_ZBS_MAIN_DATA T SET T.ZBSXLS = ? WHERE T.ZBS_BH = ? UPDATE TBB02_MS_COM T SET T.PRINT_CNT = T.PRINT_CNT+1 ,T.PRINT_ID = ? ,T.PRINT_DTIME = TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS') WHERE T.CRET_NO = ? UPDATE TBB02_MS_COM T SET T.IS_WRONG = 'Y' WHERE T.CRET_NO = ? UPDATE TBB03_MS_COM T SET T.IS_WRONG = 'Y' WHERE T.CRET_NO = ? UPDATE TBB02_MS_COM T SET T.SEND_TP = '' ,T.SEND_DTIME = '' WHERE T.CRET_NO = ? {call ZL_HOST_DCS03.BOOK_CHECK_HC(?,?,?,?)} {call ZL_HOST_DCS03.BOOK_CHECK_BJ(?,?,?,?)} {call ZL_HOST_DCS03.SEND_HOST_BOOK(?,?)} {call ZL_HOST_DCS03.SEND_BANJ_BOOK(?,?)} INSERT INTO ZL_ZBS_MAIN_DATA(ZBS_BH , SENDID , ZBSXLS) VALUES(? , '12120' , EMPTY_BLOB()) DELETE FROM ZL_ZBS_DETAIL_DATA WHERE ZBS_BH = ? DELETE FROM ZL_ZBS_MAIN_DATA WHERE ZBS_BH = ?