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

<%
'<!-- 
'################################################
'   名称  :補助簿_仕入・売上帳処理    
'   作成日:2002/9/6
'   作成者:川崎
'   目的 :補助簿_仕入・売上帳を更新する。
'   概要  :
'    <<表示>>
'	・無し
'################################################
'-->
'
'
%>

<%
main()

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

	Dim Query
	Dim Content

	Dim UriageSiiretyoCD, Torihikibi, TorihikisakiCD, SyohinCD,Suryo, Tanka,Kingaku,HenpinKubun 
	Dim PageType
	PageType = Request("PageType")
	Dim RouteType 
	RouteType = Request("RouteType")	
	
	Dim db
	Set db = InitQuery()
		
	Dim ii
	Dim SendValue, TmpValue1, TmpValue2 
	SendValue = Request("SendValue")
	TmpValue1 = split(SendValue, ";")
	For ii = 0 To UBound(TmpValue1) - 1
	
		TmpValue2 = split(TmpValue1(ii), ",")
		
		
		Torihikibi = TmpValue2(0)
		TorihikisakiCD = ConvRevKaisyaRyakuName(TmpValue2(1))
		If TmpValue2(3) = "" Then
			SyohinCD = ""	'「その他の商品」処理を追加
		Else
			SyohinCD = ConvRevSyohinMeisyo(TmpValue2(3))
		End If
		Suryo = TmpValue2(4)
		Tanka = TmpValue2(5)
		Kingaku = TmpValue2(6)
		HenpinKubun  = ConvRevKubunMeisyo("返品区分", TmpValue2(2))

		If Torihikibi = "" Then
			Torihikibi = "null"
		Else
			Torihikibi = "'" & Torihikibi & "'"
		End If

		If TorihikisakiCD = "" Then
			TorihikisakiCD = "null"
		Else
			TorihikisakiCD = "'" & TorihikisakiCD & "'"
		End If

		If SyohinCD = "" Then
			SyohinCD = "null"
		Else
			SyohinCD = "'" & SyohinCD & "'"
		End If		
		
		If Suryo = "" Then
			Suryo = "null"
		End If		
		
		If Tanka = "" Then
			Tanka = "null"
		End If		
		
		If Kingaku = "" Then
			Kingaku = "null"
		End If		

		If HenpinKubun  = "" Then
			HenpinKubun  = "null"
		Else
			HenpinKubun  = "'" & HenpinKubun  & "'"
		End If		
		
			
		If PageType = "Uriage" Then
			Query = "exec SPK補助簿_売上帳挿入 '" & GB_SystemCD & "',"
		Else
			Query = "exec SPK補助簿_仕入帳挿入 '" & GB_SystemCD & "',"
		End If
		Query = Query & "'" & EnshuCD & "'"
		Query = Query & ",'" & KaisyaCD & "'"
		Query = Query & ",''"
		Query = Query & "," & Torihikibi
		Query = Query & "," & TorihikisakiCD
		Query = Query & "," & SyohinCD
		Query = Query & "," & Suryo
		Query = Query & "," & Tanka
		Query = Query & ",0" 
		Query = Query & "," & Kingaku
		Query = Query & "," & HenpinKubun 
		Set Content = ExecQuery(db, Query)	
'response.write(Query)
'exit sub

	Next

	If PageType = "Uriage" Then
		Query = "exec SPK補助簿_売上帳更新 '" & GB_SystemCD & "',"
	Else
		Query = "exec SPK補助簿_仕入帳更新 '" & GB_SystemCD & "',"
	End If
	Query = Query & "'" & EnshuCD & "'"
	Query = Query & ",'" & KaisyaCD & "'"
   	Set Content = ExecQuery(db, Query)
   	
   	Response.Redirect("fk_shiireuriagetyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType)


End Sub
%>