
<!-- #include file="../../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	 ：寄託倉庫在庫処理
'	 作成日：2006/12/20
'	 作成者：Javanet
'	 目的	 ：寄託倉庫の在庫を有効にする

'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
	Dim Content
	
	Dim SakuseiKaisyaCD                            '作成会社CD
	Dim KitakuIraiKaisyaCD                         '寄託依頼会社CD
	Dim KitakuNo                                   '寄託受付番号
	Dim NyukoDay                                   '入庫年月日
	
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	KitakuIraiKaisyaCD = Request("KitakuIraiKaisyaCD")
	KitakuNo = Request("KitakuNo")
	NyukoDay = Request("NyukoDay")

	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
	
'有効フラグ更新############################################################

	If KitakuNo <> "" Then

		Query = "UPDATE TGC寄託在庫F SET 有効フラグ=1 "
		Query = Query & "," & "入庫年月日 = '" & NyukoDay & "'"
		Query = Query & " WHERE "
	  Query = Query & " システムCD = '" & GB_SystemCD & "' AND "
	  Query = Query & " 演習CD = '" & EnshuCD & "' AND "
	  Query = Query & " 会社CD = '" & KaisyaCD & "' AND "
	  Query = Query & " 作成会社CD = '" & SakuseiKaisyaCD & "' AND "
	  Query = Query & " 寄託依頼会社CD = '" & KitakuIraiKaisyaCD & "' AND "
	  Query = Query & " 寄託受付番号 = '" & KitakuNo & "'"

		Set Content = db.Execute(Query)
		
	End If

	Response.Write("fu_kitaku_nyuko_view.asp")
	
'Exit Sub

	Response.Redirect("fu_kitaku_nyuko_view.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&KitakuIraiKaisyaCD=" & KitakuIraiKaisyaCD & "&KitakuNo=" & KitakuNo )

End Sub
%>