
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  ：補助簿_現金出納帳処理    
'   作成日：2002/8/30
'   作成者：山崎
'   目的　：補助簿_現金出納帳を更新する
'   概要  ：
'    <<表示>>
'	・無し
'################################################
'-->
'
'
%>

<%
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 TorihikibiTmp

	Dim TorihikibiForm
	TorihikibiForm = Request("Torihikibi")

	Dim SendValue, TmpValue1, TmpValue2 
	SendValue = Request("SendValue")

'Response.Write(SendValue)
'Exit Sub
'	If SendValue <> "" Then

		TmpValue1 = split(SendValue, ";")

		For ii = 0 To UBound(TmpValue1) - 1

			TmpValue2 = split(TmpValue1(ii), ",")

			Dim Torihikibi, KarikataZandaka, KarikataKingaku, KanjyoCD, KashikataKingaku, KashikataZandaka
			Torihikibi = TmpValue2(0)
			KarikataZandaka = TmpValue2(1)
			KarikataKingaku = TmpValue2(2)
			KanjyoCD = TmpValue2(3)
			KashikataKingaku = TmpValue2(5)
			KashikataZandaka = TmpValue2(6)

			If Torihikibi = "" Then
				TorihikibiTmp = "null"
			Else
				TorihikibiTmp = "'" & Torihikibi & "'"
			End If

			If KarikataZandaka = "" Then
				KarikataZandaka = "null"
			End If	
			If KarikataKingaku = "" Then
				KarikataKingaku = "null"
			End If

			If KashikataKingaku = "" Then
				KashikataKingaku = "null"
			End If

			If KashikataZandaka = "" Then
				KashikataZandaka = "null"
			End If

			Query = "exec SPK帳簿_合計残高試算表挿入 '" & GB_SystemCD & "',"
			Query = Query & "  '" & EnshuCD & "'"
			Query = Query & ", '" & KaisyaCD & "'"
			Query = Query & ", " & TorihikibiTmp
			Query = Query & ", " & KarikataZandaka 
			Query = Query & ", " & KarikataKingaku 
			Query = Query & ", '" & KanjyoCD & "'"
			Query = Query & ", " & KashikataKingaku 
			Query = Query & ", " & KashikataZandaka 

			Set Content = ExecQuery(db, Query)	
			bCheck = 1
		Next


		If TorihikibiTmp = "" Then 'SendValueがNULLの場合はフォームの取引日で更新（当該日の帳簿削除となる）
			TorihikibiTmp = "'" & TorihikibiForm & "'"
		End If
'		Query = "exec SPK帳簿_合計残高試算表更新 '" & GB_SystemCD & "',"
		Query = "exec SPK帳簿_合計残高試算表更新日付指定 '" & GB_SystemCD & "'"
		Query = Query & ", '" & EnshuCD & "'"
		Query = Query & ", '" & KaisyaCD & "'"
		Query = Query & ", " & TorihikibiTmp
		Set Content = ExecQuery(db, Query)

'	End If

	Response.Redirect(Replace(Url, "_bin.asp", "") & "_view.asp?RouteType=" & RouteType & "&Torihikibi=" & Torihikibi)

End Sub
%>