XinYu_RZMES/.svn/pristine/80/80e0584db928ed13d66413cae994b42af215f7ba.svn-base

<?xml version="1.0" encoding='UTF-8'?>
<queryMap desc="SHIPPING">


	<query id="UIJ010070.LOV.ShipCompCd.find" desc=" LOVResult_1 " fetchSize="10">
        <![CDATA[
SELECT SHIP_COMP_NM, SHIP_COMP_CD
FROM TBJ00_SHIP_COMP
WHERE 1 = 1
        ]]>
    </query>


    <query id="UIJ010070.LOV.DlivType.find" desc=" LOVResult_2 " fetchSize="10">
        <![CDATA[
SELECT SM_CFNM AS DLIV_TYPE_DESC, SM_CD AS DLIV_TYPE
FROM TBZ00_COMMCD
WHERE 1 = 1
AND LG_CD = 'A01012'
AND USED_YN = 'Y'
ORDER BY CD_SEQ
        ]]>
    </query>


    <query id="UIJ010070.LOV.CustCd.find" desc=" LOVResult_3 " fetchSize="10">
        <![CDATA[
SELECT CUST_CD||' '||CUST_NM AS CUST_NM, CUST_CD
FROM TBZ00_CUSTOMER A
WHERE 1 = 1
AND A.REC_TP = '01'
/**********************************************
AND EXISTS (SELECT 'X'
            FROM TBH02_COIL_COMM B
            WHERE 1 = 1
            AND B.CUR_PROG_CD = 'SFF'
            AND B.SHIP_PROG_CD IN ('07','08')
            AND B.CUST_CD = A.CUST_CD)
***********************************************/
ORDER BY A.CUST_NM
        ]]>
    </query>


    <query id="UIJ010070.LOV.DestPcd.find" desc=" LOVResult_4 " >
        <![CDATA[
SELECT SM_CFNM AS DEST_PCD_DESC, SM_CD AS DEST_PCD
FROM TBZ00_COMMCD
WHERE 1 = 1
AND LG_CD  = 'A01009'
AND CD_SEQ = 1
ORDER BY 1
        ]]>
    </query>



    <query id="UIJ010070.LOV.SpecAbbsym.find" desc=" LOVResult_5 " fetchSize="10">
        <![CDATA[
SELECT SM_CFNM AS SPEC_ABBSYM_DESC, SM_CD AS SPEC_ABBSYM
FROM TBZ00_COMMCD
WHERE 1 = 1
AND LG_CD = 'B01001'
AND USED_YN = 'Y'
ORDER BY CD_SEQ
        ]]>
    </query>


<!--
Begin Commented by Mr.GONG 2009.03.24
    <query id="UIJ010060.LOV.InvNo.find" desc=" LOVResult_4 " fetchSize="10">
        <![CDATA[
SELECT B.INV_NO, B.DLIV_DIRNO, A.SHIP_PROG_CD, A.SHIP_DIRNO, B.INV_PRNCNT
FROM TBJ01_SHIP_DIR A, TBJ01_DLIV_DIR B
WHERE A.SHIP_DIRNO = B.SHIP_DIRNO
AND A.SHIP_PROG_CD IN ('07','08')
ORDER BY B.INV_NO
        ]]>
    </query>
End Commented by Mr.GONG 2009.03.24
-->


    <query id="UIJ010070.ShippingResults.Select" desc="  " fetchSize="10">
		<![CDATA[
SELECT A.SHIP_PROG_CD
     , A.COIL_NO
     , A.ORD_NO
     , A.ORD_SEQ
     , A.CUST_CD
     , A.ORDCUST_CD
     , C.GET_ON_PCD
     , C.DEST_PCD
     , C.EXLV_LINE_CD
     , C.GET_OFF_PCD
     , C.DEPARTURE_CD
     , C.ARRIVAL_CD
     , A.COIL_THK
     , A.COIL_WTH
     , A.COIL_LEN
     , DECODE(NVL(A.ACT_WGT,0),0,A.CAL_WGT,A.ACT_WGT) AS ACT_WGT
     , A.COIL_OUTDIA
     , C.DLIV_TP
     , C.SHIP_COMP_CD
     , C.SHIP_COMP_NM
     , A.TRANS_CAR_NO
     , C.TRAIN_DLIVNO
     , A.DLIV_DIRNO
     , A.SHIP_DIRNO
     , B.ORD_DEVLMT_DATE
     , A.SHIP_INVNO
     , A.CUR_LOAD_LOC
     , TO_CHAR(TO_DATE(A.SHIP_DIR_DTIME,'YYYYMMDDHH24MISS'),'YYYY-MM-DD HH24:MI:SS') AS SHIP_DIR_DTIME
     , C.DLIV_TP_DESC
     , C.DEST_PCD_DESC
     , C.EXLV_LINE_CD_DESC
     , C.DEPARTURE_CD_DESC
     , C.ARRIVAL_CD_DESC
     , D0.CUST_NM
     , D1.CUST_NM AS ORDCUST_NM
     , A.COIL_STAT
     , A.CUR_PROG_CD
FROM TBH02_COIL_COMM A, TBA01_ORD_LINE B
   ,(SELECT X.*, Y.SHIP_COMP_NM
          , Z0.SM_CFNM AS DLIV_TP_DESC
          , Z1.SM_CFNM AS DEST_PCD_DESC
          , Z2.SM_CFNM AS EXLV_LINE_CD_DESC
          , Z3.SM_CFNM AS DEPARTURE_CD_DESC
          , Z4.SM_CFNM AS ARRIVAL_CD_DESC
     FROM TBJ01_DLIV_DIR X
        , TBJ00_SHIP_COMP Y
        ,(SELECT * FROM TBZ00_COMMCD WHERE LG_CD  = 'A01012'               ) Z0
        ,(SELECT * FROM TBZ00_COMMCD WHERE LG_CD  = 'A01009' AND CD_SEQ = 1) Z1
        ,(SELECT * FROM TBZ00_COMMCD WHERE LG_CD  = 'A01009' AND CD_SEQ = 2) Z2
        ,(SELECT * FROM TBZ00_COMMCD WHERE LG_CD  = 'A01009' AND CD_SEQ = 3) Z3
        ,(SELECT * FROM TBZ00_COMMCD WHERE LG_CD  = 'A01009' AND CD_SEQ = 3) Z4
     WHERE 1 = 1
     AND X.SHIP_COMP_CD = Y.SHIP_COMP_CD(+)
     AND X.DLIV_TP = Z0.SM_CD(+)
     AND X.DEST_PCD = Z1.SM_CD(+)
     AND X.EXLV_LINE_CD = Z2.SM_CD(+)
     AND X.DEPARTURE_CD = Z3.SM_CD(+)
     AND X.ARRIVAL_CD = Z4.SM_CD(+)
     AND NVL(X.SHIP_COMP_CD,'*') LIKE :1||'%'
     AND NVL(X.DEST_PCD    ,'*') LIKE :2||'%'
     AND NVL(X.DLIV_TP     ,'*') LIKE :3||'%'
     AND X.SHIP_DIRNO BETWEEN :4||'0000' AND :5||'9999') C
   ,(SELECT * FROM TBZ00_CUSTOMER WHERE REC_TP = '01') D0  -- CUST_CD
   ,(SELECT * FROM TBZ00_CUSTOMER WHERE REC_TP = '02') D1  -- ORDCUST_CD
WHERE 1 = 1
AND A.COIL_STAT = '3'
AND A.CUR_PROG_CD = 'SFF'
AND A.ORD_NO = B.ORD_NO
AND A.ORD_SEQ = B.ORD_SEQ
AND A.DLIV_DIRNO = C.DLIV_DIRNO
AND A.CUST_CD = D0.CUST_CD(+)
AND A.ORDCUST_CD = D1.CUST_CD(+)
AND A.SHIP_DIRNO BETWEEN :6||'0000' AND :7||'9999'
AND A.SPEC_ABBSYM LIKE :8||'%'
AND NVL(A.COIL_THK,0) BETWEEN NVL( :9,0) AND NVL(:10,   999999)
AND NVL(A.COIL_WTH,0) BETWEEN NVL(:11,0) AND NVL(:12,   999999)
AND NVL(A.COIL_LEN,0) BETWEEN NVL(:13,0) AND NVL(:14,999999999)
AND NVL(A.CUST_CD     ,'*') LIKE :15||'%'
AND NVL(A.ORD_NO      ,'*') LIKE :16||'%'
AND NVL(A.ORD_SEQ     ,'*') LIKE :17||'%'
AND NVL(A.CUR_LOAD_LOC,'*') LIKE :18||'%'
/******************************************************************************************
:1        - ShipCompCd
:2        - DestPcd  (SELECT * FROM TBZ00_COMMCD   WHERE LG_CD  = 'A01009' AND CD_SEQ = 1)
:3        - DlivType (SELECT * FROM TBZ00_COMMCD   WHERE LG_CD  = 'A01012'               )
:4  ~ :5  - ShipDirDateFrom ~ ShipDirDateTo(YYYYMMDD0000 ~ YYYYMMDD9999)
:6  ~ :7  - ShipDirDateFrom ~ ShipDirDateTo(YYYYMMDD0000 ~ YYYYMMDD9999)
:8        - SpecAppsym
:9  ~ :10 - CoilThkFrom ~ CoilThkTo
:11 ~ :12 - CoilWthFrom ~ CoilWthTo
:13 ~ :14 - CoilLenFrom ~ CoilLenTo
:15       - CustCd
:16       - OrdNo
:17       - OrdSeq
:18       - CurLoadLoc
*******************************************************************************************/
		]]>
	</query>


    <query id="UIJ010070.ModifyCoilProgStatusOfCoils.Save" desc="  " fetchSize="10">
        <![CDATA[
UPDATE TBH02_COIL_COMM
SET COIL_STAT         = :1
  , CUR_PROG_CD       = :2
  , CUR_PROG_CD_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
  , CUR_PROG_CD_PGM   = :3
  , BEF_PROG_CD       = :4
  , BEF_PROG_CD_DTIME = :5
  , BEF_PROG_CD_PGM   = :6
  , TRNF_DTIME        = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
  , SHIP_INVNO        = :7
WHERE COIL_NO         = :8
        ]]>
    </query>


    <query id="UIJ010070.ModifyShipProgStatusOfCoils.Save" desc="  " fetchSize="10">
        <![CDATA[
UPDATE TBH02_COIL_COMM
SET SHIP_PROG_CD = :1
WHERE COIL_NO    = :2
        ]]>
    </query>


	<query id="UIJ010070.ModifyShipProgStatusOfShip.Save" desc="  " fetchSize="10">
        <![CDATA[
UPDATE TBJ01_SHIP_DIR
SET SHIP_PROG_CD = :1
WHERE SHIP_DIRNO = :2
		]]>
    </query>


    <query id="UIJ010070.InvoiceInfo.DeliverDir.Save" desc="  " fetchSize="10">
        <![CDATA[
UPDATE TBJ01_DLIV_DIR
SET INV_NO = :1
  , INV_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
  , INV_PRNCNT = NVL(INV_PRNCNT,0) + 1
WHERE DLIV_DIRNO = :2
        ]]>
    </query>


</queryMap>