<!-- #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, jj
	Dim KanjyoCD, Torihikibi, Shityo, TekiyoCD, Tekiyo, AiteKanjyo, KarikataKingaku, KashikataKingaku, TaisyakuKubun, Zandaka
	Dim Kingaku
	Dim NextKanjyoCD
	Dim SendValue, TmpValue1, TmpValue2 
	KanjyoCD = Request("KanjyoCD")	
	SendValue = Request("SendValue")
	TmpValue1 = split(SendValue, ";")
	For ii = 0 To UBound(TmpValue1) - 1
		TmpValue2 = split(TmpValue1(ii), ",")




		For jj = 0 To 1
			Torihikibi = TmpValue2(1 + 6 * jj)
			AiteKanjyo = TmpValue2(2 + 6 * jj)
			Shityo = TmpValue2(4 + 6 * jj)
			Kingaku = TmpValue2(5 + 6 * jj)
			
			If Kingaku <> "" Then
				If Torihikibi = "" Then
					Torihikibi = "null"
				Else
					Torihikibi = "'" & Torihikibi & "'"
				End If
				
				Shityo = "'" & Shityo & "'"
				
				If Kingaku = "" Then
					Kingaku = "null"
				End If


				AiteKanjyo = "'" & AiteKanjyo & "'"		

				If Torihikibi <> "null" And Kingaku <> "null" Then

					Query = "exec SPK帳簿_総勘定元帳挿入 '" & GB_SystemCD & "',"
					Query = Query & " '" & EnshuCD & "'"
					Query = Query & ",'" & KaisyaCD & "'"
					Query = Query & ",'" & KanjyoCD & "'"
					Query = Query & "," & Torihikibi
					Query = Query & "," & Shityo
					Query = Query & ",''"
					Query = Query & ",''"
					Query = Query & "," & AiteKanjyo
					If jj = 0 Then
						Query = Query & "," & Kingaku
						Query = Query & ",NULL"
					Else
						Query = Query & ",NULL"
						Query = Query & "," & Kingaku
					End If
					Query = Query & ",null"
					Query = Query & ",null"

					Set Content = ExecQuery(db, Query)	
					bCheck = 1

				End If
			End If
		Next
	Next


	Query = "exec SPK帳簿_総勘定元帳更新 '" & GB_SystemCD & "',"
	Query = Query & " '" & EnshuCD & "'"
	Query = Query & ",'" & KaisyaCD & "'"
	Query = Query & ",'" & KanjyoCD & "'"		
	Set Content = ExecQuery(db, Query)


	Query = "exec SPM記帳チェック挿入元帳 '" & GB_SystemCD & "',"
	Query = Query & " '" & EnshuCD & "'"
	Query = Query & ",'" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)

	Response.Redirect(Replace(Url, "_bin.asp", "") & "_view.asp?RouteType=" & RouteType & "&KanjyoCD=" & KanjyoCD )

 
End Sub
%>