
<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	名称	：出入庫組戻し処理
'	作成日	：2013/05/17
'	作成者	：小野
'	目的	：出入庫をキャンセルする。
'	概要	：
'################################################
'-->
%>
<%
main()
Sub main()

	If Not(SessionCheck()) Then
		Exit Sub
	End If


	Dim Query
	Dim Content

	Dim EnshuCD
	Dim EnshuName
	EnshuCD = Request("EnshuCD")
	Dim KaisyaCD
	KaisyaCD = Request("KaisyaCD")
	Dim SakuseiKaisyaCD
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	Dim NyukoKaisyaCD
	NyukoKaisyaCD = Request("NyukoKaisyaCD")
	Dim BunsyoSyuruiCD
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	Dim BunsyoNaiyoCD
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")

	Dim SenpoBunsyoSyuruiCD
	If BunsyoSyuruiCD = "SU" Then
		SenpoBunsyoSyuruiCD = "SS"
	ElseIf BunsyoSyuruiCD = "SX" Then
		SenpoBunsyoSyuruiCD = "SY"
	End If

	Dim Kitakuriyou
	If EnshuCD <> "" Then
		Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			Kitakuriyou = "" & Content.Fields("寄託倉庫利用")
		End If
	End If
	If Kitakuriyou = "1" And BunsyoSyuruiCD = "SU" Then

		'寄託の場合
		'※入庫以外は処理順に関わらず注文請書番号から完全連動のため出庫の先方書類番号に従う
		'※※未入庫の場合があるので出庫元の情報から先方書類番号を特定
		Query = "exec SPD入出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & SakuseiKaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			Query = ""
			'入庫（寄託確認）
			Query = Query & " DELETE FROM TGA入出庫明細TRN "
			Query = Query & " FROM TGA入出庫明細TRN "
			Query = Query & " INNER JOIN TGA入出庫TRN "
			Query = Query & " 	ON TGA入出庫TRN.システムCD = TGA入出庫明細TRN.システムCD "
			Query = Query & " 	AND TGA入出庫TRN.演習CD = TGA入出庫明細TRN.演習CD "
			Query = Query & " 	AND TGA入出庫TRN.会社CD = TGA入出庫明細TRN.会社CD "
			Query = Query & " 	AND TGA入出庫TRN.作成会社CD = TGA入出庫明細TRN.作成会社CD "
			Query = Query & " 	AND TGA入出庫TRN.文書種類CD = TGA入出庫明細TRN.文書種類CD "
			Query = Query & " 	AND TGA入出庫TRN.文書内容CD = TGA入出庫明細TRN.文書内容CD "
			Query = Query & " WHERE TGA入出庫TRN.システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND TGA入出庫TRN.演習CD = '" & EnshuCD & "' "
			Query = Query & " 	AND TGA入出庫TRN.会社CD = '" & NyukoKaisyaCD & "' " '入庫は入庫会社
			Query = Query & " 	AND TGA入出庫TRN.作成会社CD = '" & NyukoKaisyaCD & "' " '入庫は入庫会社
			Query = Query & " 	AND TGA入出庫TRN.文書種類CD = '" & SenpoBunsyoSyuruiCD & "' " '入庫（SS or SY）
			Query = Query & " 	AND TGA入出庫TRN.取引先CD = '" & SakuseiKaisyaCD & "' " '取引先が出庫会社
			Query = Query & " 	AND TGA入出庫TRN.先方文書内容CD = '" & BunsyoNaiyoCD & "' " '入庫は出庫番号と連動
			Query = Query & " DELETE FROM TGA入出庫TRN "
			Query = Query & " WHERE TGA入出庫TRN.システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND TGA入出庫TRN.演習CD = '" & EnshuCD & "' "
			Query = Query & " 	AND TGA入出庫TRN.会社CD = '" & NyukoKaisyaCD & "' " '入庫は入庫会社
			Query = Query & " 	AND TGA入出庫TRN.作成会社CD = '" & NyukoKaisyaCD & "' " '入庫は入庫会社
			Query = Query & " 	AND TGA入出庫TRN.文書種類CD = '" & SenpoBunsyoSyuruiCD & "' " '入庫（SS or SY）
			Query = Query & " 	AND TGA入出庫TRN.取引先CD = '" & SakuseiKaisyaCD & "' " '取引先が出庫会社
			Query = Query & " 	AND TGA入出庫TRN.先方文書内容CD = '" & BunsyoNaiyoCD & "' " '入庫は出庫番号と連動
			'出庫
			Query = Query & " DELETE FROM TGA入出庫明細TRN "
			Query = Query & " FROM TGA入出庫明細TRN "
			Query = Query & " INNER JOIN TGA入出庫TRN "
			Query = Query & " 	ON TGA入出庫TRN.システムCD = TGA入出庫明細TRN.システムCD "
			Query = Query & " 	AND TGA入出庫TRN.演習CD = TGA入出庫明細TRN.演習CD "
			Query = Query & " 	AND TGA入出庫TRN.会社CD = TGA入出庫明細TRN.会社CD "
			Query = Query & " 	AND TGA入出庫TRN.文書種類CD = TGA入出庫明細TRN.文書種類CD "
			Query = Query & " 	AND TGA入出庫TRN.文書内容CD = TGA入出庫明細TRN.文書内容CD "
			Query = Query & " WHERE TGA入出庫TRN.システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND TGA入出庫TRN.演習CD = '" & EnshuCD & "' "
			Query = Query & " 	AND TGA入出庫TRN.作成会社CD = '" & SakuseiKaisyaCD & "' "
			Query = Query & " 	AND TGA入出庫TRN.文書種類CD = '" & BunsyoSyuruiCD & "' " '出庫（SU or SX）
			Query = Query & " 	AND TGA入出庫TRN.先方文書内容CD = '" & Content.Fields("先方文書内容CD") & "' " '注文請書番号から連動
			Query = Query & " DELETE FROM TGA入出庫TRN "
			Query = Query & " WHERE TGA入出庫TRN.システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND TGA入出庫TRN.演習CD = '" & EnshuCD & "' "
			Query = Query & " 	AND TGA入出庫TRN.作成会社CD = '" & SakuseiKaisyaCD & "' "
			Query = Query & " 	AND TGA入出庫TRN.文書種類CD = '" & BunsyoSyuruiCD & "' " '出庫（SU or SX）
			Query = Query & " 	AND TGA入出庫TRN.先方文書内容CD = '" & Content.Fields("先方文書内容CD") & "' " '注文請書番号から連動
			'寄託在庫
			Query = Query & " DELETE FROM TGC寄託在庫明細F "
			Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
			Query = Query & " 	AND 作成会社CD = '" & SakuseiKaisyaCD & "' "
			Query = Query & " 	AND 寄託依頼会社CD = '" & Content.Fields("取引先CD") & "' "
			Query = Query & " 	AND 寄託受付番号 = '" & Content.Fields("先方文書内容CD") & "' " '注文請書番号から連動
			Query = Query & " DELETE FROM TGC寄託在庫F "
			Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
			Query = Query & " 	AND 作成会社CD = '" & SakuseiKaisyaCD & "' "
			Query = Query & " 	AND 寄託依頼会社CD = '" & Content.Fields("取引先CD") & "' "
			Query = Query & " 	AND 寄託受付番号 = '" & Content.Fields("先方文書内容CD") & "' " '注文請書番号から連動
			'受発信文書
			Query = Query & " DELETE FROM TTX文書F "
			Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
			Query = Query & " 	AND 作成会社CD = '" & SakuseiKaisyaCD & "' "
			Query = Query & " 	AND (文書種類CD = 'KS' OR 文書種類CD = 'KU') " '寄託出庫依頼と注文請書
			Query = Query & " 	AND 文書内容CD = '" & Content.Fields("先方文書内容CD") & "' " '注文請書番号から連動
			'仕入販売書類
			Query = Query & " DELETE FROM TSA仕入売上書類明細F "
			Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
			Query = Query & " 	AND 作成会社CD = '" & SakuseiKaisyaCD & "' "
			Query = Query & " 	AND (文書種類CD = 'KS' OR 文書種類CD = 'KU') " '寄託出庫依頼と注文請書
			Query = Query & " 	AND 文書内容CD = '" & Content.Fields("先方文書内容CD") & "' " '注文請書番号から連動
			Query = Query & " DELETE FROM TSA仕入売上書類F "
			Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
			Query = Query & " 	AND 作成会社CD = '" & SakuseiKaisyaCD & "' "
			Query = Query & " 	AND (文書種類CD = 'KS' OR 文書種類CD = 'KU') " '寄託出庫依頼と注文請書
			Query = Query & " 	AND 文書内容CD = '" & Content.Fields("先方文書内容CD") & "' " '注文請書番号から連動
			Set Content = OpenQuery(Query)
		End If

	Else '返品（寄託も含む）

		'Query = "exec SPD入出庫非受付 '" & GB_SystemCD & "',"
		Query = "exec SPD出入庫組戻 '" & GB_SystemCD & "',"
		Query = Query & " '" & EnshuCD & "'"			'演習CD
		'Query = Query & ",'" & KaisyaCD & "'"			'会社CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"	'出庫会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"		'文書種類CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"		'文書内容CD
		Set Content = OpenQuery(Query)

	End If

	Response.Redirect("fm_enshucontrol02.asp?EnshuCD=" & EnshuCD)


End Sub
%>