| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394 |
- <?xml version="1.0" encoding='UTF-8'?>
- <queryMap desc="钢卷降级为余材处理">
- <query id="NIE031052.CoilComm.Select" desc="">
- <![CDATA[
- SELECT
- COIL_NO MAT_NO
- FROM TBH02_COIL_COMM
- WHERE COIL_NO IN (
- SELECT COLUMN_VALUE FROM TABLE(XB_PACKAGE.GF_TABSTR(?)))
- ORDER BY COIL_CRE_DTIME DESC
- ]]>
- </query>
- <query id="NIE031052.OrdSts.Select" desc="NIE012070 接口参数查询" fetchSize="10">
- <![CDATA[
- SELECT
- ORD_NO BEF_ORD_NO, -- 前合同号
- ORD_SEQ BEF_ORD_SEQ, -- 前订单号
- '' ORD_NO, -- 合同号
- '' ORD_SEQ, -- 订单号
- CUR_PROG_CD BEF_PROG_CD,-- 前进程代码
- 'SRC' PROG_CD, -- 进程代码
- 'AR' MAT_TYPE, -- 物料类型
- COIL_NO MAT_NO, -- 物料号
- ACT_WGT WGT, -- 重量
- 'NIE031052' PGMID
- FROM TBH02_COIL_COMM
- WHERE COIL_NO = ?
- ]]>
- </query>
- <query id="NIE031052.RepHis.Insert" desc="插入充当历史查询表" fetchSize="10">
- <![CDATA[
- INSERT INTO TBE04_REP_HIS
- (
- REP_TYP, REP_KND, REG_ID, MOD_PGM_ID, REG_DTIME,
- UPD_BEF_ORD_NO, UPD_BEF_ORD_SEQ, UPD_BEF_CUST_CD, MAT_TYPE,
- MAT_NO, UPD_AFT_ORD_NO, UPD_AFT_ORD_SEQ, UPD_AFT_CUST_CD
- )
- -- (1) 充当代码, 充当方法, 录入者, 变更程序ID, 录入时间,
- -- (2) 变更前合同号, 变更前订单号, 变更前客户代码, 物料类型,
- -- (3) 物料号, 变更后合同号, 变更后订单号, 变更后客户代码
- SELECT
- 'B', 'M', ?, 'NIE031052', TO_CHAR(SYSTIMESTAMP, 'YYYYMMDDHH24MISS'),
- A.ORD_NO, A.ORD_SEQ, A.CUST_CD, 'AR',
- B.COIL_NO, '', '', ''
- FROM TBE02_ORD_PRC A, TBH02_COIL_COMM B
- WHERE A.ORD_NO = B.ORD_NO
- AND A.ORD_SEQ = B.ORD_SEQ
- AND B.COIL_NO = ?
- ]]>
- </query>
- <query id="NIE031052.CoilComm.Update" desc="">
- <![CDATA[
- UPDATE TBH02_COIL_COMM A SET
- BEF_PROG_CD = CUR_PROG_CD,
- BEF_PROG_CD_PGM = CUR_PROG_CD_PGM,
- BEF_PROG_CD_DTIME = CUR_PROG_CD_DTIME,
- -----------------------------------------------------------------
- --MODIFY BY SJW :090825
- --DESC :降余材的时候记录前合同号和订单号
- ORG_ORD_NO = ORD_NO,
- ORG_ORD_SEQ = ORD_SEQ,
- BEF_SPEC_ABBSYM = SPEC_ABBSYM,
- ----------------------------------------------------------------
- CUR_PROG_CD = 'SRC',
- CUR_PROG_CD_PGM = 'NIE031052',
- CUR_PROG_CD_DTIME = TO_CHAR(SYSTIMESTAMP, 'YYYYMMDDHH24MISS'),
- ORD_FL = '2',
- NONORD_CAUSE_CD = ?,
- NONORD_OCR_DTIME = TO_CHAR(SYSTIMESTAMP, 'YYYYMMDDHH24MISS'),
- ORD_NO = '',
- ORD_SEQ = '',
- CUST_CD = '',
- ORDCUST_CD = '',
- ORD_USE_CD = '',
- SPEC_ABBSYM = '',
- DEVLMT_DTIME = '',
- DEST_CD = ''
- -- INGR_DEC_GRD = '',
- -- MATLQLTY_DEC_GRD = ''
- WHERE COIL_NO = ?
- ]]>
- </query>
- <query id="NIE031052.CoilCommD.Update" desc="">
- <![CDATA[
- UPDATE TBH02_COIL_COMM_D SET
- ORD_FL = '2'
- WHERE COIL_NO = ?
- ]]>
- </query>
- </queryMap>
|
