
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  ：補助簿_商品有高帳処理    
'   作成日：2002/8/30
'   作成者：山崎
'   目的　：補助簿_商品有高帳を更新する
'   概要  ：
'    <<表示>>
'	・無し
'	履歴　：2012/10/17　小野　材料元帳モードを新設
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
   	Dim Content

	Dim KeisanHoho, Tani
	Dim Torihikibi, UkebaraiKubun, TorihikisakiCD
	Dim UkeireSuryo, UkeireTanka, UkeireKingaku
	Dim HaraidasiSuryo, HaraidasiTanka, HaraidasiKingaku
    Dim ZandakaSuryo, ZandakaTanka, ZandakaKingaku
    
    Dim SyohinCD 
	Dim RouteType
	RouteType = Request("RouteType")
	SyohinCD = Request("SyohinCD")

	Dim Mode
	Mode = Request("Mode")
	Dim PageType
	PageType = "商品有高帳"
	Dim Label
	Label = "商品"
	If Mode = "Zairyo" Then
		PageType = "材料元帳"
		Label = "材料"
	End If

	Dim db
	Set db = InitQuery()
		
	Dim ii

	Dim SendValue, TmpValue1, TmpValue2 
	KeisanHoho = Request("KeisanHoho")
	Tani = Request("Tani")	
	SendValue = Request("SendValue")
	TmpValue1 = split(SendValue, ";")
	For ii = 0 To UBound(TmpValue1) - 1
		TmpValue2 = split(TmpValue1(ii), ",")
		
		Torihikibi = TmpValue2(0)
		UkebaraiKubun = ConvRevKubunMeisyo("受払区分", TmpValue2(1))
		TorihikisakiCD = ConvRevKaisyaRyakuName(TmpValue2(2))
		UkeireSuryo = TmpValue2(3)
		UkeireTanka = TmpValue2(4)
		UkeireKingaku = TmpValue2(5)
		HaraidasiSuryo = TmpValue2(6)
		HaraidasiTanka = TmpValue2(7)
		HaraidasiKingaku = TmpValue2(8)
		ZandakaSuryo = TmpValue2(9)
		ZandakaTanka = TmpValue2(10)
		ZandakaKingaku = TmpValue2(11)
			
		If UkebaraiKubun = "" Then
			UkebaraiKubun = "null"
		End If	
		If Torihikibi = "" Then
			Torihikibi = "null"
		Else
			Torihikibi = "'" & Torihikibi & "'"
		End If
		If TorihikisakiCD = "" Then
			TorihikisakiCD = "null"
		Else
			TorihikisakiCD = "'" & TorihikisakiCD & "'"
		End If

		If UkeireSuryo = "" Then UkeireSuryo = "null" End If
		If UkeireTanka = "" Then UkeireTanka = "null" End If
		If UkeireKingaku = "" Then UkeireKingaku = "null" End If
		If HaraidasiSuryo = "" Then HaraidasiSuryo = "null" End If
		If HaraidasiTanka = "" Then HaraidasiTanka = "null" End If
		If HaraidasiKingaku = "" Then HaraidasiKingaku = "null" End If
		If ZandakaSuryo = "" Then ZandakaSuryo = "null" End If
		If ZandakaTanka = "" Then ZandakaTanka = "null" End If
		If ZandakaKingaku = "" Then ZandakaKingaku = "null" End If
		
				

		Query = "exec SPK補助簿_" & PageType & "挿入 '" & GB_SystemCD & "',"
		Query = Query & "'" & EnshuCD & "'"
		Query = Query & ",'" & KaisyaCD & "'"
		Query = Query & ",''"
		Query = Query & ",'" & KeisanHoho & "'"		
		Query = Query & ",'" & Tani & "'"				
		Query = Query & "," & Torihikibi
		Query = Query & "," & TorihikisakiCD
		Query = Query & ",'" & SyohinCD & "'"
		Query = Query & "," & UkebaraiKubun
		Query = Query & "," & UkeireTanka
		Query = Query & "," & UkeireSuryo
		Query = Query & "," & UkeireKingaku
		Query = Query & "," & HaraidasiTanka
		Query = Query & "," & HaraidasiSuryo
		Query = Query & "," & HaraidasiKingaku
		Query = Query & "," & ZandakaTanka
		Query = Query & "," & ZandakaSuryo
		Query = Query & "," & ZandakaKingaku

	   	Set Content = ExecQuery(db, Query)	

	Next

	Query = "exec SPK補助簿_" & PageType & "更新 '" & GB_SystemCD & "',"
	Query = Query & "'" & EnshuCD & "'"
	Query = Query & ",'" & KaisyaCD & "'"
	Query = Query & ",'" & SyohinCD & "'"	
   	Set Content = ExecQuery(db, Query)


	Response.Redirect("fk_syohinaridakatyo_view.asp?Mode=" & Mode & "&SyohinCD=" & SyohinCD & "&RouteType=" & RouteType)

End Sub
%>