
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  ：補助簿_当座預金出納帳処理    
'   作成日：2002/9/10
'   作成者：川崎
'   目的　：補助簿_当座預金出納帳を更新する
'   概要  ：
'    <<表示>>
'	・無し
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query

	Dim Torihikibi, Tekiyo, KogitteNO, AzukariireKingaku, HaraidashiKingaku, Taisyaku, Zandaka
	Dim GinkoCD
	GinkoCD = Request("GinkoCD")
	
	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), ",")

		'半角カンマ・セミコロンを代替文字から元に戻す処理（070201小野）
		Dim iii
		For iii = 0 To UBound(TmpValue2) - 1
			TmpValue2(iii) = Replace(TmpValue2(iii), "CommammoC", ",")
			TmpValue2(iii) = Replace(TmpValue2(iii), "SemicolonolocimeS", ";")
		Next
		'半角カンマ・セミコロンを代替文字から元に戻す処理（070201小野）
		
		Torihikibi = TmpValue2(0)
		Tekiyo = TmpValue2(1)
		KogitteNO = TmpValue2(2)
		AzukariireKingaku = TmpValue2(3)
		HaraidashiKingaku = TmpValue2(4)
		Taisyaku = ConvRevKubunMeisyo("貸借略区分", TmpValue2(5))
		Zandaka = TmpValue2(6)


		If Torihikibi = "" Then
			Torihikibi = "null"
		Else 
			Torihikibi = "'" & Torihikibi & "'"
		End If
		
		Tekiyo = "'" & Tekiyo & "'"
		KogitteNO = "'" & KogitteNO & "'"		
		
		If AzukariireKingaku = "" Or AzukariireKingaku = "0" Then	'金額0もnullにする（061214小野）
			AzukariireKingaku = "null"
		End If

		If HaraidashiKingaku = "" Or HaraidashiKingaku = "0" Then	'金額0もnullにする（061214小野）
			HaraidashiKingaku = "null"
		End If

		If Zandaka = "" Then
			Zandaka = "null"
		End If


		Query = "exec SPK補助簿_当座預金出納帳挿入 '" & GB_SystemCD & "',"
		Query = Query & "'" & EnshuCD & "'"
		Query = Query & ",'" & KaisyaCD & "'"
		Query = Query & ",''"
		Query = Query & "," & Torihikibi
		Query = Query & ",'" & GinkoCD & "'"
		Query = Query & "," & Tekiyo
		Query = Query & "," & KogitteNO
		Query = Query & "," & AzukariireKingaku 
		Query = Query & "," & HaraidashiKingaku 
		Query = Query & "," & Taisyaku
		Query = Query & "," & Zandaka 

	   	Set Content = ExecQuery(db, Query)	

	Next

	Query = "exec SPK補助簿_当座預金出納帳更新 '" & GB_SystemCD & "',"
	Query = Query & "'" & EnshuCD & "'"
	Query = Query & ",'" & KaisyaCD & "'"
	Query = Query & ",'" & GinkoCD & "'"	
   	Set Content = ExecQuery(db, Query)
	Response.Redirect("fk_touzayokinsuitotyo_view.asp?RouteType=" & RouteType & "&GinkoCD=" & GinkoCD)


End Sub
%>