
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  ：帳簿_貸借対照表   
'   作成日：2003/1/24
'   作成者：山崎
'   目的　：帳簿_貸借対照表を更新する
'   概要  ：
'    <<表示>>
'	・無し
'################################################
'-->
'
'
%>

<%
main()

Sub main()

	Dim Query
	Dim Content

	Dim GinkoCD, KozaKubun, KozaBango
	Dim RouteType
	RouteType = Request("RouteType")
	GinkoCD = Request("GinkoCD")
	KozaKubun = Request("KozaKubun")
	KozaBango = Request("KozaBango")


	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 Syoribi, Nyukin, Syukin, Zandaka, TorihikiKubun, Tekiyo
		Syoribi = TmpValue2(0)
		Nyukin = TmpValue2(1)
		Syukin = TmpValue2(2)
		Zandaka = TmpValue2(3)
		TorihikiKubun = TmpValue2(4)
		Tekiyo = TmpValue2(5)	

		If Nyukin = "" Then
			Nyukin = 0
		End If
		If Syukin = "" Then
			Syukin = 0
		End If

		Nyukin = CCur(Nyukin)
		Syukin = CCur(Syukin)
		If Syoribi <> "" Then
			Query = "exec SPB銀行口座入出金通帳挿入"
			Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"				'演習CD
			Query = Query & ",'" & GinkoCD & "'"			'銀行CD
			Query = Query & ",'" & KozaKubun & "'"				'口座区分
			Query = Query & ",'" & KozaBango & "'"				'口座番号
			Query = Query & ",1"
			Query = Query & ",'" & Syoribi & "'"			'処理日
			Query = Query & "," & Nyukin + Syukin				'金額
			Query = Query & ",'" & ConvRevKubunMeisyo("銀行取引区分", TorihikiKubun) & "'"	'銀行取引区分
			Query = Query & ",'" & Tekiyo & "'"			'摘要
			Query = Query & ",'" & GakuseiNo & "'"			'学生番号
DebugQuery(Query)

			Set Content = ExecQuery(db, Query)	
		End If
		bCheck = 1
	Next

	Query = "exec SPB銀行口座入出金通帳更新"
	Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"				'演習CD
	Query = Query & ",'" & GinkoCD & "'"			'銀行CD
	Query = Query & ",'" & KozaKubun & "'"				'口座区分
	Query = Query & ",'" & KozaBango & "'"				'口座番号
DebugQuery(Query)

	Set Content = ExecQuery(db, Query)

	Response.Redirect(Replace(Url, "_bin.asp", "") & ".asp?RouteType=" & RouteType & "&BackGinkoCD=" & GinkoCD & "&GinkoCD=" & GinkoCD & "&KozaKubun=" & KozaKubun & "&KozaBango=" & KozaBango)

End Sub
%>