
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	 ：寄託受付
'	 作成日：2006/12/13
'	 作成者：ジャワネット
'	 目的	 ：TGA入出庫TRNの有効フラグを更新
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
	Dim Content

	Dim SakuseiKaisyaCD                   '作成会社CD
	Dim TorihikisakiCD		      '取引先CD
	Dim BunsyoSyuruiCD                    '文書種類CD
	Dim BunsyoNaiyoCD                     '文書内容CD
	Dim Syoribi                           '処理日
	
	Dim KitakuGaisyaCD                    '寄託倉庫
	Dim SenpoSyoribi                      '先方処理日(納入日)
	Dim KitakuFrom								        '寄託期間始
	Dim KitakuTo								          '寄託期間終

	Dim UntinSyogakariKubun
	UntinSyogakariKubun = Request("UntinSyogakariKubun")	'運賃諸掛区分

	Dim ShinTanka(5)
	Dim ii
	For ii = 1 To 5
		ShinTanka(ii) = Request("ShinTanka" & ii)
		If ShinTanka(ii) = "" Then
			ShinTanka(ii) = "null"
		End If
	Next

	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")	           '作成会社CD
	TorihikisakiCD = Request("TorihikisakiCD")               '取引先CD
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")	             '文書種類CD
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")							   '文書内容CD
	Syoribi = Request("Syoribi")									           '処理日
	
	'TGC寄託在庫Fのデータを更新
	'キー
	'会社CD－KitakuGaisyaCD 
	'作成会社CD－SakuseiKaisyaCD 
	'寄託依頼会社CD－KaisyaCD 
	'寄託受付番号－BunsyoNaiyoCD
	
	KitakuGaisyaCD = Request("KitakuGaisyaCD")               '寄託倉庫
	SenpoSyoribi = Request("SenpoSyoribi")									 '先方処理日
	KitakuFrom = Request("KitakuFrom")                       '寄託期間始
	KitakuTo = Request("KitakuTo")                           '寄託期間終

	Dim Kitakuriyou
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Kitakuriyou = Content.Fields("寄託倉庫利用") 
	End If

'有効フラグ更新######################################################
'作成会社と取引先を入れ替えるよう修正（小野）
'作成会社と取引先を入れ替える際に文書内容CDの採番をやり直すよう修正（小野）
'運送費買入負担時に運送単価を仕入単価に組み入れる処理を追加（小野）
'（寄託処理側は新たな入庫レコードを作らないので此処で処理する必要がある）
'TGC寄託在庫Fデータ更新##############################################

	If BunsyoSyuruiCD = "SS" AND BunsyoNaiyoCD <> "" Then

		Query = "exec SPD入出庫受付4 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'"
		Query = Query & ", '" & SakuseiKaisyaCD &"', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
		Query = Query & ", '" & KitakuGaisyaCD &"', '" & SenpoSyoribi &"', '" & KitakuFrom & "', '" & KitakuTo & "', '" & Syoribi & "'"
		Query = Query & ", " & ShinTanka(1) & ", " & ShinTanka(2) & ", " & ShinTanka(3) & ", " & ShinTanka(4) & ", " & ShinTanka(5)

'Response.Write(Query)
'Exit Sub

		Set Content = OpenQuery(Query)

		BunsyoNaiyoCD = Content.Fields(0)

	End If






'Response.Write(Query)
'Exit Sub

'		Response.Redirect("/" & HomeAlias & "/user/bk/syokaisyukei/rm_shiireuriagejisseki.asp?PageType=入庫実績")
		Response.Redirect("fd_kitaku_nyuko_view.asp?SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD)

End Sub
%>