[lDBSearchReceive] select f1.NO_RECEIVESLIP -- 故紙受入登録No ,to_char(f1.DT_RECEIVESLIP , 'yyyy/mm/dd') DT_RECEIVESLIP -- 受入日付 ,f1.DTS_YEAR -- 受入年 ,f1.DTS_MONTH -- 受入月 ,f1.DTS_DAY -- 受入日 ,f1.CD_SUPPLIER -- 仕入先コード ,f1.CD_SHIPMENT -- 荷送先コード ,f1.CD_WP -- 銘柄コード ,f1.CD_GRADE -- グレードコード ,f1.UNIT_PRICE_WP -- 受入単価 ,f1.WEIGHT_WP -- 受入重量 ,f1.MONEY_WP -- 受入金額 ,f1.PRICE_UNIT_FREIGHT -- 単位当たり運賃 ,f1.MONEY_WP_NO_FREIGHT -- 運賃 ,f1.RATE_TAX -- 消費税率 ,f1.TAX -- 運賃込み消費税額 ,f1.TAX_NO_FREIGHT -- 運賃別消費税 ,f1.TOTAL_MONEY_WP -- 受入総額 ,f1.TOTAL_MONEY_WP_NO_FREIGHT -- 運賃別受入総額 ,f1.CD_TRANSPORT -- 運送会社コード ,f1.CD_AREA -- 地域コード ,f1.FLG_DEMAND -- 請求済フラグ ,f1.DT_DEMAND -- 請求日 ,f1.CD_WP_SUPPLIER -- 仕入先銘柄コード ,f6.NAME_GRADE_SUPPLIER -- 仕入先銘柄名 ,f1.FLG_FCS -- FSC認証フラグ ,f1.FLG_DELETE -- 削除フラグ ,f1.ID_REGIST -- 登録端末ＩＤ ,f1.ID_UPDATE -- 修正端末ＩＤ ,f1.ID_DELETE -- 削除端末ＩＤ ,f1.DT_REGIST -- 登録日 ,f1.DT_UPDATE -- 修正日 ,f1.DT_DELETE -- 削除日 ,f2.NAME_SUPPLIER -- 仕入先名称 ,f2.ABBR_NAME -- 仕入先略称 ,f2.KANA_SUPPLIER -- 仕入先かな ,f3.NAME_SHIPMENT -- 荷送先名称 ,f3.ABBR_SHIPMENT -- 荷送先略称 ,f3.KANA_SHIPMENT -- 荷送先かな ,f4.NAME_GRADE NAME_WP -- 銘柄名称 ,f5.NAME_GREAD NAME_GRADE -- グレード名称 ,coalesce(f1.MONEY_WP, 0) - coalesce(f1.MONEY_WP_NO_FREIGHT, 0) MONEY_WP_WITHOUT_FARE --受入金額（単価*重量） ,f1.NOTE -- 備考 from T_RECEIVE_WP f1 --#24303 2022.06.16 MOD STT -- , M_SUPPLIER f2 -- , M_SHIPMENT f3 -- , M_WP f4 -- , M_GREAD f5 left join M_SUPPLIER f2 on (f1.CD_SUPPLIER = f2.CD_SUPPLIER and f1.DT_RECEIVESLIP >= f2.DT_START and f1.DT_RECEIVESLIP <= f2.DT_END) left join M_SHIPMENT f3 on (f1.CD_SHIPMENT = f3.CD_SHIPMENT and f1.DT_RECEIVESLIP >= f3.DT_START and f1.DT_RECEIVESLIP <= f3.DT_END) left join M_WP f4 on (f1.CD_WP = f4.CD_WP and f1.DT_RECEIVESLIP >= f4.DT_START and f1.DT_RECEIVESLIP <= f4.DT_END) left join M_GREAD f5 on (f1.CD_GRADE = f5.CD_GRADE) left join M_WP_SUPPLIER f6 on (f1.CD_WP_SUPPLIER = f6.CD_WP_SUPPLIER) --#24303 2022.06.16 MOD END --#24303 2022.06.16 MOD STT where 1 = 1 -- where f1.CD_SUPPLIER = f2.CD_SUPPLIER(+) -- and f1.DT_RECEIVESLIP >= f2.DT_START(+) -- and f1.DT_RECEIVESLIP <= f2.DT_END(+) -- and f1.CD_SHIPMENT = f3.CD_SHIPMENT(+) -- and f1.DT_RECEIVESLIP >= f3.DT_START(+) -- and f1.DT_RECEIVESLIP <= f3.DT_END(+) -- and f1.CD_WP = f4.CD_WP(+) -- and f1.DT_RECEIVESLIP >= f4.DT_START(+) -- and f1.DT_RECEIVESLIP <= f4.DT_END(+) -- and f1.CD_GRADE = f5.CD_GRADE(+) ----2014.03.25 M.Inoue start -- and f1.CD_WP_SUPPLIER = f6.CD_WP_SUPPLIER(+) ----2014.03.25 M.Inoue end --#24303 2022.06.16 MOD END and f1.FLG_DELETE = 0 and f1.DTS_YEAR = &2 and ((coalesce(&3 , 0) = 0) OR (f1.DTS_MONTH = &3)) and ((coalesce(&4 , 0) = 0) OR (f1.DTS_DAY = &4)) and ((coalesce(&5 , 0) = 0) OR (f1.CD_SUPPLIER = &5)) and ((coalesce(&6 , 0) = 0) OR (f1.CD_SHIPMENT = &6)) and ((coalesce(&7 , 0) = 0) OR (f1.CD_WP = &7)) order by f1.DT_RECEIVESLIP , f1.NO_RECEIVESLIP desc [lDBSelectReceive] select NO_RECEIVESLIP -- 故紙受入登録No ,to_char(DT_RECEIVESLIP , 'yyyymmdd') DT_RECEIVESLIP -- 受入日付 ,DTS_YEAR -- 受入年 ,DTS_MONTH -- 受入月 ,DTS_DAY -- 受入日 ,CD_SUPPLIER -- 仕入先コード ,CD_SHIPMENT -- 荷送先コード ,CD_WP -- 銘柄コード ,CD_GRADE -- グレードコード ,UNIT_PRICE_WP -- 受入単価 ,WEIGHT_WP -- 受入重量 ,MONEY_WP -- 受入金額 ,PRICE_UNIT_FREIGHT -- 単位当たり運賃 ,MONEY_WP_NO_FREIGHT -- 運賃 ,RATE_TAX -- 消費税率 ,TAX -- 運賃込み消費税額 ,TAX_NO_FREIGHT -- 運賃別消費税 ,TOTAL_MONEY_WP -- 受入総額 ,TOTAL_MONEY_WP_NO_FREIGHT -- 運賃別受入総額 ,CD_TRANSPORT -- 運送会社コード ,CD_AREA -- 地域コード ,FLG_DEMAND -- 請求済フラグ ,DT_DEMAND -- 請求日 ,CD_WP_SUPPLIER -- 仕入先銘柄コード ,FLG_FCS -- FSC認証フラグ ,FLG_DELETE -- 削除フラグ ,ID_REGIST -- 登録端末ＩＤ ,ID_UPDATE -- 修正端末ＩＤ ,ID_DELETE -- 削除端末ＩＤ ,DT_REGIST -- 登録日 ,DT_UPDATE -- 修正日 ,DT_DELETE -- 削除日 ,NOTE -- 備考 from T_RECEIVE_WP where FLG_DELETE = 0 and NO_RECEIVESLIP = &1 [lDBInsertReceive] insert into T_RECEIVE_WP( NO_RECEIVESLIP -- 故紙受入登録No ,DT_RECEIVESLIP -- 受入日付 ,DTS_YEAR -- 受入年 ,DTS_MONTH -- 受入月 ,DTS_DAY -- 受入日 ,CD_SUPPLIER -- 仕入先コード ,CD_SHIPMENT -- 荷送先コード ,CD_WP -- 銘柄コード ,CD_GRADE -- グレードコード ,UNIT_PRICE_WP -- 受入単価 ,WEIGHT_WP -- 受入重量 ,MONEY_WP -- 受入金額 ,PRICE_UNIT_FREIGHT -- 単位当たり運賃 ,MONEY_WP_NO_FREIGHT -- 運賃 ,RATE_TAX -- 消費税率 ,TAX -- 運賃込み消費税額 ,TAX_NO_FREIGHT -- 運賃別消費税 ,TOTAL_MONEY_WP -- 受入総額 ,TOTAL_MONEY_WP_NO_FREIGHT -- 運賃別受入総額 ,CD_TRANSPORT -- 運送会社コード ,CD_AREA -- 地域コード ,FLG_DEMAND -- 請求済フラグ ,DT_DEMAND -- 請求日 ,CD_WP_SUPPLIER -- 仕入先銘柄コード ,FLG_FCS -- FSC認証フラグ ,FLG_DELETE -- 削除フラグ ,ID_REGIST -- 登録端末ＩＤ ,ID_UPDATE -- 修正端末ＩＤ ,ID_DELETE -- 削除端末ＩＤ ,DT_REGIST -- 登録日 ,DT_UPDATE -- 修正日 ,DT_DELETE -- 削除日 ,NOTE -- 備考 ) values( &1 -- 故紙受入登録No ,to_date('&2' , 'yyyymmdd') -- 受入日付 ,&3 -- 受入年 ,&4 -- 受入月 ,&5 -- 受入日 ,&6 -- 仕入先コード ,&7 -- 荷送先コード ,&8 -- 銘柄コード ,&9 -- グレードコード ,&10 -- 受入単価 ,&11 -- 受入重量 ,&12 -- 受入金額 ,&13 -- 単位当たり運賃 ,&14 -- 運賃 ,&15 -- 消費税率 ,&16 -- 運賃込み消費税額 ,&17 -- 運賃別消費税 ,&18 -- 受入総額 ,&19 -- 運賃別受入総額 ,&20 -- 運送会社コード ,&21 -- 地域コード ,0 -- 請求済フラグ ,null -- 請求日 ,&23 -- 仕入先銘柄コード ,&24 -- FSC認証フラグ ,0 -- 削除フラグ ,'&22' -- 登録端末ＩＤ ,null -- 修正端末ＩＤ ,null -- 削除端末ＩＤ ,now() -- 登録日 ,null -- 修正日 ,null -- 削除日 ,'&25' -- 備考 ) [lDBUpdateReceive] update T_RECEIVE_WP set DT_RECEIVESLIP = to_date('&2' , 'yyyymmdd') -- 受入日付 ,DTS_YEAR = &3 -- 受入年 ,DTS_MONTH = &4 -- 受入月 ,DTS_DAY = &5 -- 受入日 ,CD_SUPPLIER = &6 -- 仕入先コード ,CD_SHIPMENT = &7 -- 荷送先コード ,CD_WP = &8 -- 銘柄コード ,CD_GRADE = &9 -- グレードコード ,UNIT_PRICE_WP = &10 -- 受入単価 ,WEIGHT_WP = &11 -- 受入重量 ,MONEY_WP = &12 -- 受入金額 ,PRICE_UNIT_FREIGHT = &13 -- 単位当たり運賃 ,MONEY_WP_NO_FREIGHT = &14 -- 運賃 ,RATE_TAX = &15 -- 消費税率 ,TAX = &16 -- 運賃込み消費税額 ,TAX_NO_FREIGHT = &17 -- 運賃別消費税 ,TOTAL_MONEY_WP = &18 -- 受入総額 ,TOTAL_MONEY_WP_NO_FREIGHT = &19 -- 運賃別受入総額 ,CD_TRANSPORT = &20 -- 運送会社コード ,CD_AREA = &21 -- 地域コード ,CD_WP_SUPPLIER = &23 -- 仕入先銘柄コード ,FLG_FCS = &24 -- FSC認証フラグ ,ID_UPDATE = '&22' -- 修正端末ＩＤ ,ID_DELETE = null -- 削除端末ＩＤ ,DT_UPDATE = now() -- 修正日 ,DT_DELETE = null -- 削除日 ,NOTE = '&25' -- 備考 where NO_RECEIVESLIP = &1 -- 故紙受入登録No [lDBDeleteReceive] update T_RECEIVE_WP set FLG_DEMAND = 0 -- 請求済フラグ ,FLG_DELETE = 1 -- 削除フラグ ,ID_DELETE = '&22' -- 削除端末ＩＤ ,DT_UPDATE = now() -- 修正日 where NO_RECEIVESLIP = &1 -- 故紙受入登録No [lDBSelectShipment_Wp] select PRICE_LAST -- 直近単価 from M_SHIPMENT_WP where FLG_DELETE = 0 and DT_START <= TO_DATE('&1', 'yyyymmdd') and DT_END >= TO_DATE('&1', 'yyyymmdd') and CD_SHIPMENT = '&2' and CD_WP = '&3' [lDBUpdateShipment_Wp] update M_SHIPMENT_WP set PRICE_LAST = '&4' -- 直近単価 ,DT_LAST_RECEIVE = to_date('&1' , 'yyyymmdd') -- 最終受入日 ,ID_UPDATE = '&5' -- 修正端末ＩＤ ,DT_UPDATE = sysdate -- 修正日 where DT_START <= TO_DATE('&1', 'yyyymmdd') and DT_END >= TO_DATE('&1', 'yyyymmdd') and CD_SHIPMENT = '&2' and CD_WP = '&3' [lDBSelectShipment] select CD_TRANSPORT -- 直近運送会社コード ,CD_AREA -- 直近地域コード from M_SHIPMENT where FLG_DELETE = 0 and DT_START <= TO_DATE('&1', 'yyyymmdd') and DT_END >= TO_DATE('&1', 'yyyymmdd') and CD_SHIPMENT = '&2' [lDBUpdateShipment] update M_SHIPMENT set CD_TRANSPORT = '&3' -- 直近運送会社コード ,CD_AREA = '&4' -- 直近地域コード ,ID_UPDATE = '&5' -- 修正端末ＩＤ ,DT_UPDATE = sysdate -- 修正日 where DT_START <= TO_DATE('&1', 'yyyymmdd') and DT_END >= TO_DATE('&1', 'yyyymmdd') and CD_SHIPMENT = '&2' [lsaveExecProcs] --#24384 2022.06.16 MOD STT --declare begin NSP_PacMain.changeReceiveWp( '&1', &2, &3 );end; select changeReceiveWp('&1', &2, &3) --#24384 2022.06.16 MOD END [lsaveExecUpdMonth] --#24386 2022.06.16 MOD STT --declare begin PRC_UPDATE_MONTHLY('&1','&2');end; select PRC_UPDATE_MONTHLY('&1', '&2') --#24386 2022.06.16 MOD END