<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	:製造指図書挿入・更新・削除
'	作成日	:2008/3/31
'	作成者	:小野
'	目的	:製造指図書の挿入・更新・削除及び材料出庫・商品入庫を行う。
'	概要	:
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim RouteType
	Dim BinType
	Dim Syoribi
	Dim Kanryobi
	Dim BunsyoNaiyoCD
	Dim SBunsyoNaiyoCD
	Dim ZBunsyoNaiyoCD
	Dim SyohinCD
	Dim SyohinKubun
	Dim SoSeizoSu
	Dim SyohinTanka
	Dim SeihinSyukkoCD
	ReDim SeihinSyukkoCD(0)

	Dim RoumuHi
	Dim KeiHi


	Dim Query
	Dim Content

'###############################################	 1.データの引継ぎ

	RouteType = Request("RouteType")
	BinType = Request("BinType")
	Syoribi = Request("Syoribi")
	Kanryobi = Request("Kanryobi")
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	ZBunsyoNaiyoCD = Request("ZBunsyoNaiyoCD")
	SyohinCD = Request("SyohinCD")
	SyohinKubun = Request("SyohinKubun")
	SoSeizoSu = ConvMoneyToInt(Request("SoSeizoSu"))
	SyohinTanka = ConvMoneyToInt(Request("SyohinTanka"))
	KeiHi = ConvMoneyToInt(Request("KeiHi"))
	RoumuHi = ConvMoneyToInt(Request("RoumuHi"))
	If "" & RoumuHi = "" Then
		RoumuHi = 0
	End If
	If "" & KeiHi = "" Then
		KeiHi = 0
	End If


	Dim TmpCnt
	'明細行数分の材料単価情報を配列にリクエスト
	Dim ZairyoCD
	ReDim ZairyoCD(0)
	Dim Tanka
	ReDim Tanka(0)
	Dim Suryo
	ReDim Suryo(0)
    Dim ZairyoCnt
	ZairyoCnt = CInt(Request("ZairyoCnt"))
	For TmpCnt = 1 To ZairyoCnt
		ReDim PreServe ZairyoCD(TmpCnt)
		ZairyoCD(TmpCnt) = Request("ZairyoCD" & TmpCnt)
		ReDim PreServe Tanka(TmpCnt)
		Tanka(TmpCnt) = ConvMoneyToInt(Request("Tanka" & TmpCnt))
		ReDim PreServe Suryo(TmpCnt)
		Suryo(TmpCnt) = ConvMoneyToInt(Request("Suryo" & TmpCnt))
	Next

'For TmpCnt = 1 To ZairyoCnt
'Response.Write(ZairyoCD(TmpCnt) & ":" & Tanka(TmpCnt) & "<BR>" & vbCrLf)
'Next
'Exit Sub

	'削除モード
	If BinType = "Del" Then
		Query = "exec SPD製造指図書削除 '" & GB_SystemCD & "'"
		Query = Query & ", '" & EnshuCD & "'"			'演習CD
		Query = Query & ", '" & KaisyaCD & "'"			'会社CD
		Query = Query & ", '" & BunsyoNaiyoCD & "'"
'Response.Write(Query & vbCrLf)
'Exit Sub
		Set Content = OpenQuery(Query)
		Response.Redirect(Replace(Request.ServerVariables("SCRIPT_NAME"), "_bin.asp", "_ichiran.asp"))
	End If


'製造完了モード

	If BinType = "Seihin" Then

		'仕掛品出庫
		Query = "exec SPD入出庫挿入 '" & GB_SystemCD & "',"
		Query = Query & "  '" & EnshuCD & "'"	'演習CD
		Query = Query & ", '" & KaisyaCD & "'"	'会社CD
		Query = Query & ", '" & KaisyaCD & "'"	'作成会社CD
		If SyohinKubun = "S" Then
			Query = Query & ", 'PU'"				'文書種類CD(仕掛品出庫)
		Else
			Query = Query & ", 'YU'"				'文書種類CD(材料仕掛品出庫)
		End If
		Query = Query & ", ''"					'文書内容CD
		Query = Query & ", 1"					'処理時期区分
		Query = Query & ", '" & Kanryobi & "'"	'処理日
		Query = Query & ", 'SJ4SEIZOZIES'"		'取引先CD
		Query = Query & ", '" & BunsyoNaiyoCD & "'"	'先方文書内容CD(仕掛品入庫の文書内容CD)
		Query = Query & ", 'PS'"				'先方文書種類CD(仕掛品入庫)
		Query = Query & ", '" & Syoribi & "'"	'先方処理日(仕掛品入庫の処理日)
		Query = Query & ", ''"					'運賃諸掛区分
		Query = Query & ", null"				'運送費
		Query = Query & ", '" & GakuseiNo & "'"	'学生番号
		Query = Query & ", ''"					'先方注文書の文書種類CD
		Query = Query & ", ''"					'先方注文書の文書内容CD
		'明細部(1行のみ)
		Query = Query & ", 1"					'伝票SEQ
		Query = Query & ", '" & SyohinCD & "'"	'商品CD
		Query = Query & ",  " & SoSeizoSu		'総製造数
		Query = Query & ",  " & SyohinTanka		'製品単価
		Query = Query & ", null"				'運送単価
		Query = Query & ",null,null,null,null,null"
		Query = Query & ",null,null,null,null,null"
		Query = Query & ",null,null,null,null,null"
		Query = Query & ",null,null,null,null,null"
'Response.Write(Query & vbCrLf)
'Exit Sub
		Set Content = OpenQuery(Query)
		SBunsyoNaiyoCD = Content.Fields(0)	'仕掛品出庫の文書内容CDを取得

		'製品入庫
		Query = "exec SPD入出庫挿入 '" & GB_SystemCD & "',"
		Query = Query & "  '" & EnshuCD & "'"	'演習CD
		Query = Query & ", '" & KaisyaCD & "'"	'会社CD
		Query = Query & ", '" & KaisyaCD & "'"	'作成会社CD
		If SyohinKubun = "S" Then
			Query = Query & ", 'MS'"				'文書種類CD(製品入庫)
		Else
			Query = Query & ", 'ZS'"				'文書種類CD(材料入庫)
		End If
		Query = Query & ", ''"					'文書内容CD
		Query = Query & ", 1"					'処理時期区分
		Query = Query & ", '" & Kanryobi & "'"	'処理日
		Query = Query & ", 'SJ4SEIZOZIES'"		'取引先CD
		Query = Query & ", '" & SBunsyoNaiyoCD & "'"	'先方文書内容CD(仕掛品出庫の文書内容CD)
		Query = Query & ", 'PU'"				'先方文書種類CD(仕掛品出庫)
		Query = Query & ", '" & Kanryobi & "'"	'先方処理日(仕掛品出庫の処理日)
		Query = Query & ", ''"					'運賃諸掛区分
		Query = Query & ", null"				'運送費
		Query = Query & ", '" & GakuseiNo & "'"	'学生番号
		Query = Query & ", ''"					'先方注文書の文書種類CD
		Query = Query & ", ''"					'先方注文書の文書内容CD
		'明細部(1行のみ)
		Query = Query & ", 1"					'伝票SEQ
		Query = Query & ", '" & SyohinCD & "'"	'商品CD
		Query = Query & ",  " & SoSeizoSu		'総製造数
		Query = Query & ",  " & SyohinTanka		'製品単価
		Query = Query & ", null"				'運送単価
		Query = Query & ",null,null,null,null,null"
		Query = Query & ",null,null,null,null,null"
		Query = Query & ",null,null,null,null,null"
		Query = Query & ",null,null,null,null,null"
'Response.Write(Query & vbCrLf)
'Exit Sub
		Set Content = OpenQuery(Query)
		SBunsyoNaiyoCD = Content.Fields(0)	'製品入庫の文書内容CDを取得

		'製造指図書更新
		Query = "exec SPD製造指図書更新 '" & GB_SystemCD & "'"
		Query = Query & ", '" & EnshuCD & "'"
		Query = Query & ", '" & KaisyaCD & "'"
		Query = Query & ", '" & BunsyoNaiyoCD & "'"
		If SyohinKubun = "S" Then
			Query = Query & ", 'MS'"				'製造状況区分(製品入庫)
		Else
			Query = Query & ", 'ZS'"				'製造状況区分(材料入庫)
		End If
		Query = Query & ", '" & SBunsyoNaiyoCD & "'"
		Query = Query & ", '" & ZBunsyoNaiyoCD & "'"
		Query = Query & ", '" & Kanryobi & "'"
'Response.Write(Query)
'Exit Sub
		Set Content = OpenQuery(Query)
		BunsyoNaiyoCD = Content.Fields(0)	'文書内容CDを取得

		Response.Redirect(Replace(Request.ServerVariables("SCRIPT_NAME"), "_bin.asp", "_view.asp") & "?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Mode=Seihin")
		Exit Sub

	End If



'仕掛モード

	'仕掛品入庫
	Query = "exec SPD入出庫挿入 '" & GB_SystemCD & "',"
	Query = Query & "  '" & EnshuCD & "'"	'演習CD
	Query = Query & ", '" & KaisyaCD & "'"	'会社CD
	Query = Query & ", '" & KaisyaCD & "'"	'作成会社CD
'	Query = Query & ", 'SS'"				'文書種類CD
	If SyohinKubun = "S" Then
		Query = Query & ", 'PS'"				'文書種類CD(仕掛品入庫)
	Else
		Query = Query & ", 'YS'"				'文書種類CD(材料仕掛品入庫)
	End If
	Query = Query & ", ''"					'文書内容CD
	Query = Query & ", 1"					'処理時期区分
	Query = Query & ", '" & Syoribi & "'"	'処理日
	Query = Query & ", 'SJ4SEIZOZIES'"		'取引先CD
	Query = Query & ", null"				'先方文書種類CD
	Query = Query & ", null"				'先方文書内容CD
	Query = Query & ", '" & Syoribi & "'"	'先方処理日
	Query = Query & ", ''"					'運賃諸掛区分
	Query = Query & ", null"				'運送費
	Query = Query & ", '" & GakuseiNo & "'"	'学生番号
	Query = Query & ", ''"					'先方注文書の文書種類CD
	Query = Query & ", ''"					'先方注文書の文書内容CD
	'明細部(1行のみ)
	Query = Query & ", 1"					'伝票SEQ
	Query = Query & ", '" & SyohinCD & "'"	'商品CD
	Query = Query & ",  " & SoSeizoSu		'総製造数
	Query = Query & ",  " & SyohinTanka		'製品単価
	Query = Query & ", null"				'運送単価
	Query = Query & ",null,null,null,null,null"
	Query = Query & ",null,null,null,null,null"
	Query = Query & ",null,null,null,null,null"
	Query = Query & ",null,null,null,null,null"
'Response.Write(Query & vbCrLf)
'Exit Sub
	Set Content = OpenQuery(Query)
	SBunsyoNaiyoCD = Content.Fields(0)	'仕掛品入庫の文書内容CDを取得


	Dim SeihinSyukkoCnt
	SeihinSyukkoCnt = 0
	'材料(または材料指定製品)出庫
	For TmpCnt = 1 To ZairyoCnt
		'材料指定製品出庫(現在利用停止中)
		If Left(ZairyoCD(TmpCnt), 15) = "SyohinCDCnihoyS" Then

			Query = "exec SPD入出庫挿入 '" & GB_SystemCD & "',"
			Query = Query & " '" & EnshuCD & "'"	'演習CD
			Query = Query & ",'" & KaisyaCD & "'"	'会社CD
			Query = Query & ",'" & KaisyaCD & "'"	'作成会社CD
			Query = Query & ",'MU'"					'文書種類CD
			Query = Query & ",''"					'文書内容CD
			Query = Query & ",1"						'処理時期区分
			Query = Query & ",'" & Syoribi & "'"		'処理日
			Query = Query & ", 'SJ4SEIZOZIES'"		'取引先CD
			Query = Query & ", null"				'先方文書種類CD
			Query = Query & ", null"				'先方文書内容CD
			Query = Query & ", '" & Syoribi & "'"	'先方処理日
			Query = Query & ", ''"					'運賃諸掛区分
			Query = Query & ", null"				'運送費
			Query = Query & ", '" & GakuseiNo & "'"	'学生番号
			Query = Query & ", ''"					'先方注文書の文書種類CD
			Query = Query & ", ''"					'先方注文書の文書内容CD
			'明細部(1行のみ)
			Query = Query & ", 1"					'伝票SEQ
			Query = Query & ", '" & Replace(ZairyoCD(TmpCnt), "SyohinCDCnihoyS", "") & "'"	'製品CD
			Query = Query & ",  " & Suryo(TmpCnt)	'数量
			Query = Query & ",  " & Tanka(TmpCnt)	'単価
			Query = Query & ", null"				'運送単価
			Query = Query & ",null,null,null,null,null"
			Query = Query & ",null,null,null,null,null"
			Query = Query & ",null,null,null,null,null"
			Query = Query & ",null,null,null,null,null"
			Set Content = OpenQuery(Query)
			SeihinSyukkoCnt = SeihinSyukkoCnt + 1
			ReDim PreServe SeihinSyukkoCD(SeihinSyukkoCnt)
			SeihinSyukkoCD(SeihinSyukkoCnt) = Content.Fields(0)	'材料指定製品出庫の文書内容CDを配列に取得


		'材料出庫(テンポラリ挿入)
		Else
			Query = "exec SPD材料出庫挿入 '" & GB_SystemCD & "'"
			Query = Query & ", '" & EnshuCD & "'"	'演習CD
			Query = Query & ", '" & KaisyaCD & "'"	'会社CD
			Query = Query & ", '" & ZairyoCD(TmpCnt) & "'"	'商品CD
			If Suryo(TmpCnt) = "" Then
				Query = Query & ", null"
			Else
				Query = Query & ", " & Suryo(TmpCnt) & ""	'数量
			End If
			If Tanka(TmpCnt) = "" Then
				Query = Query & ", null"
			Else
				Query = Query & ", " & Tanka(TmpCnt) & ""	'仕入単価
			End If
			Query = Query & ", 0"					'運送単価
'Response.Write(Query)
'Exit Sub
			Set Content = OpenQuery(Query)
			ZBunsyoNaiyoCD = Content.Fields(0)	'材料出庫の文書内容CDを取得
		End If
	Next
'Response.Write(ZBunsyoNaiyoCD)
'Exit Sub
	'材料出庫(テンポラリより更新)
	Query = "exec SPD材料出庫更新 '" & GB_SystemCD & "'"
	Query = Query & ", '" & EnshuCD & "'"
	Query = Query & ", '" & KaisyaCD & "'"
	Query = Query & ", '" & ZBunsyoNaiyoCD & "'"
	Query = Query & ", '" & Syoribi & "'"
	Query = Query & ", '" & GakuseiNo & "'"
'Response.Write(Query)
'Exit Sub
	Set Content = OpenQuery(Query)


	'製造指図書挿入
	Query = "exec SPD製造指図書挿入 '" & GB_SystemCD & "'"
	Query = Query & ", '" & EnshuCD & "'"
	Query = Query & ", '" & KaisyaCD & "'"
	If SyohinKubun = "S" Then
		Query = Query & ", 'PS'"				'製造状況区分(仕掛品入庫)
	Else
		Query = Query & ", 'YS'"				'製造状況区分(材料仕掛品入庫)
	End If
	Query = Query & ", '" & SBunsyoNaiyoCD & "'"
	Query = Query & ", '" & ZBunsyoNaiyoCD & "'"	'材料出庫CD
	Query = Query & ", '" & Syoribi & "'"
	Query = Query & ", " & KeiHi & ""
	Query = Query & ", " & RoumuHi & ""
	Query = Query & ", '" & GakuseiNo & "'"
'Response.Write(Query)
'Exit Sub
	Set Content = OpenQuery(Query)
	BunsyoNaiyoCD = Content.Fields(0)	'文書内容CDを取得

	Response.Redirect(Replace(Request.ServerVariables("SCRIPT_NAME"), "_bin.asp", "_view.asp") & "?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Mode=Shikakari")


End Sub
%>