/************************************/ /* 修正時の棚卸一覧データを取得 */ /************************************/ [lDBSearchAdustment] --2003.03.18 konishi 月単位の棚卸入力に変更 start select to_char(DTS_YEAR || '/' || DTS_MONTH ) STR_DT_ADJUSTMENT --対象年月日 , decode(DIV_WP_PRODUCT,0,'故紙','製品') STR_DIV_WP_PRODUCT --対象区分 , sum(STOCK_WEIGHT) SUM_WEIGHT --合計重量 , sum(STOCK_MONEY) SUM_MONEY --合計金額 -- , DTS_DAY --対象日 from T_ADJUSTMENT where DTS_YEAR = &1 and DTS_MONTH = &2 -- and DTS_DAY between nvl(&3 , 1) and nvl(&3 , 31) and DIV_WP_PRODUCT = &4 and FLG_DELETE = 0 and STOCK_WEIGHT is not null group by DTS_YEAR , DTS_MONTH , DIV_WP_PRODUCT , DTS_DAY order by 1 desc /* select to_char(DT_ADJUSTMENT , 'yyyy/mm/dd') STR_DT_ADJUSTMENT --対象年月日 , decode(DIV_WP_PRODUCT,0,'故紙','製品') STR_DIV_WP_PRODUCT --対象区分 , sum(WEIGHT) SUM_WEIGHT --合計重量 , sum(MONEY) SUM_MONEY --合計金額 , DTS_DAY --対象日 from T_ADJUSTMENT where DTS_YEAR = &1 and DTS_MONTH = &2 and DTS_DAY between nvl(&3 , 1) and nvl(&3 , 31) and DIV_WP_PRODUCT = &4 and FLG_DELETE = 0 group by DT_ADJUSTMENT , DIV_WP_PRODUCT , DTS_DAY order by 1 desc */ --2003.03.18 konishi 月単位の棚卸入力に変更 end /*****************************************/ /* 修正時の親画面用データを取得(故紙) */ /*****************************************/ [lDBSelectAdjustment] --2003.03.18 konishi 月単位の棚卸入力に変更 start select distinct m1.CD_SUPPLIER --仕入先コード , m2.NAME_SUPPLIER --仕入先名 , m1.CD_SHIPMENT --荷送先コード , m3.NAME_SHIPMENT --荷送先名 , m1.CD_WP --銘柄コード , m4.NAME_GRADE --銘柄名称 , m1.CD_GREAD --グレードコード , m5.NAME_GREAD --グレード名 , (case when(m1.FLG_ENTRY = 1)then(m1.UNIT_PRICE)when(m1.FLG_ENTRY is null)then(case when(m1.STOCK_UNIT_PRICE is null)then(m1.UNIT_PRICE)else(m1.STOCK_UNIT_PRICE)end)end) UNIT_PRICE --単価 , (case when(m1.FLG_ENTRY = 1)then(m1.WEIGHT)when(m1.FLG_ENTRY is null)then(case when(m1.STOCK_WEIGHT is null)then(m1.WEIGHT)else(m1.STOCK_WEIGHT)end)end) WEIGHT --重量 , (case when(m1.FLG_ENTRY = 1)then(m1.MONEY)when(m1.FLG_ENTRY is null)then(case when(m1.STOCK_MONEY is null)then(m1.MONEY)else(m1.STOCK_MONEY)end)end) MONEY --金額 , m1.NO_ADJUSTMENT --登録番号 , m1.DT_ADJUSTMENT --対象年月日 , m1.DTS_YEAR --対象年 , m1.DTS_MONTH --対象月 , m1.DTS_DAY --対象日 , m1.DT_REGIST --登録日 , m1.DT_UPDATE --修正日 , m1.DT_DELETE --削除日 , m1.ID_REGIST --登録端末ID , m1.ID_UPDATE --修正端末ID , m1.ID_DELETE --削除端末ID , m1.NOTE --備考 , FLG_ENTRY --仮登録フラグ from T_ADJUSTMENT m1 , M_SUPPLIER m2 , M_SHIPMENT m3 , M_WP m4 , M_GREAD m5 where m1.DTS_YEAR = &3 and ((&4 is null) or (m1.DTS_MONTH = &4)) and (( &5 is null ) or ( m1.DTS_DAY = &5 )) -- and &6 -- and m1.STOCK_WEIGHT is not null and m1.DIV_WP_PRODUCT = &2 and (( &7 is null ) or ( m1.FLG_ENTRY = &7 )) and ((&8 is null) or (m1.CD_SUPPLIER = &8)) and m1.FLG_DELETE = 0 and m1.CD_SUPPLIER = m2.CD_SUPPLIER and m1.CD_SHIPMENT = m3.CD_SHIPMENT and m1.CD_WP = m4.CD_WP and m1.CD_GREAD = m5.CD_GRADE and m2.DT_START <= to_date('&1') and m2.DT_END >= to_date('&1') and m3.DT_START <= to_date('&1') and m3.DT_END >= to_date('&1') ORDER BY m1.CD_SUPPLIER, m1.CD_SHIPMENT, m1.CD_WP /* select distinct m1.CD_SUPPLIER --仕入先コード , m2.NAME_SUPPLIER --仕入先名 , m1.CD_SHIPMENT --荷送先コード , m3.NAME_SHIPMENT --荷送先名 , m1.CD_WP --銘柄コード , m4.NAME_GRADE --銘柄名称 , m1.UNIT_PRICE --単価 , m1.WEIGHT --重量 , m1.CD_GREAD --グレードコード , m5.NAME_GREAD --グレード名 , m1.MONEY --金額 , m1.NO_ADJUSTMENT --登録番号 , m1.DT_ADJUSTMENT --対象年月日 , m1.DTS_YEAR --対象年 , m1.DTS_MONTH --対象月 , m1.DTS_DAY --対象日 , m1.DT_REGIST --登録日 , m1.DT_UPDATE --修正日 , m1.DT_DELETE --削除日 , m1.ID_REGIST --登録端末ID , m1.ID_UPDATE --修正端末ID , m1.ID_DELETE --削除端末ID , m1.NOTE --備考 from T_ADJUSTMENT m1 , M_SUPPLIER m2 , M_SHIPMENT m3 , M_WP m4 , M_GREAD m5 where DT_ADJUSTMENT = to_date(&1) and m1.DIV_WP_PRODUCT = &2 and m1.FLG_DELETE = 0 and m1.CD_SUPPLIER = m2.CD_SUPPLIER and m1.CD_SHIPMENT = m3.CD_SHIPMENT and m1.CD_WP = m4.CD_WP and m1.CD_GREAD = m5.CD_GRADE and m2.DT_START <= to_date(&1) and m2.DT_END >= to_date(&1) and m3.DT_START <= to_date(&1) and m3.DT_END >= to_date(&1) -- order by m1.DT_ADJUSTMENT desc ,m1.NO_ADJUSTMENT desc -- Insert 2003/06/07 M.Tsujinaka 昇順の並べ替え Staert ORDER BY m1.CD_SUPPLIER, m1.CD_SHIPMENT, m1.CD_WP -- Insert 2003/06/07 M.Tsujinaka 昇順の並べ替え End */ --2003.03.18 konishi 月単位の棚卸入力に変更 end /*****************************************/ /* 修正時の親画面用データを取得(製品) */ /*****************************************/ [lDBSelectAdustmentCustomer] select distinct m1.CD_CUSTOMER --得意先コード , m2.NAME_CUSTOMER --得意先名 , m1.CD_DERIVERY --納品先コード , m3.NAME_DERIVERY --納品先名 , m1.CD_PRODUCT --製品コード , m4.NAME_PRODUCT --製品名 --2014.02.06 M.Inoue 倉庫対応 start , m1.CD_WAREHOUSE --倉庫コード , m6.NAME_WAREHOUSE --倉庫名 --2014.02.06 M.Inoue 倉庫対応 end , m1.CD_GREAD --グレードコード , m5.NAME_GREAD --グレード名 , (case when(m1.FLG_ENTRY = 1)then(m1.UNIT_PRICE)when(m1.FLG_ENTRY is null)then(case when(m1.STOCK_UNIT_PRICE is null)then(m1.UNIT_PRICE)else(m1.STOCK_UNIT_PRICE)end)end) UNIT_PRICE --単価 , (case when(m1.FLG_ENTRY = 1)then(m1.WEIGHT)when(m1.FLG_ENTRY is null)then(case when(m1.STOCK_WEIGHT is null)then(m1.WEIGHT)else(m1.STOCK_WEIGHT)end)end) WEIGHT --重量 , (case when(m1.FLG_ENTRY = 1)then(m1.MONEY)when(m1.FLG_ENTRY is null)then(case when(m1.STOCK_MONEY is null)then(m1.MONEY)else(m1.STOCK_MONEY)end)end) MONEY --金額 --2014.02.07 M.Inoue パレット対応 start , (case when(m1.FLG_ENTRY = 1)then(m1.PALLET)when(m1.FLG_ENTRY is null)then(case when(m1.CNT_PALLET is null)then(m1.PALLET)else(m1.CNT_PALLET)end)end) PALLET --パレット --2014.02.07 M.Inoue パレット対応 end , m1.NO_ADJUSTMENT --登録番号 , m1.DT_ADJUSTMENT --対象年月日 , m1.DTS_YEAR --対象年 , m1.DTS_MONTH --対象月 , m1.DTS_DAY --対象日 , m1.DT_REGIST --登録日 , m1.DT_UPDATE --修正日 , m1.DT_DELETE --削除日 , m1.ID_REGIST --登録端末ID , m1.ID_UPDATE --修正端末ID , m1.ID_DELETE --削除端末ID , m1.NOTE --備考 , FLG_ENTRY --仮登録フラグ from T_ADJUSTMENT m1 , M_CUSTOMER m2 , M_DERIVERY m3 , M_PRODUCT m4 , M_GREAD m5 --2014.02.06 M.Inoue 倉庫対応 start , M_WAREHOUSE m6 --2014.02.06 M.Inoue 倉庫対応 end where m1.DTS_YEAR = &3 and ((&4 is null) or (m1.DTS_MONTH = &4)) and (( &5 is null ) or ( m1.DTS_DAY = &5 )) -- and &6 -- and m1.STOCK_WEIGHT is not null and m1.DIV_WP_PRODUCT = &2 and (( &7 is null ) or ( m1.FLG_ENTRY = &7 )) and ((&8 is null) or (m1.CD_CUSTOMER = &8)) and m1.FLG_DELETE = 0 and m1.CD_CUSTOMER = m2.CD_CUSTOMER and m1.CD_DERIVERY = m3.CD_DERIVERY and m1.CD_PRODUCT = m4.CD_PRODUCT and m1.CD_GREAD = m5.CD_GRADE --2014.02.06 M.Inoue 倉庫対応 start and m1.CD_WAREHOUSE = m6.CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end and m2.DT_START <= to_date('&1') and m2.DT_END >= to_date('&1') and m3.DT_START <= to_date('&1') and m3.DT_END >= to_date('&1') ORDER BY m1.CD_CUSTOMER, m1.CD_DERIVERY, m1.CD_PRODUCT --2014.02.06 M.Inoue 倉庫対応 start , m1.CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end /* select distinct m1.CD_CUSTOMER --得意先コード , m2.NAME_CUSTOMER --得意先名 , m1.CD_DERIVERY --納品先コード , m3.NAME_DERIVERY --納品先名 , m1.CD_PRODUCT --製品コード , m4.NAME_PRODUCT --製品名 , m1.UNIT_PRICE --単価 , m1.WEIGHT --重量 , m1.CD_GREAD --グレードコード , m5.NAME_GREAD --グレード名 , m1.MONEY --金額 , m1.NO_ADJUSTMENT --登録番号 , m1.DT_ADJUSTMENT --対象年月日 , m1.DTS_YEAR --対象年 , m1.DTS_MONTH --対象月 , m1.DTS_DAY --対象日 , m1.DT_REGIST --登録日 , m1.DT_UPDATE --修正日 , m1.DT_DELETE --削除日 , m1.ID_REGIST --登録端末ID , m1.ID_UPDATE --修正端末ID , m1.ID_DELETE --削除端末ID , m1.NOTE --備考 from T_ADJUSTMENT m1 , M_CUSTOMER m2 , M_DERIVERY m3 , M_PRODUCT m4 , M_GREAD m5 where m1.DT_ADJUSTMENT = to_date(&1) and m1.DIV_WP_PRODUCT = &2 and m1.FLG_DELETE = 0 and m1.CD_CUSTOMER = m2.CD_CUSTOMER and m1.CD_DERIVERY = m3.CD_DERIVERY and m1.CD_PRODUCT = m4.CD_PRODUCT and m1.CD_GREAD = m5.CD_GRADE and m2.DT_START <= to_date(&1) and m2.DT_END >= to_date(&1) and m3.DT_START <= to_date(&1) and m3.DT_END >= to_date(&1) -- order by m1.DT_ADJUSTMENT desc ,m1.NO_ADJUSTMENT desc -- Insert 2003/06/07 M.Tsujinaka 昇順の並べ替え Staert ORDER BY m1.CD_CUSTOMER, m1.CD_DERIVERY, m1.CD_PRODUCT -- Insert 2003/06/07 M.Tsujinaka 昇順の並べ替え End */ --2003.03.18 konishi 月単位の棚卸入力に変更 end /********************************/ /* 実棚卸データ更新（故紙) */ /********************************/ [lDBUpdSupplier] insert into T_ADJUSTMENT ( NO_ADJUSTMENT --登録番号 '1 , DT_ADJUSTMENT --対象年月日 , DTS_YEAR --対象年 , DTS_MONTH --対象月 , DTS_DAY --対象日 '5 , DIV_WP_PRODUCT --対象区分 , CD_SUPPLIER --仕入先コード , CD_SHIPMENT --荷送先コード , CD_WP --銘柄コード , CD_CUSTOMER --得意先コード '10 , CD_DERIVERY --納品先コード , CD_PRODUCT --製品コード , CD_GREAD --グレードコード --2003.03.18 konishi 月単位の棚卸入力に変更 START -- , STOCK_WEIGHT --重量 -- , STOCK_UNIT_PRICE --単価 '15 -- , STOCK_MONEY --金額 , WEIGHT --重量 , UNIT_PRICE --単価 '15 , MONEY --金額 --2003.03.18 konishi 月単位の棚卸入力に変更 end , NOTE --備考 , FLG_DELETE --削除フラグ , ID_REGIST --登録端末ID , ID_UPDATE --修正端末ID '20 , DT_REGIST --登録日 , DT_UPDATE --修正日 --2003.03.18 konishi 月単位の棚卸入力に変更 START , STOCK_WEIGHT --重量 , STOCK_UNIT_PRICE --単価 , STOCK_MONEY --金額 '25 , FLG_ENTRY --仮登録フラグ --2003.03.18 konishi 月単位の棚卸入力に変更 end ) values ( &1 --'1 -- , to_date('&2' , 'yyyy/mm/dd hh24:mi:ss') , to_date('&2' , 'yyyymmdd') , &3 , &4 , &5 --'5 , 0 , &6 , &7 , &8 , '' --'10 , '' , '' , &9 , &10 , &11 --'15 , nullif(&12,'') , '&13' , 0 , '&14' , '&15' --'20 -- , to_date('&16' , 'yyyy/mm/dd hh24:mi:ss') , to_date('&16' , 'yyyymmdd') , &17 --2003.03.18 konishi 月単位の棚卸入力に変更 START , &18 , &19 , &20 , &21 --2003.03.18 konishi 月単位の棚卸入力に変更 end ) /********************************/ /* 実棚卸データ更新（製品) */ /********************************/ [lDBUpdCustomer] insert into T_ADJUSTMENT ( NO_ADJUSTMENT --登録番号 '1 , DT_ADJUSTMENT --対象年月日 , DTS_YEAR --対象年 , DTS_MONTH --対象月 , DTS_DAY --対象日 '5 , DIV_WP_PRODUCT --対象区分 , CD_SUPPLIER --仕入先コード , CD_SHIPMENT --荷送先コード , CD_WP --銘柄コード , CD_CUSTOMER --得意先コード '10 , CD_DERIVERY --納品先コード , CD_PRODUCT --製品コード , CD_GREAD --グレードコード --2003.03.18 konishi 月単位の棚卸入力に変更 START -- , STOCK_WEIGHT --重量 -- , STOCK_UNIT_PRICE --単価 '15 -- , STOCK_MONEY --金額 , WEIGHT --重量 , UNIT_PRICE --単価 '15 , MONEY --金額 --2003.03.18 konishi 月単位の棚卸入力に変更 end , NOTE --備考 , FLG_DELETE --削除フラグ , ID_REGIST --登録端末ID , ID_UPDATE --修正端末ID '20 , DT_REGIST --登録日 , DT_UPDATE --修正日 --2003.03.18 konishi 月単位の棚卸入力に変更 START , STOCK_WEIGHT --重量 , STOCK_UNIT_PRICE --単価 , STOCK_MONEY --金額 '25 , FLG_ENTRY --仮登録フラグ --2003.03.18 konishi 月単位の棚卸入力に変更 end --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --倉庫コード --2014.02.06 M.Inoue 倉庫対応 end --2014.02.06 M.Inoue パレット対応 start , CNT_PALLET --実棚卸パレット数量 --2014.02.06 M.Inoue パレット対応 end ) values ( &1 --'1 -- , to_date('&2' , 'yyyy/mm/dd hh24:mi:ss') --#24303 2022.06.18 MOD STT , to_date('&2' , 'yyyymmdd') -- , to_date('&2' , 'yyyymmdd') --#24303 2022.06.18 MOD END , &3 , &4 , &5 --'5 , 1 , null , null , null , &6 --'10 , &7 , &8 , &9 , &10 , &11 --'15 , &12 , '&13' , 0 , '&14' , '&15' --'20 -- , to_date('&16' , 'yyyy/mm/dd hh24:mi:ss') , to_date('&16' , 'yyyymmdd') , &17 --2003.03.18 konishi 月単位の棚卸入力に変更 START , &18 , &19 , &20 , &21 --2003.03.18 konishi 月単位の棚卸入力に変更 end --2016.02.09 KSP K.Takahashi 倉庫対応解除 Start --2014.02.06 M.Inoue 倉庫対応 start -- , &22 , 0 --2014.02.06 M.Inoue 倉庫対応 end --2016.02.09 KSP K.Takahashi 倉庫対応解除 End --2014.02.07 M.Inoue パレット対応 start , &23 --2014.02.07 M.Inoue パレット対応 end ) /********************************/ /* 実棚卸データ新規登録（故紙) */ /********************************/ --2003.03.18 konishi 月単位の棚卸入力に変更 start [lDBInsertStockSupplier] insert into T_ADJUSTMENT ( NO_ADJUSTMENT --登録番号 '1 -- , DT_ADJUSTMENT --対象年月日 , DTS_YEAR --対象年 , DTS_MONTH --対象月 -- , DTS_DAY --対象日 '5 , DIV_WP_PRODUCT --対象区分 , CD_SUPPLIER --仕入先コード , CD_SHIPMENT --荷送先コード , CD_WP --銘柄コード , CD_CUSTOMER --得意先コード '10 , CD_DERIVERY --納品先コード , CD_PRODUCT --製品コード , CD_GREAD --グレードコード , STOCK_WEIGHT --重量 , STOCK_UNIT_PRICE --単価 '15 , STOCK_MONEY --金額 , NOTE --備考 , FLG_DELETE --削除フラグ , ID_REGIST --登録端末ID , DT_REGIST ) --登録日 values ( &1 --'1 -- , to_date('&2' , 'yyyy/mm/dd hh24:mi:ss') , &3 , &4 -- , '&5' --'5 , 0 , &6 , &7 , &8 , null --'10 , null , null , &9 , &10 , &11 --'15 , &12 , '&13' , 0 , '&14' , now() ) /*********************************/ /* 実棚卸データ新規登録（製品) */ /*********************************/ [lDBInsertStockCustomer] insert into T_ADJUSTMENT ( NO_ADJUSTMENT --登録番号 '1 -- , DT_ADJUSTMENT --対象年月日 , DTS_YEAR --対象年 , DTS_MONTH --対象月 -- , DTS_DAY --対象日 '5 , DIV_WP_PRODUCT --対象区分 , CD_SUPPLIER --仕入先コード , CD_SHIPMENT --荷送先コード , CD_WP --銘柄コード , CD_CUSTOMER --得意先コード '10 , CD_DERIVERY --納品先コード , CD_PRODUCT --製品コード , CD_GREAD --グレードコード , STOCK_WEIGHT --重量 , STOCK_UNIT_PRICE --単価 '15 , STOCK_MONEY --金額 , NOTE --備考 , FLG_DELETE --削除フラグ , ID_REGIST --登録端末ID , DT_REGIST --登録日 --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --倉庫コード --2014.02.06 M.Inoue 倉庫対応 end --2014.02.07 M.Inoue パレット対応 start , CNT_PALLET --実棚卸パレット数 --2014.02.07 M.Inoue パレット対応 end ) values ( &1 --'1 -- , to_date('&2' , 'yyyy/mm/dd hh24:mi:ss') , &3 , &4 -- , &5 --'5 , 1 , null , null , null , &6 --'10 , &7 , &8 , &9 , &10 , &11 --'15 , &12 , '&13' , 0 , '&14' , now() --2016.02.09 KSP K.Takahashi 倉庫対応解除 Start --2014.02.06 M.Inoue 倉庫対応 start -- , &16 , 0 --2014.02.06 M.Inoue 倉庫対応 end --2016.02.09 KSP K.Takahashi 倉庫対応解除 End --2016.07.06 chg KSP K.Takahashi パラメータの誤り修正 ---------- Start --2014.02.07 M.Inoue パレット対応 start -- , &17 , &23 --2014.02.07 M.Inoue パレット対応 end --2016.07.06 chg KSP K.Takahashi パラメータの誤り修正 ---------- End ) /****************************/ /* 日毎新規登録（故紙) */ /****************************/ --2003.03.18 konishi 月単位の棚卸入力に変更 end [lDBInsertSupplier] insert into T_ADJUSTMENT ( NO_ADJUSTMENT --登録番号 '1 , DT_ADJUSTMENT --対象年月日 , DTS_YEAR --対象年 , DTS_MONTH --対象月 , DTS_DAY --対象日 '5 , DIV_WP_PRODUCT --対象区分 , CD_SUPPLIER --仕入先コード , CD_SHIPMENT --荷送先コード , CD_WP --銘柄コード , CD_CUSTOMER --得意先コード '10 , CD_DERIVERY --納品先コード , CD_PRODUCT --製品コード , CD_GREAD --グレードコード , WEIGHT --重量 , UNIT_PRICE --単価 '15 , MONEY --金額 , NOTE --備考 , FLG_DELETE --削除フラグ , ID_REGIST --登録端末ID , DT_REGIST --登録日 , FLG_ENTRY --登録フラグ ) values ( --2003.03.18 konishi 月単位の棚卸入力に変更 start &1 --'1 -- , to_date('&16' , 'yyyy/mm/dd hh24:mi:ss') --#24303 2022.06.18 MOD STT , to_date('&16' , 'yyyy/mm/dd') -- , to_date('&16' , 'yyyymmdd') --#24303 2022.06.18 MOD END , &3 , &4 , &17 --'5 , 0 , &6 , &7 , &8 , null --'10 , null , null , &9 , &18 , &19 --'15 , &20 , '&13' , 0 , '&14' , now() , &15 /* &1 --'1 , to_date('&2' , 'yyyy/mm/dd hh24:mi:ss') , &3 , &4 , &5 --'5 , 0 , &6 , &7 , &8 , '' --'10 , '' , '' , &9 , &10 , &11 --'15 , &12 , '&13' , 0 , '&14' , sysdate */ --2003.03.18 konishi 月単位の棚卸入力に変更 end ) /****************************/ /* 日毎新規登録（製品) */ /****************************/ [lDBInsertCustomer] insert into T_ADJUSTMENT ( NO_ADJUSTMENT --登録番号 '1 , DT_ADJUSTMENT --対象年月日 , DTS_YEAR --対象年 , DTS_MONTH --対象月 , DTS_DAY --対象日 '5 , DIV_WP_PRODUCT --対象区分 , CD_SUPPLIER --仕入先コード , CD_SHIPMENT --荷送先コード , CD_WP --銘柄コード , CD_CUSTOMER --得意先コード '10 , CD_DERIVERY --納品先コード , CD_PRODUCT --製品コード , CD_GREAD --グレードコード , WEIGHT --重量 , UNIT_PRICE --単価 '15 , MONEY --金額 , NOTE --備考 , FLG_DELETE --削除フラグ , ID_REGIST --登録端末ID , DT_REGIST --登録日 , FLG_ENTRY --登録フラグ --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --倉庫コード --2014.02.06 M.Inoue 倉庫対応 end --2014.02.07 M.Inoue パレット対応 start , PALLET --パレット数 --2014.02.07 M.Inoue パレット対応 end ) values ( --2003.03.18 konishi 月単位の棚卸入力に変更 start &1 --'1 --2014.02.07 倉庫・パレット対応 start -- , to_date('&16' , 'yyyy/mm/dd hh24:mi:ss') --#24303 2022.06.18 MOD STT , to_date('&18' , 'yyyy/mm/dd') -- , to_date('&18' , 'yyyymmdd') --#24303 2022.06.18 MOD END --2014.02.07 倉庫・パレット対応 end , &3 , &4 --2014.02.07 M.Inoue パレット対応 start -- , &17 --'5 , &19 --'5 --2014.02.07 M.Inoue パレット対応 end , 1 , null , null , null , &6 --'10 , &7 , &8 , &9 --2014.02.07 倉庫・パレット対応 start -- , &18 -- , &19 --'15 -- , &20 , &20 , &21 --'15 , &22 --2014.02.07 倉庫・パレット対応 end , '&13' , 0 , '&14' , now() , &15 --2016.02.09 KSP K.Takahashi 倉庫対応解除 Start --2014.02.06 M.Inoue 倉庫対応 start -- , &16 , 0 --2014.02.06 M.Inoue 倉庫対応 end --2016.02.09 KSP K.Takahashi 倉庫対応解除 End --2016.07.06 chg KSP K.Takahashi パラメータの誤り修正 ---------- Start --2014.02.07 M.Inoue パレット対応 start , &17 -- , &23 --2014.02.07 M.Inoue パレット対応 end --2016.07.06 chg KSP K.Takahashi パラメータの誤り修正 ---------- End /* &1 --'1 , to_date('&2' , 'yyyy/mm/dd hh24:mi:ss') , &3 , &4 , &5 --'5 , 1 , null , null , null , &6 --'10 , &7 , &8 , &9 , &10 , &11 --'15 , &12 , '&13' , 0 , '&14' , sysdate */ --2003.03.18 konishi 月単位の棚卸入力に変更 end ) /****************************/ /* マスター検索（仕入先) */ /****************************/ [lDBSelectDecSupplier] select m1.CD_SUPPLIER --仕入先コード ,m1.NAME_SUPPLIER --仕入先名 ,m2.CD_SHIPMENT --荷送先コード ,m2.NAME_SHIPMENT --荷送先名 ,m3.CD_WP --銘柄コード ,m3.NAME_GRADE --銘柄名 ,m4.CD_GRADE --グレードコード ,m4.NAME_GREAD --グレード名 from M_SUPPLIER m1, M_SHIPMENT m2, M_WP m3, M_GREAD m4 where m1.CD_SUPPLIER = &1 and m1.FLG_DELETE = 0 and m2.CD_SHIPMENT = &2 and m2.FLG_DELETE = 0 and m3.CD_WP = &3 and m3.FLG_DELETE = 0 and m4.CD_GRADE = &4 and m1.DT_START <= to_date('&5' , 'yyyymmdd') and m1.DT_END >= to_date('&5' , 'yyyymmdd') and m2.DT_START <= to_date('&5' , 'yyyymmdd') and m2.DT_END >= to_date('&5' , 'yyyymmdd') and m3.DT_START <= to_date('&5' , 'yyyymmdd') and m3.DT_END >= to_date('&5' , 'yyyymmdd') /****************************/ /* マスター検索（得意先) */ /****************************/ [lDBSelectDecCustomer] select m1.CD_CUSTOMER --得意先コード ,m1.NAME_CUSTOMER --得意先名 ,m2.CD_DERIVERY --納品先コード ,m2.NAME_DERIVERY --納品先名 ,m3.CD_PRODUCT --製品コード ,m3.NAME_PRODUCT --製品名 --2014.02.06 M.Inoue 倉庫対応 start ,m5.CD_WAREHOUSE ,m5.NAME_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end ,m4.CD_GRADE --グレードコード ,m4.NAME_GREAD --グレード名 from M_CUSTOMER m1, M_DERIVERY m2, M_PRODUCT m3, M_GREAD m4, M_WAREHOUSE m5 where m1.CD_CUSTOMER = &1 and m1.FLG_DELETE = 0 and m2.CD_DERIVERY = &2 and m2.FLG_DELETE = 0 and m3.CD_PRODUCT = &3 and m3.FLG_DELETE = 0 and m4.CD_GRADE = &4 and m1.DT_START <= to_date('&5' , 'yyyymmdd') and m1.DT_END >= to_date('&5' , 'yyyymmdd') and m2.DT_START <= to_date('&5' , 'yyyymmdd') and m2.DT_END >= to_date('&5' , 'yyyymmdd') and m3.DT_START <= to_date('&5' , 'yyyymmdd') and m3.DT_END >= to_date('&5' , 'yyyymmdd') and m5.CD_WAREHOUSE = &6 /****************************/ /* 棚卸データ削除 */ /****************************/ [lDBDeleteAjustment] delete from T_ADJUSTMENT where NO_ADJUSTMENT = to_number('&1') /****************************/ /* 棚卸データ削除 */ /****************************/ [lDBUpdateDel] update T_ADJUSTMENT set FLG_DELETE = 1 --削除フラグ , ID_DELETE = '&2' --削除端末ID , DT_DELETE = now() --削除日 where NO_ADJUSTMENT = &1 --登録番号 /****************************************************/ /* 入力したデータが登録されているかどうか（故紙） */ /****************************************************/ --2003.03.18 konishi 月単位の棚卸入力に変更 start [lDBChkSameDatSupplier] select count(*) COUNT_REC from T_ADJUSTMENT where DTS_YEAR = &1 --対象年 and DTS_MONTH = &2 --対象月 and (( &3 is null ) or ( DTS_DAY = &3 )) and CD_SUPPLIER = &4 --仕入先コード and CD_SHIPMENT = &5 --荷送先コード and CD_WP = &6 --銘柄コード and CD_GREAD = &7 --グレードコード and FLG_DELETE = 0 --削除フラグ and &8 /* select count(*) COUNT_REC from T_ADJUSTMENT where DT_ADJUSTMENT = to_date('&1' , 'yyyymmdd') --対象年月日 and CD_SUPPLIER = &2 --仕入先コード and CD_SHIPMENT = &3 --荷送先コード and CD_WP = &4 --銘柄コード and CD_GREAD = &5 --グレードコード and FLG_DELETE = 0 --削除フラグ */ --2003.03.18 konishi 月単位の棚卸入力に変更 end /****************************************************/ /* 入力したデータが登録されているかどうか（製品） */ /****************************************************/ [lDBChkSameDatCustomer] --2003.03.18 konishi 月単位の棚卸入力に変更 start select count(*) COUNT_REC from T_ADJUSTMENT where DTS_YEAR = &1 --対象年 and DTS_MONTH = &2 --対象月 and (( &3 is null ) or ( DTS_DAY = &3 )) and CD_CUSTOMER = &4 --得意先コード and CD_DERIVERY = &5 --納品先コード and CD_PRODUCT = &6 --製品コード and CD_GREAD = &7 --グレードコード and FLG_DELETE = 0 --削除フラグ and &8 --2016.02.09 KSP K.Takahashi 倉庫対応解除 Start --2014.02.06 M.Inoue 倉庫対応 start -- and CD_WAREHOUSE = &9 --倉庫コード --2014.02.06 M.Inoue 倉庫対応 end --2016.02.09 KSP K.Takahashi 倉庫対応解除 End /* select count(*) COUNT_REC from T_ADJUSTMENT where DT_ADJUSTMENT = to_date('&1' , 'yyyymmdd') --対象年月日 and CD_CUSTOMER = &2 --仕入先コード and CD_DERIVERY = &3 --荷送先コード and CD_PRODUCT = &4 --銘柄コード and CD_GREAD = &5 --グレードコード and FLG_DELETE = 0 --削除フラグ */ --2003.03.18 konishi 月単位の棚卸入力に変更 end /*******************************************************/ /* 該当データの単価、対象年月までの重量の取得(故紙) */ /* 前月在庫 + 当月受払いのみ(本棚卸の場合は仮棚卸を抹消するため) */ /*******************************************************/ [lDBGetUnitPriceWp2] -- Add M.Tsujinaka 2003/0607 単価取得の変更 Start SELECT CD_SUPPLIER , CD_SHIPMENT , CD_WP , CD_GRADE , SUM(WEIGHT) WEIGHT , SUM(MONEY) MONEY , coalesce(TRUNC((case(coalesce(SUM(WEIGHT),0))when(0)then(0)else(SUM(MONEY)/SUM(WEIGHT))end)*10)/10.00,0) UNIT_PRICE FROM ( SELECT CD_SUPPLIER , CD_SHIPMENT , CD_WP , CD_GRADE , WEIGHT_STOCK WEIGHT , MONEY_STOCK MONEY FROM T_STOCK_WP --#24303 2022.06.18 MOD STT -- WHERE DTS_YM = TO_NUMBER('&10') WHERE DTS_YM = '&10' --#24303 2022.06.18 MOD END AND FLG_DELETE <> 1 UNION SELECT CD_SUPPLIER , CD_SHIPMENT , CD_WP , CD_GRADE ,SUM(WEIGHT_WP) WEIGHT ,SUM(MONEY_WP) MONEY FROM T_RECEIVE_WP WHERE DTS_YEAR = TO_NUMBER('&6') AND DTS_MONTH = TO_NUMBER('&7') -- Add M.Tsujinaka 2003/08/05 修正分追加 Start AND DTS_DAY BETWEEN 01 AND &8 -- Add M.Tsujinaka 2003/08/05 修正分追加 End AND FLG_DELETE <> 1 GROUP BY CD_SUPPLIER, CD_SHIPMENT, CD_WP, CD_GRADE UNION SELECT CD_SUPPLIER , CD_SHIPMENT , CD_WP , CD_GRADE ,-1 * SUM(WEIGHT_WP) WEIGHT ,-1 * SUM(MONEY_WP) MONEY FROM T_SHIP_WP WHERE DTS_YEAR = TO_NUMBER('&6') AND DTS_MONTH = TO_NUMBER('&7') -- Add M.Tsujinaka 2003/08/05 修正分追加 Start AND DTS_DAY BETWEEN 01 AND &8 -- Add M.Tsujinaka 2003/08/05 修正分追加 End AND FLG_DELETE <> 1 GROUP BY CD_SUPPLIER, CD_SHIPMENT, CD_WP, CD_GRADE ) w WHERE CD_SUPPLIER = &1 AND CD_SHIPMENT = &2 AND CD_WP = &3 AND CD_GRADE = &4 GROUP BY CD_SUPPLIER, CD_SHIPMENT, CD_WP, CD_GRADE ORDER BY CD_SUPPLIER, CD_SHIPMENT, CD_WP, CD_GRADE /*******************************************************/ /* 該当データの単価、対象年月までの重量の取得(故紙) */ /* 仮棚卸用 */ /*******************************************************/ [lDBGetUnitPriceWp3] -- Add M.Tsujinaka 2003/0607 単価取得の変更 Start SELECT CD_SUPPLIER , CD_SHIPMENT , CD_WP , CD_GRADE , SUM(WEIGHT) WEIGHT , SUM(MONEY) MONEY , TRUNC((case(coalesce(SUM(WEIGHT),0))when(0)then(0)else(SUM(MONEY)/SUM(WEIGHT))end)*10)/10 UNIT_PRICE FROM ( SELECT CD_SUPPLIER , CD_SHIPMENT , CD_WP , CD_GRADE , WEIGHT_STOCK WEIGHT , MONEY_STOCK MONEY FROM T_STOCK_WP --#24303 2022.06.18 MOD STT -- WHERE DTS_YM = TO_NUMBER('&10') WHERE DTS_YM = '&10' --#24303 2022.06.18 MOD END AND FLG_DELETE <> 1 UNION SELECT CD_SUPPLIER , CD_SHIPMENT , CD_WP , CD_GRADE ,SUM(WEIGHT_WP) WEIGHT ,SUM(MONEY_WP) MONEY FROM T_RECEIVE_WP WHERE DTS_YEAR = TO_NUMBER('&6') AND DTS_MONTH = TO_NUMBER('&7') -- Add M.Tsujinaka 2003/08/05 修正分追加 Start AND DTS_DAY BETWEEN 01 AND &8 -- Add M.Tsujinaka 2003/08/05 修正分追加 End AND FLG_DELETE <> 1 GROUP BY CD_SUPPLIER, CD_SHIPMENT, CD_WP, CD_GRADE UNION SELECT CD_SUPPLIER , CD_SHIPMENT , CD_WP , CD_GRADE ,-1 * SUM(WEIGHT_WP) WEIGHT ,-1 * SUM(MONEY_WP) MONEY FROM T_SHIP_WP WHERE DTS_YEAR = TO_NUMBER('&6') AND DTS_MONTH = TO_NUMBER('&7') -- Add M.Tsujinaka 2003/08/05 修正分追加 Start AND DTS_DAY BETWEEN 01 AND &8 -- Add M.Tsujinaka 2003/08/05 修正分追加 End AND FLG_DELETE <> 1 GROUP BY CD_SUPPLIER, CD_SHIPMENT, CD_WP, CD_GRADE UNION SELECT CD_SUPPLIER , CD_SHIPMENT , CD_WP , CD_GREAD ,SUM(WEIGHT) WEIGHT ,SUM(MONEY) MONEY FROM T_ADJUSTMENT WHERE DTS_YEAR = TO_NUMBER('&6') AND DTS_MONTH = TO_NUMBER('&7') AND DTS_DAY BETWEEN 01 AND &8 AND FLG_DELETE <> 1 AND DIV_WP_PRODUCT = 0 AND DTS_DAY <> &8 GROUP BY CD_SUPPLIER, CD_SHIPMENT, CD_WP, CD_GREAD ) w WHERE CD_SUPPLIER = &1 AND CD_SHIPMENT = &2 AND CD_WP = &3 AND CD_GRADE = &4 GROUP BY CD_SUPPLIER, CD_SHIPMENT, CD_WP, CD_GRADE ORDER BY CD_SUPPLIER, CD_SHIPMENT, CD_WP, CD_GRADE --[lDBGetUnitPriceWp] --select UNIT_PRICE_STOCK -- from T_STOCK_WP -- where DTS_YM = '&5' -- and CD_SUPPLIER = &1 -- and CD_SHIPMENT = &2 -- and CD_WP = &3 -- and CD_GRADE = &4 /*******************************************************/ /* 該当データの単価、対象年月までの重量の取得(製品) */ /* 前月在庫 + 当月受払いのみ(本棚卸の場合は仮棚卸を抹消するため) */ /*******************************************************/ [lDBGetUnitPriceProduct2] SELECT CD_CUSTOMER , CD_DERIVERY , CD_PRODUCT --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end --, CD_GREAD , SUM(WEIGHT) WEIGHT , SUM(MONEY) MONEY --2014.02.07 M.Inoue パレット対応 start , SUM(PALLET) PALLET --2014.02.07 M.Inoue パレット対応 end , TRUNC((case(coalesce(SUM(WEIGHT),0))when(0)then(0)else(SUM(MONEY)/SUM(WEIGHT))end)*10)/10 UNIT_PRICE FROM ( SELECT CD_CUSTOMER , CD_DERIVERY , CD_PRODUCT --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end --, CD_GREAD , SUM(WEIGHT_STOCK) WEIGHT , SUM(MONEY_STOCK) MONEY --2014.02.07 M.Inoue パレット対応 start , SUM(NUM_PALLET) PALLET --2014.02.07 M.Inoue パレット対応 end FROM T_PRODUCT_STOCK --#24303 2022.06.18 MOD STT -- WHERE DTS_YM = TO_NUMBER('&10') WHERE DTS_YM = '&10' --#24303 2022.06.18 MOD END AND FLG_DELETE <> 1 GROUP BY CD_CUSTOMER, CD_DERIVERY, CD_PRODUCT--, CD_GREAD --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end UNION SELECT CD_CUSTOMER , CD_DERIVERY , CD_PRODUCT --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end --, CD_GREAD , SUM(WEIGHT_DRY) WEIGHT , SUM(MONEY_COST_PRODUCT) MONEY --2014.02.07 M.Inoue パレット対応 start , SUM(1) PALLET --2014.02.07 M.Inoue パレット対応 end FROM T_DERIVERY_PRODUCT WHERE DTS_YEAR = TO_NUMBER('&6') AND DTS_MONTH = TO_NUMBER('&7') AND DTS_DAY BETWEEN 01 AND &8 AND FLG_DELETE <> 1 GROUP BY CD_CUSTOMER, CD_DERIVERY, CD_PRODUCT--, CD_GREAD --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end UNION SELECT CD_CUSTOMER , CD_DERIVERY , CD_PRODUCT --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end --, CD_GREAD , -1 * SUM(WEIGHT_DRY) WEIGHT , -1 * SUM(MONEY_COST_PRODUCT) MONEY --2014.02.07 M.Inoue パレット対応 start , -1 * SUM(1) PALLET --2014.02.07 M.Inoue パレット対応 end FROM T_SHIP_PRODUCT --#24303 2022.06.18 MOD STT -- WHERE DTS_SHIP_PRODUCT_YEAR = TO_NUMBER('&6') -- AND DTS_SHIP_PRODUCT_MONTH = TO_NUMBER('&7') -- AND DTS_SHIP_PRODUCT_DAY BETWEEN 01 AND &8 WHERE DTS_SHIP_PRODUCT_YEAR = '&6' AND DTS_SHIP_PRODUCT_MONTH = '&7' AND DTS_SHIP_PRODUCT_DAY BETWEEN '01' AND '&8' --#24303 2022.06.18 MOD END AND FLG_DELETE <> 1 GROUP BY CD_CUSTOMER, CD_DERIVERY, CD_PRODUCT--, CD_GREAD --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end ) w WHERE CD_CUSTOMER = &1 AND CD_DERIVERY = &2 AND CD_PRODUCT = &3 --2016.02.09 KSP K.Takahashi 倉庫対応解除 Start --2014.02.06 M.Inoue 倉庫対応 start -- AND CD_WAREHOUSE = &11 --2014.02.06 M.Inoue 倉庫対応 end --2016.02.09 KSP K.Takahashi 倉庫対応解除 End --AND CD_GREAD = &4 GROUP BY CD_CUSTOMER, CD_DERIVERY, CD_PRODUCT--, CD_GREAD --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end ORDER BY CD_CUSTOMER, CD_DERIVERY, CD_PRODUCT--, CD_GREAD --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end /*******************************************************/ /* 該当データの単価、対象年月までの重量の取得(製品) */ /* 仮棚卸用 */ /*******************************************************/ [lDBGetUnitPriceProduct3] SELECT CD_CUSTOMER , CD_DERIVERY , CD_PRODUCT --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end --, CD_GREAD , SUM(WEIGHT) WEIGHT , SUMs(MONEY) MONEY --2014.02.07 M.Inoue パレット対応 start , SUM(PALLET) PALLET --2014.02.07 M.Inoue パレット対応 end , TRUNC((case(coalesce(SUM(WEIGHT),0))when(0)then(0)else(SUM(MONEY)/SUM(WEIGHT))end)*10)/10 UNIT_PRICE FROM ( SELECT CD_CUSTOMER , CD_DERIVERY , CD_PRODUCT --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end --, CD_GREAD , SUM(WEIGHT_STOCK) WEIGHT , SUM(MONEY_STOCK) MONEY --2014.02.07 M.Inoue パレット対応 start , SUM(NUM_PALLET) PALLET --2014.02.07 M.Inoue パレット対応 end FROM T_PRODUCT_STOCK --#24303 2022.06.18 MOD STT -- WHERE DTS_YM = TO_NUMBER('&10') WHERE DTS_YM = '&10' --#24303 2022.06.18 MOD END AND FLG_DELETE <> 1 GROUP BY CD_CUSTOMER, CD_DERIVERY, CD_PRODUCT--, CD_GREAD --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end UNION SELECT CD_CUSTOMER , CD_DERIVERY , CD_PRODUCT --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end --, CD_GREAD , SUM(WEIGHT_DRY) WEIGHT , SUM(MONEY_COST_PRODUCT) MONEY --2014.02.07 M.Inoue パレット対応 start , SUM(1) PALLET --2014.02.07 M.Inoue パレット対応 end FROM T_DERIVERY_PRODUCT WHERE DTS_YEAR = TO_NUMBER('&6') AND DTS_MONTH = TO_NUMBER('&7') AND DTS_DAY BETWEEN 01 AND &8 AND FLG_DELETE <> 1 GROUP BY CD_CUSTOMER, CD_DERIVERY, CD_PRODUCT--, CD_GREAD --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end UNION SELECT CD_CUSTOMER , CD_DERIVERY , CD_PRODUCT --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end --, CD_GREAD , -1 * SUM(WEIGHT_DRY) WEIGHT , -1 * SUM(MONEY_COST_PRODUCT) MONEY --2014.02.07 M.Inoue パレット対応 start , -1 * SUM(1) PALLET --2014.02.07 M.Inoue パレット対応 end FROM T_SHIP_PRODUCT --#24303 2022.06.18 MOD STT -- WHERE DTS_SHIP_PRODUCT_YEAR = TO_NUMBER('&6') -- AND DTS_SHIP_PRODUCT_MONTH = TO_NUMBER('&7') WHERE DTS_SHIP_PRODUCT_YEAR = '&6' AND DTS_SHIP_PRODUCT_MONTH = '&7' AND DTS_SHIP_PRODUCT_DAY BETWEEN '01' AND '&8' --#24303 2022.06.18 MOD END AND FLG_DELETE <> 1 GROUP BY CD_CUSTOMER, CD_DERIVERY, CD_PRODUCT--, CD_GREAD --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end UNION SELECT CD_CUSTOMER , CD_DERIVERY , CD_PRODUCT --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end --, CD_GREAD , SUM(WEIGHT) WEIGHT , SUM(MONEY) MONEY --2014.02.07 M.Inoue パレット対応 start , SUM(PALLET) PALLET --2014.02.07 M.Inoue パレット対応 end FROM T_ADJUSTMENT WHERE DTS_YEAR = TO_NUMBER('&6') AND DTS_MONTH = TO_NUMBER('&7') AND DTS_DAY BETWEEN 01 AND &8 AND FLG_DELETE <> 1 AND DTS_DAY <> &8 AND DIV_WP_PRODUCT = 1 GROUP BY CD_CUSTOMER, CD_DERIVERY, CD_PRODUCT--, CD_GREAD --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end ) w WHERE CD_CUSTOMER = &1 AND CD_DERIVERY = &2 AND CD_PRODUCT = &3 --2016.02.09 KSP K.Takahashi 倉庫対応解除 Start --2014.02.06 M.Inoue 倉庫対応 start -- AND CD_WAREHOUSE = &11 --2014.02.06 M.Inoue 倉庫対応 end --2016.02.09 KSP K.Takahashi 倉庫対応解除 End --AND CD_GREAD = &4 GROUP BY CD_CUSTOMER, CD_DERIVERY, CD_PRODUCT--, CD_GREAD --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end ORDER BY CD_CUSTOMER, CD_DERIVERY, CD_PRODUCT--, CD_GREAD --2014.02.06 M.Inoue 倉庫対応 start , CD_WAREHOUSE --2014.02.06 M.Inoue 倉庫対応 end -- Add M.Tsujinaka 2003/0607 単価取得の変更 End --[lDBGetUnitPriceProduct] --select UNIT_PRICE_STOCK -- from T_PRODUCT_STOCK -- where DTS_YM = '&4' -- and CD_CUSTOMER = &1 -- and CD_DERIVERY = &2 -- and CD_PRODUCT = &3 /****************************************/ /* 日付変更時のデータ有無チェック */ /****************************************/ [lDBGetPreDatCount] --2004.03.18 konsihi 月単位の棚卸入力に変更 start select count(*) COUNT_REC from T_ADJUSTMENT where DTS_YEAR = &3 --対象年 and DTS_MONTH = &4 --対象月 and (( &5 is null ) or ( DTS_DAY = &5 )) --対象日 and DIV_WP_PRODUCT = &2 --対象区分 and FLG_DELETE = 0 --削除フラグ and &6 --実棚卸数量 /* select count(*) COUNT_REC from T_ADJUSTMENT where DT_ADJUSTMENT = to_date('&1' , 'yyyy/mm/dd hh24:mi:ss') --対象年月日 and DIV_WP_PRODUCT = &2 --対象区分 and FLG_DELETE = 0 --削除フラグ */ --2004.03.18 konsihi 月単位の棚卸入力に変更 end /****************************************/ /* */ /****************************************/ [lDBGetPreDat] --2004.03.18 konsihi 月単位の棚卸入力に変更 start select NO_ADJUSTMENT from T_ADJUSTMENT where DTS_YEAR = &3 --対象年 and DTS_MONTH = &4 --対象月 and (( &5 is null ) or ( DTS_DAY = &5 )) --対象日 and DIV_WP_PRODUCT = &2 --対象区分 and FLG_DELETE = 0 --削除フラグ and &6 --実棚卸数量 /* select NO_ADJUSTMENT from T_ADJUSTMENT where DT_ADJUSTMENT = to_date('&1' , 'yyyy/mm/dd hh24:mi:ss') --対象年月日 and DIV_WP_PRODUCT = &2 --対象区分 and FLG_DELETE = 0 --削除フラグ */ --2004.03.18 konsihi 月単位の棚卸入力に変更 end [lDBDelPreDat] /*Update T_ADJUSTMENT set FLG_DELETE = 1 where DT_ADJUSTMENT = to_date('&1' , 'yyyymmdd') --対象年月日 and DIV_WP_PRODUCT = &2 and FLG_DELETE = 0 */ /****************************************/ /* 在庫の計算 */ /****************************************/ [lsaveExecProcs] --#24451 2022.06.18 MOD STT --declare begin NSP_PacMain.changeAdjustment('&1', &2, &3); end; select changeAdjustment('&1', &2, &3) --#24451 2022.06.18 MOD END --2004.03.18 konsihi 月単位の棚卸入力に変更 start /****************************************/ /* 確定データが登録されているかどうか */ /****************************************/ [lDBChkSameDat] select count(*) cnt from T_ADJUSTMENT where DTS_YEAR = &1 and DTS_MONTH = &2 and DIV_WP_PRODUCT = &3 and &4 -- and STOCK_WEIGHT is not null and FLG_DELETE = 0 /****************************************/ /* 確定データの日別の割合を取得(故紙) */ /****************************************/ [lSearchDayRate_Supplier] select tsw.DT_SHIPSLIP DT_DATE_YYYYMMDD ,tsw.DTS_DAY ,sum(tsw.WEIGHT_WP) WEIGHT_WP ,cnt.DTS_DAY DTS_DAY_CNT ,tsw2.WEIGHT_WP TOTALWEIGHT_WP ,TRUNC((sum(tsw.WEIGHT_WP) / tsw2.WEIGHT_WP)*100,1) wariai from T_SHIP_WP tsw left join (select sum(WEIGHT_WP) WEIGHT_WP from T_SHIP_WP where FLG_DELETE = 0 and DTS_YEAR = &1 and DTS_MONTH = &2 and CD_SUPPLIER = &3 and CD_SHIPMENT = &4 and CD_WP = &5 and CD_GRADE = &6 ) tsw2 on (1 = 1) left join (select count ( DTS_DAY ) DTS_DAY from (select DTS_DAY from T_SHIP_WP where FLG_DELETE = 0 and DTS_YEAR = &1 and DTS_MONTH = &2 and CD_SUPPLIER = &3 and CD_SHIPMENT = &4 and CD_WP = &5 and CD_GRADE = &6 group by DTS_DAY ) w ) cnt on (1 = 1) where FLG_DELETE = 0 and DTS_YEAR = &1 and DTS_MONTH = &2 and CD_SUPPLIER = &3 and CD_SHIPMENT = &4 and CD_WP = &5 and CD_GRADE = &6 group by tsw.DT_SHIPSLIP ,tsw.DTS_DAY ,cnt.DTS_DAY ,tsw2.WEIGHT_WP /****************************************/ /* 確定データの日別の割合を取得(製品) */ /****************************************/ [lSearchDayRate_Customer] select tdp.DT_DERIVERY_PRODUCT DT_DATE_YYYYMMDD ,tdp.DTS_DAY ,sum(tdp.WEIGHT_DRY) WEIGHT_WP ,cnt.DTS_DAY DTS_DAY_CNT ,tdp2.WEIGHT_WP TOTALWEIGHT_WP ,TRUNC((sum(tdp.WEIGHT_DRY) / tdp2.WEIGHT_WP)*100,1) wariai from T_DERIVERY_PRODUCT tdp left join (select sum(WEIGHT_DRY) WEIGHT_WP from T_DERIVERY_PRODUCT where FLG_DELETE = 0 and DTS_YEAR = &1 and DTS_MONTH = &2 and CD_CUSTOMER = &3 and CD_DERIVERY = &4 and CD_PRODUCT = &5 and CD_GREAD = &6 --2016.02.09 KSP K.Takahashi 倉庫対応解除 Start --2014.02.06 M.Inoue 倉庫対応 start -- and CD_WAREHOUSE = &7 --2014.02.06 M.Inoue 倉庫対応 end --2016.02.09 KSP K.Takahashi 倉庫対応解除 End ) tdp2 on (1 = 1) left join (select count ( DTS_DAY ) DTS_DAY from (select DTS_DAY from T_DERIVERY_PRODUCT where FLG_DELETE = 0 and DTS_YEAR = &1 and DTS_MONTH = &2 and CD_CUSTOMER = &3 and CD_DERIVERY = &4 and CD_PRODUCT = &5 and CD_GREAD = &6 --2016.02.09 KSP K.Takahashi 倉庫対応解除 Start --2014.02.06 M.Inoue 倉庫対応 start -- and CD_WAREHOUSE = &7 --2014.02.06 M.Inoue 倉庫対応 end --2016.02.09 KSP K.Takahashi 倉庫対応解除 End group by DTS_DAY ) w ) cnt on (1 = 1) where FLG_DELETE = 0 and DTS_YEAR = &1 and DTS_MONTH = &2 and CD_CUSTOMER = &3 and CD_DERIVERY = &4 and CD_PRODUCT = &5 and CD_GREAD = &6 --2016.02.09 KSP K.Takahashi 倉庫対応解除 Start --2014.02.06 M.Inoue 倉庫対応 start -- and CD_WAREHOUSE = &7 --2014.02.06 M.Inoue 倉庫対応 end --2016.02.09 KSP K.Takahashi 倉庫対応解除 End group by tdp.DT_DERIVERY_PRODUCT ,tdp.DTS_DAY ,cnt.DTS_DAY ,tdp2.WEIGHT_WP /************************************************/ /* 棚卸データ登録NOの取得(在庫データ更新用) */ /************************************************/ [lDBGet_NO_ADJUSTMENT] select NO_ADJUSTMENT ,TO_CHAR(DT_ADJUSTMENT,'YYYYMMDD') AS DT_DATE_YYYYMMDD from T_ADJUSTMENT where DTS_YEAR = &1 and DTS_MONTH = &2 and DIV_WP_PRODUCT = &3 and (( &4 is null) or ( CD_SUPPLIER = &4 )) and (( &5 is null) or ( CD_SHIPMENT =&5 )) and (( &6 is null) or ( CD_WP =&6 )) and (( &7 is null) or ( CD_CUSTOMER = &7 )) and (( &8 is null) or ( CD_DERIVERY = &8 )) and (( &9 is null) or ( CD_PRODUCT = &9 )) and (( &10 is null) or ( CD_GREAD = &10 )) --2016.02.09 KSP K.Takahashi 倉庫対応解除 Start --2014.02.06 M.Inoue 倉庫対応 start -- and (( &11 is null) or ( CD_WAREHOUSE = &11 )) --2014.02.06 M.Inoue 倉庫対応 end --2016.02.09 KSP K.Takahashi 倉庫対応解除 End and FLG_DELETE = 0 and STOCK_WEIGHT is null and FLG_ENTRY = 0 /************************************************/ /* 棚卸データ登録NOの取得(仮登録データ削除用) */ /************************************************/ [lDBGet_No_Adjustment_Entry] select NO_ADJUSTMENT from T_ADJUSTMENT where DTS_YEAR = &1 and DTS_MONTH = &2 and DIV_WP_PRODUCT = &3 and (( &4 is null) or ( CD_SUPPLIER = &4 )) and (( &5 is null) or ( CD_SHIPMENT =&5 )) and (( &6 is null) or ( CD_WP =&6 )) and (( &7 is null) or ( CD_CUSTOMER = &7 )) and (( &8 is null) or ( CD_DERIVERY = &8 )) and (( &9 is null) or ( CD_PRODUCT = &9 )) and (( &10 is null) or ( CD_GREAD = &10 )) --2016.02.09 KSP K.Takahashi 倉庫対応解除 Start --2014.02.06 M.Inoue 倉庫対応 start -- and (( &11 is null) or ( CD_WAREHOUSE = &11 )) --2014.02.06 M.Inoue 倉庫対応 end --2016.02.09 KSP K.Takahashi 倉庫対応解除 End and FLG_DELETE = 0 and FLG_ENTRY = 1 and STOCK_WEIGHT is null --2004.03.18 konsihi 月単位の棚卸入力に変更 end