| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124 |
- <?xml version="1.0" encoding='UTF-8'?>
- <queryMap desc="正常流转申请">
-
- <query id="UIB030351_01.SELECT" desc="查询">
- <![CDATA[
- SELECT '' CHK
- ,T.SLAB_NO--板坯号
- ,DECODE(T.ASK_TP,'0','申请待确认','1','申请已确认','未申请') ASK_TP--流转申请
- ,T.ASK_CFM_ID---申请确认人
- ,T.ASK_CFM_DTIME---申请确认时间
- ,T.SLAB_INGR_DEC_DTIME
- ,DECODE(INSTR(NVL(B.LINE_PROC_CD,0),'L'),0,'否','是') LF
- ,DECODE(INSTR(NVL(B.LINE_PROC_CD,0),'R'),0,'否','是') RH
- ,DECODE(INSTR(NVL(B.LINE_PROC_CD,0),'V'),0,'否','是') VD
- ,T.ASK_CFM_JR_DESC--加热要求
- ,T.ASK_CFM_ZZ_DESC--轧制要求
- ,T.ASK_CFM_QY_DESC--取样要求
- ,T.ASK_CFM_RCL_DESC--热处理要求
- ,T.ASK_CFM_LGPD_DESC--炼钢判定及处理要求
- ,T.CFPDYQ --成品判定及处理要求
- ,T.ORD_NO--实际合同
- ,T.ORD_SEQ--实际订单
- ,T.STL_GRD--实际排号
- ,DECODE(T.BEF_STL_GRD , NULL , T.STL_GRD , T.BEF_STL_GRD) BEF_STL_GRD--原牌号
- ,DECODE(T.SLAB_INGR_DEC_GRD,'1','合格','0','合格','2','不合格','3','化废','4','申请流转中','5','流转取消','6','流转申请成功','未判定') SLAB_INGR_DEC_GRD--成分等级
- ,DECODE(T.SLAB_RT,'W','外销','H','热轧厂','Z','中板厂','P','厚板厂','') SLAB_RT--去向
- ,DECODE(T.EXTSHAPE_GRD,'1','合格','2','不合格','3','待判定','未判定') EXTSHAPE_GRD--外观等级
- ,DECODE(T.SF_METHOD,'A','全面精整','P','部分精整','N','无精整','D','待精整','E','精整完成','') SF_METHOD --精整
- ,DECODE(T.SLAB_STAT,'2','Y','N') SLAB_STAT--是否在库
- ,DECODE(T.ORD_FL,'1','订单材','2','余材') ORD_FL--余材区分
- ,(SELECT SM_CFNM FROM TBZ00_COMMCD WHERE SM_CD =T.CUR_PROG_CD) CUR_PROG_CD--进程状态
- ,DECODE(T.SLAB_INGR_DEC_KIND,'1','内控判定','2','炼钢放行(订单材)','3','正常流转','4','成品放行','5','改判','6','判次','7','强制合格','8','炼钢放行(余材)','9','待处理','10','化废','11','流转申请中','12','流转取消','13','申请已确认','') SLAB_INGR_DEC_KIND--判定方式
- ,DECODE(T.SLAB_THK||'*'||T.SLAB_WTH||'*'||T.SLAB_LEN , '**'
- ,NULL , T.SLAB_THK||'*'||T.SLAB_WTH||'*'||T.SLAB_LEN
- ) TWL--规格
- ,T.SLAB_WGT--重量
- FROM TBG02_SLAB_COMM T ,
- (Select 'J'||SUBSTR(A.CHARGE_MANA_NO ,2,9) SLAB_NO ,A.* FROM TBF01_SPEC_CHARGE A) B
- WHERE SUBSTR(T.SLAB_INGR_DEC_DTIME||'00000000' ,1,8 ) >= NVL(:1,'00000000')
- AND SUBSTR(T.SLAB_INGR_DEC_DTIME||'00000000' ,1,8 ) <= NVL(:2,'99999999')
- AND T.SLAB_NO LIKE :3||'%'
- AND T.ASK_TP ||'X' LIKE :4||'%'
- AND SUBSTR(T.SLAB_NO,0,10)=B.SLAB_NO(+)
- AND T.SLAB_STAT='2'
- ORDER BY T.SUB_SLAB_NO
- ]]>
- </query>
-
- <query id="UIB030351_01.UPDATE" desc="确认">
- <![CDATA[
- UPDATE TBG02_SLAB_COMM T
- SET T.ASK_CFM_ID = :1 --确认人
- ,T.ASK_CFM_JR_DESC = :2 --加热要求
- ,T.ASK_CFM_ZZ_DESC = :3 --轧制要求
- ,T.ASK_CFM_QY_DESC = :4 --取样要求
- ,T.ASK_CFM_RCL_DESC = :5 --热处理要求
- ,T.ASK_CFM_LGPD_DESC = :6 --炼钢判定及处理要求
- ,T.CFPDYQ = :7 --成品判定及处理要求
- ,T.ASK_CFM_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS') --确认日期
- ,T.ASK_TP = '1' --确认申请
- ,T.SLAB_INGR_DEC_GRD = '6' --确认申请
- ,T.SLAB_INGR_DEC_KIND = '13'
- WHERE (T.SLAB_NO = :8
- AND T.ASK_TP = '0' )
-
- ]]>
- </query>
-
- <query id="UIB030351_02.UPDATE" desc="取消确认">
- <![CDATA[
- UPDATE TBG02_SLAB_COMM T
- SET T.ASK_CFM_ID = '' --注备
- ,T.ASK_CFM_JR_DESC = '' --加热要求
- ,T.ASK_CFM_ZZ_DESC = '' --轧制要求
- ,T.ASK_CFM_QY_DESC = '' --取样要求
- ,T.ASK_CFM_RCL_DESC = '' --热处理要求
- ,T.ASK_CFM_LGPD_DESC = '' --炼钢判定及处理要求
- ,T.CFPDYQ = '' --成品判定及处理要求
- ,T.ASK_CFM_DTIME = '' --确认日期
- ,T.ASK_TP = '0'
- ,T.SLAB_INGR_DEC_GRD = '4'
- ,T.SLAB_INGR_DEC_KIND = '11'
- WHERE T.SLAB_NO = :1
- AND NVL(T.SLAB_INGR_DEC_GRD,'NULL') != '3' --未正常流转
- AND NVL(T.ASK_TP,'NULL') = '1' --确认申请
- AND T.SLAB_INGR_DEC_GRD = '6' --确认申请
- ]]>
- </query>
-
- <query id="UIB030351_02.SELECT" desc="上炉号">
- <![CDATA[
- SELECT T2.SLAB_NO FROM
- (SELECT T.* FROM TBG02_SLAB_COMM T
- WHERE SLAB_CUT_DTIME< ( SELECT SLAB_CUT_DTIME
- FROM TBG02_SLAB_COMM WHERE SLAB_NO = ?) ORDER BY NVL(T.SLAB_CUT_DTIME,'0') DESC) T2
- WHERE ROWNUM<2
- ]]>
- </query>
-
- <query id="UIB030351_03.SELECT" desc="下炉号">
- <![CDATA[
- SELECT SLAB_NO,SLAB_CUT_DTIME FROM
- (SELECT T.* FROM TBG02_SLAB_COMM T
- WHERE SLAB_CUT_DTIME> (SELECT SLAB_CUT_DTIME FROM TBG02_SLAB_COMM WHERE SLAB_NO =?) ORDER BY NVL(SLAB_CUT_DTIME,'0') ASC )
- WHERE ROWNUM<2
- ]]>
- </query>
-
- <query id="UIB030351_04.SELECT" desc="成分查询">
- <![CDATA[
- SELECT NVL(C.CHEM_CD1,C.CHEM_CD) CHEM_CD,C.CHEM_VAL
- FROM
- (SELECT A.CHEM_CD,
- DECODE(B.COMP_YN , 'Y' , B.COMP_CAL , B.CHEM_CD) CHEM_CD1,
- A.CHEM_VAL FROM
- (SELECT * FROM TBB02_WORK_INGR T1 , TBG02_CHARGE_COMM_D T2
- WHERE T1.CHARGE_NO = T2.CHARGE_NO AND T1.PROC_CD = 'JJ'
- AND T1.CHEM_SEQ = SUBSTR(T2.LST_INGR_CD ,3,2) AND T1.CHARGE_NO =SUBSTR(?,0,10)) A
- ,TBB01_SEQ_INGR B
- WHERE A.CHEM_CD=B.CHEM_CD(+)) C
- ]]>
- </query>
- </queryMap>
|
