
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  ：帳簿_損益計算書   
'   作成日：2003/1/24
'   作成者：山崎
'   目的　：帳簿_損益計算書を更新する
'   概要  ：
'    <<表示>>
'	・無し
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
   	Dim Content


	Dim RouteType
	RouteType = Request("RouteType")
	Dim Url 
	Url = Request.ServerVariables("URL")

	Dim bCheck
	bCheck = 0
	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), ",")
		
		Dim Torihikibi, KarikataKanjyoCD, KarikataKingaku, KashikataKanjyoCD, KashikataKingaku
		Torihikibi = TmpValue2(0)
		KarikataKanjyoCD = TmpValue2(1)
		KarikataKingaku = TmpValue2(3)
		KashikataKanjyoCD = TmpValue2(4)
		KashikataKingaku = TmpValue2(6)
		
		If Torihikibi = "" Then
			Torihikibi = "null"
		Else
			Torihikibi = "'" & Torihikibi & "'"		
		End If
		
		If KarikataKingaku = "" Then
			KarikataKingaku = "null"
		End If	
		If KarikataKingaku = "0" And KarikataKanjyoCD = "" Then
			KarikataKingaku = "null"
		End If	
		If KashikataKingaku = "" Then
			KashikataKingaku = "null"
		End If
		If KashikataKingaku = "0" And KashikataKanjyoCD = "" Then
			KashikataKingaku = "null"
		End If	
		
		KarikataKanjyoCD = "'" & KarikataKanjyoCD & "'"
		KashikataKanjyoCD = "'" & KashikataKanjyoCD & "'"		
		

					
		Query = "exec SPK帳簿_損益計算書挿入 '" & GB_SystemCD & "',"
		Query = Query & " '" & EnshuCD & "'"
		Query = Query & ",'" & KaisyaCD & "'"
		Query = Query & "," & Torihikibi		
		Query = Query & "," & KarikataKanjyoCD 
		Query = Query & "," & KarikataKingaku 
		Query = Query & "," & KashikataKanjyoCD 
		Query = Query & "," & KashikataKingaku 

	   	Set Content = ExecQuery(db, Query)	
	   	bCheck = 1
	Next


	Query = "exec SPK帳簿_損益計算書更新 '" & GB_SystemCD & "',"
	Query = Query & " '" & EnshuCD & "'"
	Query = Query & ",'" & KaisyaCD & "'"
	Set Content = ExecQuery(db, Query)


	Response.Redirect(Replace(Url, "_bin.asp", "") & "_view.asp?RouteType=" & RouteType)


End Sub
%>