
<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	名称	：製造組戻し処理
'	作成日	：2016/03/28
'	作成者	：小野
'	目的	：製造をキャンセルする。
'	概要	：材料出庫～商品入庫をキャンセル
'################################################
'-->
%>
<%
main()
Sub main()

	If Not(SessionCheck()) Then
		Exit Sub
	End If


	Dim Query
	Dim Content
	Dim Content2

	Dim EnshuCD
	Dim EnshuName
	EnshuCD = Request("EnshuCD")
	Dim KaisyaCD
	KaisyaCD = Request("KaisyaCD")
	Dim BunsyoNaiyoCD
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	Dim BunsyoSyuruiCD
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")

	Dim BunsyoNaiyoZU	'材料出庫
	Dim BunsyoNaiyoPS	'仕掛品入庫
	Dim BunsyoNaiyoPU	'仕掛品出庫
	Dim BunsyoNaiyoMS	'製品入庫
	Dim BunsyoNaiyoMU	'製品出庫
	Dim BunsyoNaiyoSS	'仕入入庫


'TGD製造指図書F
'材料出庫CD・商品入庫CD
'ZU：材料出庫	材料出庫CD
'PS：仕掛品入庫	材料出庫CD（ZUと同時に作られるため常に同じCD）
'PU：仕掛品出庫	MSの先方書類
'MS：製品入庫	商品入庫CD
'MU：製品出庫	MSを先方書類に持つ書類（出庫は複数に分けることが可能なため）
'SS：仕入入庫	MUを先方書類に持つ書類（常にMUと同レコード数になるがCDは同じではない）
'ZUは完結。他はMSから前後に辿る。

'TSK補助簿_原価計算表F
'TGD製造指図書F.文書内容CDに従う

'TSK補助簿_製造間接費配賦表F
'製造指図書単位ではないため組戻し不能


	'製品入庫の文書内容CDを取得
	Query = "exec SPD製造指図書取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & BunsyoNaiyoCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		BunsyoNaiyoZU = "" & Content.Fields("材料出庫CD")
		BunsyoNaiyoPS = "" & Content.Fields("材料出庫CD") '仕掛品入庫の文書内容CDは材料出庫と常に同じ
		If "" & Content.Fields("製造状況区分") = "MS" Then
			BunsyoNaiyoMS = "" & Content.Fields("商品入庫CD")
			If BunsyoNaiyoMS <> "" Then
				'仕掛品出庫の文書内容CDを取得（製品入庫の先方文書内容CDを逆引き）
				Query = ""
				Query = Query & "  "
				Query = Query & " SELECT * FROM TGA入出庫TRN "
				Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
				Query = Query & " 	AND 文書種類CD = 'MS' AND 文書内容CD = '" & BunsyoNaiyoMS & "' AND 先方文書種類CD = 'PU' "
				Set Content = OpenQuery(Query)
				If Not(Content.BOF Or Content.EOF) Then
					BunsyoNaiyoPU = "" & Content.Fields("先方文書内容CD")
'					If BunsyoNaiyoPU <> "" Then
						'※※※仕掛品入庫の文書内容CDは材料出庫と常に同じなのでここでは取得不要※※※
						'仕掛品入庫の文書内容CDを取得（仕掛品出庫の先方文書内容CDを逆引き）
'						Query = ""
'						Query = Query & "  "
'						Query = Query & " SELECT * FROM TGA入出庫TRN "
'						Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
'						Query = Query & " 	AND 文書種類CD = 'PU' AND 文書内容CD = '" & BunsyoNaiyoPU & "' AND 先方文書種類CD = 'PS' "
'						Set Content = OpenQuery(Query)
'						If Not(Content.BOF Or Content.EOF) Then
'							BunsyoNaiyoPS = "" & Content.Fields("先方文書内容CD")
'						End If
'					End If
				End If
				'製品出庫の文書内容CDを取得（製品入庫を先方文書内容CDに持つ書類）
				Query = ""
				Query = Query & "  "
				Query = Query & " SELECT * FROM TGA入出庫TRN "
				Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
				Query = Query & " 	AND 文書種類CD = 'MU' AND 先方文書種類CD = 'MS' AND 先方文書内容CD = '" & BunsyoNaiyoMS & "' "
				Set Content = OpenQuery(Query)
				Do While Not(Content.BOF Or Content.EOF)
					'複数存在する可能性が在るので羅列に取得
					If "" & Content.Fields("文書内容CD") <> "" Then
						If BunsyoNaiyoMU <> "" Then
							BunsyoNaiyoMU = BunsyoNaiyoMU & ","
						End If
						BunsyoNaiyoMU = BunsyoNaiyoMU & "'" & Content.Fields("文書内容CD") & "'"
						'仕入入庫の文書内容CDを取得（製品出庫を先方文書内容CDに持つ書類）
						Query = ""
						Query = Query & "  "
						Query = Query & " SELECT * FROM TGA入出庫TRN "
						Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
						Query = Query & " 	AND 文書種類CD = 'SS' AND 先方文書種類CD = 'MU' AND 先方文書内容CD = '" & Content.Fields("文書内容CD") & "' "
						Set Content2 = OpenQuery(Query)
						Do While Not(Content2.BOF Or Content2.EOF)
							'複数存在する可能性が在るので羅列に取得
							If "" & Content2.Fields("文書内容CD") <> "" Then
								If BunsyoNaiyoSS <> "" Then
									BunsyoNaiyoSS = BunsyoNaiyoSS & ","
								End If
								BunsyoNaiyoSS = BunsyoNaiyoSS & "'" & Content.Fields("文書内容CD") & "'"
							End If
							Content2.MoveNext
						Loop
					End If
					Content.MoveNext
				Loop
			End If
		End If
	End If

	If BunsyoNaiyoZU <> "" Then
		BunsyoNaiyoZU = "'" & BunsyoNaiyoZU & "'"
	End If
	If BunsyoNaiyoPS <> "" Then
		BunsyoNaiyoPS = "'" & BunsyoNaiyoPS & "'"
	End If
	If BunsyoNaiyoPU <> "" Then
		BunsyoNaiyoPU = "'" & BunsyoNaiyoPU & "'"
	End If
	If BunsyoNaiyoMS <> "" Then
		BunsyoNaiyoMS = "'" & BunsyoNaiyoMS & "'"
	End If

Response.Write("材料出庫：" & BunsyoNaiyoZU & "<br>")
Response.Write("仕掛品入庫：" & BunsyoNaiyoPS & "<br>")
Response.Write("仕掛品出庫：" & BunsyoNaiyoPU & "<br>")
Response.Write("製品入庫：" & BunsyoNaiyoMS & "<br>")
Response.Write("製品出庫：" & BunsyoNaiyoMU & "<br>")
Response.Write("仕入入庫：" & BunsyoNaiyoSS & "<br>")
'Exit Sub

	'削除
	If BunsyoNaiyoZU <> "" Then
		Query = ""
		Query = Query & "  "
		Query = Query & " DELETE FROM TGA入出庫TRN "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
		Query = Query & " 	AND 文書種類CD = 'ZU' AND 文書内容CD IN (" & BunsyoNaiyoZU & ") "
		Set Content = OpenQuery(Query)
	End If
	If BunsyoNaiyoPS <> "" Then
		Query = ""
		Query = Query & "  "
		Query = Query & " DELETE FROM TGA入出庫TRN "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
		Query = Query & " 	AND 文書種類CD = 'PS' AND 文書内容CD IN (" & BunsyoNaiyoPS & ") "
		Set Content = OpenQuery(Query)
	End If
	If BunsyoNaiyoPU <> "" Then
		Query = ""
		Query = Query & "  "
		Query = Query & " DELETE FROM TGA入出庫TRN "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
		Query = Query & " 	AND 文書種類CD = 'PU' AND 文書内容CD IN (" & BunsyoNaiyoPU & ") "
		Set Content = OpenQuery(Query)
	End If
	If BunsyoNaiyoMS <> "" Then
		Query = ""
		Query = Query & "  "
		Query = Query & " DELETE FROM TGA入出庫TRN "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
		Query = Query & " 	AND 文書種類CD = 'MS' AND 文書内容CD IN (" & BunsyoNaiyoMS & ") "
		Set Content = OpenQuery(Query)
	End If
	If BunsyoNaiyoMU <> "" Then
		Query = ""
		Query = Query & "  "
		Query = Query & " DELETE FROM TGA入出庫TRN "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
		Query = Query & " 	AND 文書種類CD = 'MU' AND 文書内容CD IN (" & BunsyoNaiyoMU & ") "
		Set Content = OpenQuery(Query)
	End If
	If BunsyoNaiyoSS <> "" Then
		Query = ""
		Query = Query & "  "
		Query = Query & " DELETE FROM TGA入出庫TRN "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
		Query = Query & " 	AND 文書種類CD = 'SS' AND 文書内容CD IN (" & BunsyoNaiyoSS & ") "
		Set Content = OpenQuery(Query)
	End If
	'全ての不要な明細を削除
	Query = Query & " DELETE TGA入出庫明細TRN "
	Query = Query & " FROM TGA入出庫明細TRN "
	Query = Query & " LEFT OUTER 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 IS NULL "
	Set Content = OpenQuery(Query)
	If BunsyoNaiyoCD <> "" Then
		Query = ""
		Query = Query & "  "
		Query = Query & " DELETE FROM TSK補助簿_原価計算表F "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
		Query = Query & " 	AND 製造指図書CD = '" & BunsyoNaiyoCD & "' "
		Set Content = OpenQuery(Query)
		Query = ""
		Query = Query & "  "
		Query = Query & " DELETE FROM TGD製造指図書F "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' "
		Query = Query & " 	AND 文書内容CD = '" & BunsyoNaiyoCD & "' "
		Set Content = OpenQuery(Query)
	End If


	Response.Redirect("fm_enshucontrol08.asp?EnshuCD=" & EnshuCD)


End Sub
%>