
<!-- #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, ";")

	Dim Torihikibi
	Torihikibi = Request("Torihikibi")
	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小野）

		Dim KanjyoCD, Mototyo, KashikataKingaku, KarikataKingaku, Tekiyo

		KanjyoCD = TmpValue2(3)
		Mototyo = TmpValue2(2)
		KashikataKingaku = TmpValue2(1)
		KarikataKingaku = TmpValue2(6)
		Tekiyo = TmpValue2(5)

		KanjyoCD = "'" & KanjyoCD & "'"
		Mototyo = "'" & Mototyo & "'"

		If KarikataKingaku = "" Then
			KarikataKingaku = "null"
		End If

		If KashikataKingaku = "" Then
			KashikataKingaku = "null"
		End If

		Tekiyo = "'" & Tekiyo & "'"

		Query = "exec SPK帳簿_仕訳集計表挿入 '" & GB_SystemCD & "',"
		Query = Query & " '" & EnshuCD & "'"
		Query = Query & ",'" & KaisyaCD & "'"
		Query = Query & ",'" & Torihikibi & "'"
		Query = Query & "," & KanjyoCD
		Query = Query & "," & Mototyo
		Query = Query & "," & KashikataKingaku
		Query = Query & "," & KarikataKingaku
		Query = Query & "," & Tekiyo

'Response.Write(Query & vbCrLf)
'Exit Sub


		Set Content = ExecQuery(db, Query)
		bCheck = 1
	Next


	Query = "exec SPK帳簿_仕訳集計表更新 '" & GB_SystemCD & "',"
	Query = Query & " '" & EnshuCD & "'"
	Query = Query & ",'" & KaisyaCD & "'"
	Query = Query & ",'" & Torihikibi & "'"
	Set Content = ExecQuery(db, Query)
	Response.Redirect(Replace(Url, "_bin.asp", "") & "_view.asp?RouteType=" & RouteType & "&Torihikibi=" & Torihikibi)


End Sub
%>