1.27 --DESC:板坯设计保存的是临时的结果，故在充当的时候检查改订单有无正在板坯设计中 , (SELECT DISTINCT ORD_NO, ORD_SEQ FROM TBD01_SLABDN_RST UNION ALL SELECT DISTINCT ORD_NO, ORD_SEQ FROM TBD01_MATDN_RST) C ------------------------------------------------------------------------------- , (SELECT DISTINCT ORD_NO, ORD_SEQ, DSN_KIND FROM TBB01_ORD_INGR WHERE DSN_KIND = '1') K WHERE A.ORD_NO = B.ORD_NO(+) AND A.ORD_SEQ = B.ORD_SEQ(+) --------------------------------------------------------------------------------- --MODIFY BY SJW 090902 VERSION 1.8-->1.9 --DESC:板坯设计保存的是临时的结果，故在充当的时候检查改订单有无正在板坯设计中 AND A.ORD_NO = C.ORD_NO(+) AND A.ORD_SEQ = C.ORD_SEQ(+) AND A.ORD_NO = K.ORD_NO(+) AND A.ORD_SEQ = K.ORD_SEQ(+) --------------------------------------------------------------------------------- AND A.ORD_PROG_CD IN ('D', 'E') --------------------------------------------------------------- --modify by sjw 090901 version 1.7->1.8 --desc: 订单关闭条件已由达到上限关闭修改为订单下限关闭，所以取消余量为负控制 --AND A.ORD_REM_WGT > 0 ---------------------------------------------------------------- AND A.PRODNM_CD LIKE ? || '%' -- 产品代码 AND A.CUST_CD || '&' LIKE ? || '%' -- 客户代码 AND A.STL_GRD LIKE ? || '%' -- 钢号 AND A.ORD_NO LIKE ? || '%' -- 合同号 AND A.ORD_SEQ LIKE ? || '%' -- 订单号 AND A.RCVORD_CLF || '&' LIKE ? || '%' -- 接受订单区分 AND A.DEL_TO_DATE BETWEEN ? AND ? -- 交货日期（到达） AND A.ORD_USEAGE_CD || '&' LIKE ? || '%' -- 订单用途 AND A.SPEC_ABBSYM || '&' LIKE ? || '%' -- 标准号 AND A.ORD_THK BETWEEN ? AND ? -- 订单厚度 AND A.ORD_WTH BETWEEN ? AND ? -- 订单宽度 AND A.OVER_ORD IS NULL -- 订单关闭标志，上线初期使用，王黎添加 ORDER BY A.DEL_TO_DATE, A.ORD_NO, A.ORD_SEQ ]]> 1.7 --DESC:增加次品标识 ,'' TOT_GRD_CLF ------------------------------------------------ --------------------------------------------------------------------- --ADD BY TL 091215 --DESC: 增加禁发区分标志 ,'' REM_YARD --------------------------------------------------------------------- FROM TBG02_SLAB_COMM A, ( SELECT PROC_RATE FROM TBE01_PROC_RATE WHERE PROC_CD = 'R') C ,TBE02_ORD_PRC D WHERE A.CUR_PROG_CD = 'RRC' AND D.ORD_NO = ? AND D.ORD_SEQ = ? AND A.ORD_FL = '2' AND A.SLAB_STAT = '2' AND ('Y' <> NVL(?, 'N') OR A.STL_GRD = D.STL_GRD) -- 同牌号 UNION ALL SELECT A.OLD_SAMPL_NO DSP_NO, A.COIL_NO MAT_NO, -- 钢卷号 A.STL_GRD, -- 钢号 A.SPEC_STL_GRD, A.COIL_THK MAT_THK, -- 钢卷厚度 A.COIL_WTH MAT_WTH, -- 钢卷宽度 A.COIL_LEN MAT_LEN, -- 钢卷长度 A.ACT_WGT MAT_WGT, -- 钢卷重量 TO_CHAR(A.COIL_INDIA) MAT_INDIA, -- 钢卷内径 TO_CHAR(A.COIL_OUTDIA) MAT_OUTDIA, -- 钢卷外径 A.COIL_CRE_DTIME MAT_DTIME, -- 生产日期 XB_PACKAGE.GF_COMNNAME_FIND('E01010', A.NONORD_CAUSE_CD) NONORD_CAUSE_CD, -- 余材原因 A.CUR_LOAD_LOC, -- 现在堆置位置 NVL(A.SAMPL_PICK_YN, 'N') SAMPL_PICK_YN, A.ORG_ORD_NO, -- 最初合同号 A.ORG_ORD_SEQ, -- 最初订单号 A.ACT_WGT MAT_REP_WGT ,CASE WHEN NVL(A.COIL_WTH,0) = 0 OR NVL(A.COIL_OUTDIA,0) = 0 THEN '0' ELSE TO_CHAR(ROUND(A.COIL_OUTDIA/A.COIL_WTH,3)) END JKB ,'AR' MAT_TYPE --------------------------------------------------------------------- --ADD BY SJW 090830 1.6->1.7 --DESC:增加次品标识 ,CASE WHEN A.TOT_DEC_GRD IN ('3','4') THEN 'Y' ELSE 'N' END TOT_GRD_CLF --------------------------------------------------------------------- --------------------------------------------------------------------- --ADD BY TL 091215 --DESC: 增加禁发区分标志 ,DECODE(A.REM_YARD,'1','禁发火车','2','卷径比超宽','3','卷规格异常','4','卷外型异常','5','禁发',NULL) REM_YARD --------------------------------------------------------------------- FROM TBH02_COIL_COMM A ,TBA01_ORD_LINE D WHERE A.CUR_PROG_CD = 'SRC' AND A.ORD_FL = '2' AND A.QK_YN = DECODE(?,'清库合同','Y','N') AND D.ORD_NO = ? AND D.ORD_SEQ = ? AND ('Y' <> NVL(?, 'N') OR A.SPEC_STL_GRD = D.SPEC_STL_GRD) --AND A.COIL_STAT IN ('2','4') ------------------------------------------ --MODIFY BY SJW 090922 --DESC:取消预装车 AND A.COIL_STAT = '2' ------------------------------------------ AND A.OLD_SAMPL_NO IS NOT NULL AND A.DLIV_DIRNO IS NULL ) SELECT DISTINCT * FROM TBTEMP_MAT_INFO WHERE MAT_TYPE = ? ORDER BY STL_GRD,DSP_NO ]]>