--消費税算出区分、製品単価の取得
[lDBSearchDivtax_Unitprice]
select DIV_TAX, UNIT_PRICE_PRODUCT
	from M_DERIVERY_PRODUCT MDP
--#24303 2022.06.18 MOD STT
--   		,M_DERIVERY MD
   		left join M_DERIVERY MD on (
	      MDP.CD_DERIVERY =  MD.CD_DERIVERY
	  and MD.DT_START    <= '&3'
	  and MD.DT_END      >= '&3'
	  and MD.FLG_DELETE   = 0 
		)
--#24303 2022.06.18 MOD END
	where MDP.CD_DERIVERY = '&1'
	  and MDP.CD_PRODUCT  = '&2'
--#24303 2022.06.18 MOD STT
--	  and MDP.CD_DERIVERY =  MD.CD_DERIVERY(+)
--#24303 2022.06.18 MOD END
	  and MDP.DT_START   <= '&3'
	  and MDP.DT_END     >= '&3'
--#24303 2022.06.18 MOD STT
--	  and MD.DT_START    <= '&3'
--	  and MD.DT_END      >= '&3'
--	  and MD.FLG_DELETE   = 0 
--#24303 2022.06.18 MOD END



--出荷記録明細画面表示
[lDBSearchHistoryShip]
select to_char(DT_SHIP_PRODUCT,'yyyy/mm/dd') DT_SHIP_PRODUCT
	 , DTS_SHIP_PRODUCT_YEAR  , DTS_SHIP_PRODUCT_MONTH    , DTS_SHIP_PRODUCT_DAY
     , to_char(DT_DUE_ARRIVAL,'yyyymmdd') DT_DUE_ARRIVAL
     , NO_MOIST
     , TSP.CD_CUSTOMER_SEND  
	 , TSP.CD_DERIVERY_SEND 
	 , TSP.CD_PRODUCT_SEND  
	 , MD.DIV_WEIGHT_DRIED
	 , TSP.CD_GREAD_SEND 
--2014.03.11 M.Inoue Start
	 , coales(TSP.FLG_FCS,0) FLG_FCS
--2014.03.11 M.Inoue End
     , NAME_CUSTOMER
     , NAME_DERIVERY
     , NAME_PRODUCT			,DIV_WEIGHT_DRIED   ,DIV_TAX
     , NAME_GREAD
     , NO_SHIP_PRODUCT_SLIP
     , NO_SALE
     , (case(MD.DIV_WEIGHT_DRIED)when(4)then(10800)else(WEIGHT_DRY_DISP)end) WEIGHT_DRY
--     , decode(MD.DIV_WEIGHT_DRIED,4,12000,sum(WEIGHT_DRY_DISP))  WEIGHT_DRY
     , MDP.UNIT_PRICE_PRODUCT
	from  T_SHIP_PRODUCT TSP
--#24303 2022.06.18 MOD STT
--		, M_CUSTOMER MC
--		, M_DERIVERY MD
--		, M_GREAD MG
--		, M_PRODUCT MP
--	    , M_DERIVERY_PRODUCT MDP
		left join M_CUSTOMER MC on (
	      TSP.CD_CUSTOMER_SEND  =  MC.CD_CUSTOMER
	  and MC.DT_START     <= TSP.DT_SHIP_PRODUCT
	  and MC.DT_END       >= TSP.DT_SHIP_PRODUCT
		)
		left join M_DERIVERY MD on (
	      TSP.CD_DERIVERY_SEND  =  MD.CD_DERIVERY
	  and MD.DT_START     <= TSP.DT_SHIP_PRODUCT
	  and MD.DT_END       >= TSP.DT_SHIP_PRODUCT
		)
		left join M_GREAD MG on (
	      TSP.CD_GREAD_SEND     =  MG.CD_GRADE
		)
		left join M_PRODUCT MP on (
	      TSP.CD_PRODUCT_SEND   =  MP.CD_PRODUCT
	  and MP.DT_START     <= TSP.DT_SHIP_PRODUCT
	  and MP.DT_END       >= TSP.DT_SHIP_PRODUCT
		)
	    left join M_DERIVERY_PRODUCT MDP on (
	      TSP.CD_DERIVERY_SEND  =  MDP.CD_DERIVERY
	  and TSP.CD_PRODUCT_SEND   =  MDP.CD_PRODUCT
	  and MDP.DT_START    <= TSP.DT_SHIP_PRODUCT
	  and MDP.DT_END      >= TSP.DT_SHIP_PRODUCT
		)
--#24303 2022.06.18 MOD END
	where TSP.DTS_SHIP_PRODUCT_YEAR  = '&1'
--#24303 2022.06.18 MOD STT
--	  and (('&2' is null) or (TSP.DTS_SHIP_PRODUCT_MONTH = '&2'))
--	  and (('&3' is null) or (TSP.DTS_SHIP_PRODUCT_DAY = '&3'))
--	  and (('&4' is null) or (TSP.NO_MOIST         = '&4'))
--	  and (('&5' is null) or (TSP.CD_CUSTOMER_SEND = '&5'))
--	  and (('&6' is null) or (TSP.CD_GREAD_SEND    = '&6'))
--	  and (('&7' is null) or (TSP.CD_DERIVERY_SEND = '&7'))
--	  and (('&8' is null) or (TSP.CD_PRODUCT_SEND = '&8'))
	  and (('&2' = '') or (TSP.DTS_SHIP_PRODUCT_MONTH = '&2'))
	  and (('&3' = '') or (TSP.DTS_SHIP_PRODUCT_DAY = '&3'))
	  and (('&4' = '') or (TSP.NO_MOIST         = to_number('&4')))
	  and (('&5' = '') or (TSP.CD_CUSTOMER_SEND = to_number('&5')))
	  and (('&6' = '') or (TSP.CD_GREAD_SEND    = to_number('&6')))
	  and (('&7' = '') or (TSP.CD_DERIVERY_SEND = to_number('&7')))
	  and (('&8' = '') or (TSP.CD_PRODUCT_SEND = to_number('&8')))
--#24303 2022.06.18 MOD END
	  and (( TSP.NO_SALE  is  null) or (TSP.NO_SALE <= 0))
--	  and (( '&3' is null ) or (TSP.NO_SHIP_PRODUCT_SLIP = '&3'))
	  and TSP.FLG_DELETE        = 0
--#24303 2022.06.18 MOD STT
--	  and TSP.CD_CUSTOMER_SEND  =  MC.CD_CUSTOMER(+)
--	  and TSP.CD_DERIVERY_SEND  =  MD.CD_DERIVERY(+)
--	  and TSP.CD_PRODUCT_SEND   =  MP.CD_PRODUCT(+)
--	  and TSP.CD_GREAD_SEND     =  MG.CD_GRADE(+)
--	  and TSP.CD_DERIVERY_SEND  =  MDP.CD_DERIVERY(+)
--	  and TSP.CD_PRODUCT_SEND   =  MDP.CD_PRODUCT(+)
--	  and MC.DT_START     <= TSP.DT_SHIP_PRODUCT
--	  and MC.DT_END       >= TSP.DT_SHIP_PRODUCT
--	  and MD.DT_START     <= TSP.DT_SHIP_PRODUCT
--	  and MD.DT_END       >= TSP.DT_SHIP_PRODUCT
--	  and MP.DT_START     <= TSP.DT_SHIP_PRODUCT
--	  and MP.DT_END       >= TSP.DT_SHIP_PRODUCT
--	  and MDP.DT_START    <= TSP.DT_SHIP_PRODUCT
--	  and MDP.DT_END      >= TSP.DT_SHIP_PRODUCT
--#24303 2022.06.18 MOD END

	 group by DT_SHIP_PRODUCT
	 	    , DTS_SHIP_PRODUCT_YEAR , DTS_SHIP_PRODUCT_MONTH, DTS_SHIP_PRODUCT_DAY
	 		, DT_DUE_ARRIVAL
	 		, NO_MOIST
	 		, TSP.CD_CUSTOMER_SEND 
	 		, TSP.CD_DERIVERY_SEND 
	 		, TSP.CD_PRODUCT_SEND  
	 		, TSP.CD_GREAD_SEND   
	 		, NAME_CUSTOMER
	 		, NAME_DERIVERY
	 		, NAME_PRODUCT		,DIV_WEIGHT_DRIED  ,DIV_TAX
	 		, NAME_GREAD
	 		, NO_SHIP_PRODUCT_SLIP ,WEIGHT_DRY_DISP
	 		, NO_SALE         
	 --		, WEIGHT_DRY
	 		, MDP.UNIT_PRICE_PRODUCT
	 		, TSP.FLG_FCS
     order by DT_SHIP_PRODUCT  , DT_DUE_ARRIVAL  , NO_MOIST 


--売上記録検索画面表示用データ取得	
[lDBselectsale]
select TS.NO_SALE		
	  ,TS.DTS_YEAR      ,TS.DTS_MONTH      ,TS.DTS_DAY		
--2014.04.08 M.Inoue Start
	  --,to_char(TS.DT_SALE	,'yyyymmdd') DT_SALE
	  ,to_char(TS.DT_SALE	,'yyyy/mm/dd') DT_SALE
--2014.04.08 M.Inoue End
  	  ,TS.DIV_SALE
	  ,TS.CD_CUSTOMER   ,MC.NAME_CUSTOMER
	  ,TS.CD_DERIVERY   ,MD.NAME_DERIVERY
	  ,TS.CD_PRODUCT    ,MP.NAME_PRODUCT
	  ,TS.CD_GREAD      ,MG.NAME_GREAD
--2016.06.12 chg KSP K.Takahashi 調整の場合調整額を表示する。 --------- Start
--2014.03.11 M.Inoue Start
--	  ,TS.MONEY_SALE    
	  ,(case(TS.DIV_SALE)when('1')then(TS.MONEY_ADJUST)else(TS.MONEY_SALE)end) MONEY_SALE
--2014.03.11 M.Inoue End
--2016.06.12 chg KSP K.Takahashi 調整の場合調整額を表示する。 ---------   End
	  ,TS.NOTE
	  ,TSP.NO_MOIST
--2016.10.29 KSP K.Takahashi 表示項目追加 ---------- Start
	  ,TS.UNIT_PRICE_SALE
	  ,TS.WEIGHT_SALE
	  ,TS.MONEY_FREIGHT
	  ,TS.TOTAL_MONEY
--2016.10.29 KSP K.Takahashi 表示項目追加 ----------   End
	 from T_SALE TS     
--#24303 2022.06.18 MOD STT
--	     ,M_CUSTOMER MC 
--		 ,M_DERIVERY MD 
--	     ,M_PRODUCT MP
--	  	 ,M_GREAD MG
--	  	 ,T_SHIP_PRODUCT TSP
	    left join M_CUSTOMER MC on (
	      TS.CD_CUSTOMER = MC.CD_CUSTOMER
	  and TS.DT_SALE    >= MC.DT_START
	  and TS.DT_SALE    <= MC.DT_END
		)
		left join M_DERIVERY MD on (
	      TS.CD_DERIVERY = MD.CD_DERIVERY
	  and TS.DT_SALE    >= MD.DT_START
	  and TS.DT_SALE    <= MD.DT_END
		)
	    left join M_PRODUCT MP on (
	      TS.CD_PRODUCT  = MP.CD_PRODUCT
	  and TS.DT_SALE    >= MP.DT_START
	  and TS.DT_SALE    <= MP.DT_END
		)
	  	left join M_GREAD MG on (
	      TS.CD_GREAD    = MG.CD_GRADE
		)
	  	left join T_SHIP_PRODUCT TSP on (
 	      TS.NO_SALE = TSP.NO_SALE
		)
--#24303 2022.06.18 MOD END
	where TS.DTS_YEAR  = '&1'
--#24303 2022.06.18 MOD STT
--	  and (('&2' is null ) or (TS.DTS_MONTH = '&2'))
--	  and (( '&3' is null ) or (TS.DTS_DAY     = '&3' ))
--	  and (( '&4' is null ) or (TS.DIV_SALE    = '&4' ))
--	  and (( '&5' is null ) or (TS.CD_CUSTOMER = '&5' ))
--	  and (( '&6' is null ) or (TS.CD_GREAD    = '&6' ))
--	  and (('&7' is null) or (TS.CD_DERIVERY    = '&7'))
--	  and (('&8' is null) or (TS.CD_PRODUCT    = '&8'))
	  and (('&2' = '' ) or (TS.DTS_MONTH = to_number('&2') ))
	  and (( '&3' = '' ) or (TS.DTS_DAY     = to_number('&3') ))
	  and (( '&4' = '' ) or (TS.DIV_SALE    = to_number('&4') ))
	  and (( '&5' = '' ) or (TS.CD_CUSTOMER = to_number('&5') ))
	  and (( '&6' = '' ) or (TS.CD_GREAD    = to_number('&6') ))
	  and (('&7' = '') or (TS.CD_DERIVERY    = to_number('&7') ))
	  and (('&8' = '') or (TS.CD_PRODUCT    = to_number('&8') ))
--#24303 2022.06.18 MOD END
	  and TS.FLG_DELETE  = 0
--#24303 2022.06.18 MOD STT
--	  and TS.CD_CUSTOMER = MC.CD_CUSTOMER(+)
--	  and TS.CD_DERIVERY = MD.CD_DERIVERY(+)
--	　and TS.CD_PRODUCT  = MP.CD_PRODUCT(+)
--	  and TS.CD_GREAD    = MG.CD_GRADE(+)
--	  and TS.DT_SALE    >= MC.DT_START
--	  and TS.DT_SALE    <= MC.DT_END
--	  and TS.DT_SALE    >= MD.DT_START
--	  and TS.DT_SALE    <= MD.DT_END
--	  and TS.DT_SALE    >= MP.DT_START
--	  and TS.DT_SALE    <= MP.DT_END
--2016.04.26 TAKEDA MOD STT
--完全結合に理由があるのか？
-- 	  and TS.NO_SALE = TSP.NO_SALE
--	  and TS.NO_SALE = TSP.NO_SALE(+)
--2016.04.26 TAKEDA MOD END
--#24303 2022.06.18 MOD END
	  group by TS.NO_SALE		
	  ,TS.DTS_YEAR      ,TS.DTS_MONTH      ,TS.DTS_DAY		, DT_SALE
  	  ,TS.DIV_SALE
	  ,TS.CD_CUSTOMER   ,MC.NAME_CUSTOMER
	  ,TS.CD_DERIVERY   ,MD.NAME_DERIVERY
	  ,TS.CD_PRODUCT    ,MP.NAME_PRODUCT
	  ,TS.CD_GREAD      ,MG.NAME_GREAD
	  ,(case(TS.DIV_SALE)when('1')then(TS.MONEY_ADJUST)else(TS.MONEY_SALE)end)
	  ,TS.NOTE
	  ,TSP.NO_MOIST
	  ,TS.FLG_FCS
--2016.10.29 KSP K.Takahashi 表示項目追加 ---------- Start
	  ,TS.UNIT_PRICE_SALE
	  ,TS.WEIGHT_SALE
	  ,TS.MONEY_FREIGHT
	  ,TS.TOTAL_MONEY
--2016.10.29 KSP K.Takahashi 表示項目追加 ----------   End
	order by TS.DT_SALE desc ,TS.NO_SALE desc


--売上明細表示
[lDBselectsaleDisp]
select TS.NO_SALE		
	  ,TS.DTS_YEAR
      ,TS.DTS_MONTH
      ,TS.DTS_DAY
  	  ,to_char(TS.DT_SALE,'yyyymmdd') DT_SALE                       
  	  ,TS.DIV_SALE
	  ,TS.CD_CUSTOMER  
	  ,TS.CD_DERIVERY  
	  ,TS.CD_PRODUCT    
	  ,TS.CD_GREAD 
      ,TS.UNIT_PRICE_SALE
      ,TS.WEIGHT_SALE 
	  ,TS.MONEY_SALE   
  	  ,TS.TAX 
	  ,TS.RATE_TAX
	  ,TS.PRICE_UNIT_FREIGHT
	  ,TS.MONEY_FREIGHT 
	  ,TS.MONEY_ADJUST
	  ,TS.TOTAL_MONEY
	  ,TS.NOTE
--2014.03.11 M.Inoue start
	  ,TS.MONEY_FRACTION_ADJUST
	  ,coalesce(TS.FLG_FCS,0) FLG_FCS
--2014.03.11 M.Inoue end
	  ,TSP.NO_SHIP_PRODUCT_SLIP
	  ,TSP.DTS_SHIP_PRODUCT_YEAR
	  ,TSP.DTS_SHIP_PRODUCT_MONTH
	  ,TSP.DTS_SHIP_PRODUCT_DAY
	  ,TSP.DT_SHIP_PRODUCT
	  ,TSP.NO_MOIST
	  ,MD.DIV_TAX
	 from T_SALE TS     
--#24303 2022.06.18 MOD STT
--		 ,T_SHIP_PRODUCT TSP
--	 	 ,M_DERIVERY MD	
	 	inner join M_DERIVERY MD on (
	      TS.CD_DERIVERY = MD.CD_DERIVERY
		)
		left join T_SHIP_PRODUCT TSP on (
	      TS.NO_SALE     = TSP.NO_SALE
		)
--#24303 2022.06.18 MOD END
	where TS.DT_SALE     = '&1'
	  and TS.NO_SALE     = '&2'
	  and TS.FLG_DELETE  = 0
--#24303 2022.06.18 MOD STT
--	  and TS.NO_SALE     = TSP.NO_SALE(+)
--	  and TS.CD_DERIVERY = MD.CD_DERIVERY
--#24303 2022.06.18 MOD END

--売上データ登録	
[lDBInsertsale]
insert into T_SALE(
			 NO_SALE                    --売上登録No
			,DT_SALE                    --売上日付
			,DTS_YEAR                   --売上年
			,DTS_MONTH                  --売上月
			,DTS_DAY                    --売上日
			,DIV_SALE                   --売上区分
			,CD_CUSTOMER                --得意先コード
			,CD_DERIVERY                --納品先コード
			,CD_PRODUCT                 --製品コード
			,CD_GREAD                   --グレードコード
			,UNIT_PRICE_SALE            --売上単価
			,WEIGHT_SALE                --売上重量
			,MONEY_SALE                 --売上金額
			,MONEY_ADJUST               --調整金額
			,RATE_TAX                   --消費税率
			,TAX                        --消費税額
			,PRICE_UNIT_FREIGHT         --単位当たり運賃
			,MONEY_FREIGHT              --運賃
			,TOTAL_MONEY                --合計額
			,NOTE                       --備考
			,FLG_DELETE                 --削除フラグ
			,ID_REGIST                  --登録端末ＩＤ
--2014.03.11 M.Inoue start
			,MONEY_FRACTION_ADJUST      --端数調整額
			,FLG_FCS					--FSCフラグ
--2014.03.11 M.Inoue end
			,ID_UPDATE                  --修正端末ＩＤ
			,ID_DELETE                  --削除端末ＩＤ
			,DT_REGIST                  --登録日
			,DT_UPDATE                  --修正日
			,DT_DELETE                  --削除日   

)values(
		  '&1'							                           --売上登録No
		, '&2'							                           --売上日付
		, '&3'							                           --売上年
		, '&4'							                           --売上月
		, '&5'							                           --売上日
		, '&6'							                           --売上区分
		, '&7'							                           --得意先コード
		, '&8'							                           --納品先コード
		, '&9'							                           --製品コード
		, '&10'							                           --グレードコード
		, '&11'							                           --売上単価
		, to_number('&12')							                           --売上重量
		, '&13'							                           --売上金額
		, to_number('&14')							                           --調整金額
		, '&15'							                           --消費税率
		, '&16'							                           --消費税額
		, to_number('&17')							                           --単位当たり運賃
		, '&18'							                           --運賃
		, '&19'						                               --合計額
		, to_number('&20')							                           --備考
		, 0 							                           --削除フラグ
		, '&21'							                           --登録端末ＩＤ
--2014.03.11 M.Inoue Start
		, to_number('&25')							                           --端数調整額
		, to_number('&26')							                           --FSCフラグ
--2014.03.11 M.Inoue End
		, null							                           --修正端末ＩＤ
		, null							                           --削除端末ＩＤ
		, now()						                           --登録日
		, null							                           --修正日
		, null							                           --削除日   

)

[lDBUpdateCRTkanri]
--#24447 2022.06.18 MOD STT
--declare begin NSP_PacMain.recalcCRTStockRange( '&21', '&3'||lpad('&4',2,'0')||'&5' , '&3'||lpad('&4',2,'0') );end;
select recalcCRTStockRange( '&21', '&3'||lpad('&4',2,'0')||'&5' , '&3'||lpad('&4',2,'0') )
--#24447 2022.06.18 MOD END


--売上データ更新
[lDBUpdateSale]
  update T_SALE set
			 NO_SALE             =  '&1'		          --売上登録No
			,DT_SALE             =  '&2'		          --売上日付
			,DTS_YEAR            =  '&3'		          --売上年
			,DTS_MONTH           =  '&4'		          --売上月
			,DTS_DAY             =  '&5'		          --売上日
			,DIV_SALE            =  '&6'		          --売上区分
			,CD_CUSTOMER         =  '&7'		          --得意先コード
			,CD_DERIVERY         =  '&8'		          --納品先コード
			,CD_PRODUCT          =  '&9'		          --製品コード
			,CD_GREAD            =  '&10'		          --グレードコード
			,UNIT_PRICE_SALE     =  '&11'		          --売上単価
			,WEIGHT_SALE         =  '&12'		          --売上重量
			,MONEY_SALE          =  '&13'		          --売上金額
			,MONEY_ADJUST        =  '&14'		          --調整金額
			,RATE_TAX            =  '&15'		          --消費税率
			,TAX                 =  '&16'		          --消費税額
			,PRICE_UNIT_FREIGHT  =  '&17'		          --単位当たり運賃
			,MONEY_FREIGHT       =  '&18'		          --運賃
			,TOTAL_MONEY         =  '&19'		          --合計額
			,NOTE                =  '&20'		          --備考
			,FLG_DELETE          =  0 			      	  --削除フラグ
--			,ID_REGIST           =   		  		    	    --登録端末ＩＤ
			,ID_UPDATE           =  '&21'		          --修正端末ＩＤ
--2014.03.11 M.Inoue start
			,MONEY_FRACTION_ADJUST = '&25'				  --端数調整額
			,FLG_FCS             = '&26'				  --FSCフラグ
--2014.03.11 M.Inoue end
			,ID_DELETE           =  null		          --削除端末ＩＤ
--			,DT_REGIST           =  sysdate		    	  	  --登録日
-- #24795 問題なさそうだけど、念のためミリ秒切り捨て
			,DT_UPDATE           =  date_trunc('second', now())		          --修正日
--			,DT_UPDATE           =  now()		          --修正日
			,DT_DELETE           =  null	              --削除日 
	where   NO_SALE              = '&1'	 				  --売上登録No	  


--売上データ削除
[lDBdeleteSale]
update T_SALE set
		  FLG_DELETE            = 1					 -- 削除フラグ
		, ID_DELETE             = '&21'				 -- 削除端末ＩＤ
-- #24795 問題なさそうだけど、念のためミリ秒切り捨て
		, DT_DELETE             =  date_trunc('second', now())		          --修正日
--		, DT_DELETE             = now()				 -- 修正日
	where NO_SALE       		= '&1'				 -- 売上登録No



--製品払出データの更新
[lDBUpdateShipProduct]
update T_SHIP_PRODUCT set
		 NO_SALE   		= '&1'
		,ID_UPDATE 		= '&21'
		-- #24795 問題なさそうだけど、念のためミリ秒切り捨て
		,DT_UPDATE 		= date_trunc('second', now())
--		,DT_UPDATE 		= now()
	where DT_SHIP_PRODUCT	= to_date( '&22' ,'yyyymmdd')
	  and coalesce(NO_MOIST,0)     	= to_number('&23')
	  and coalesce(NO_SHIP_PRODUCT_SLIP,0) = to_number('&24')


--製品払出データの更新(売上Noの取消）
[lDBUpdateShipProductRe]
update T_SHIP_PRODUCT set
		 NO_SALE   		= null
		,ID_UPDATE 		= '&21'
-- #24795 問題なさそうだけど、念のためミリ秒切り捨て
		,DT_UPDATE 		= date_trunc('second', now())
--		,DT_UPDATE 		= now()
--	where DT_SHIP_PRODUCT	= to_date( '&22' ,'yyyy/mm/dd')
	where DT_SHIP_PRODUCT	= to_date( '&22' ,'yyyymmdd')
	  and coalesce(NO_MOIST,0)     	= to_number('&23')
	  and coalesce(NO_SHIP_PRODUCT_SLIP,0) = to_number('&24')