
<!-- #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 KanjyoCD, Torihikibi, Shityo, TekiyoCD, Tekiyo, AiteKanjyo, KarikataKingaku, KashikataKingaku, TaisyakuKubun, Zandaka
	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), ",")

		'半角カンマ・セミコロンを代替文字から元に戻す処理（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(1)
		Shityo = TmpValue2(6)		
		TekiyoCD = ConvRevTekiyoMeisyo(TmpValue2(2))
		Tekiyo = TmpValue2(3)
		AiteKanjyo = TmpValue2(4)		
		KarikataKingaku = TmpValue2(7)
		KashikataKingaku = TmpValue2(8)
		TaisyakuKubun = ConvRevKubunMeisyo("貸借略区分", TmpValue2(9))	
		Zandaka = TmpValue2(10)
		

		
		NextKanjyoCD = KanjyoCD 
		
		If Torihikibi = "" Then
			Torihikibi = "null"
		Else
			Torihikibi = "'" & Torihikibi & "'"
		End If
		
		Shityo = "'" & Shityo & "'"
		
		If KarikataKingaku = "" Then
			KarikataKingaku = "null"
		End If
		
		If KashikataKingaku = "" Then
			KashikataKingaku = "null"
		End If

		TaisyakuKubun = "'" & TaisyakuKubun & "'"
		
		If Zandaka = "" Then
			Zandaka = "null"
		End If			
		TekiyoCD = "'" & TekiyoCD & "'"		
		Tekiyo = "'" & Tekiyo & "'"
		AiteKanjyo = "'" & AiteKanjyo & "'"		
					
		Query = "exec SPK帳簿_総勘定元帳挿入 '" & GB_SystemCD & "',"
		Query = Query & " '" & EnshuCD & "'"
		Query = Query & ",'" & KaisyaCD & "'"
		Query = Query & ",'" & KanjyoCD & "'"
		Query = Query & "," & Torihikibi		
		Query = Query & "," & Shityo
		Query = Query & "," & TekiyoCD	
		Query = Query & "," & Tekiyo			
		Query = Query & "," & AiteKanjyo		
		Query = Query & "," & KarikataKingaku
		Query = Query & "," & KashikataKingaku
		Query = Query & "," & TaisyakuKubun 		
		Query = Query & "," & Zandaka

	   	Set Content = ExecQuery(db, Query)	
	   	bCheck = 1
	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
%>