
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  ：8桁精算表   
'   作成日：2003/1/27
'   作成者：山崎
'   目的　：8桁精算表を追加・修正処理する。
'   概要  ：
'    <<表示>>
'	・無し
'################################################
'-->
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query, Content
	Dim db
	Set db = InitQuery()
		
	Dim ii

	Dim SendValue, TmpValue1, TmpValue2 
	SendValue = Request("SendValue")
	TmpValue1 = split(SendValue, ";")
	Dim bCheck
	bCheck = 0
	For ii = 0 To UBound(TmpValue1) - 1
		TmpValue2 = split(TmpValue1(ii), ",")

		Dim KanjyoCD, ShisanhyoKarikata, ShisaknhyoKashikata
		Dim SyuseikinyuKarikata, SyusekikinyuKashikata
		Dim SonekikeisansyoKarikata, SonekikeisansyoKashikata
		Dim TaisyakutaisyohyoKarikata, TaisyakutaisyohyoKashikata
		
		KanjyoCD = TmpValue2(0)
		ShisanhyoKarikata = TmpValue2(2)
		ShisaknhyoKashikata = TmpValue2(3)
		SyuseikinyuKarikata = TmpValue2(4)
		SyusekikinyuKashikata = TmpValue2(5)
		SonekikeisansyoKarikata = TmpValue2(6)
		SonekikeisansyoKashikata = TmpValue2(7)
		TaisyakutaisyohyoKarikata = TmpValue2(8)
		TaisyakutaisyohyoKashikata = TmpValue2(9)
		
		
			
		If ShisanhyoKarikata = "" Then
			ShisanhyoKarikata = "null"
		End If			
		If ShisaknhyoKashikata = "" Then
			ShisaknhyoKashikata = "null"
		End If			
		If SyuseikinyuKarikata = "" Then
			SyuseikinyuKarikata = "null"
		End If			
		If SyusekikinyuKashikata = "" Then
			SyusekikinyuKashikata = "null"
		End If			
		If SonekikeisansyoKarikata = "" Then
			SonekikeisansyoKarikata = "null"
		End If			
		If SonekikeisansyoKashikata = "" Then
			SonekikeisansyoKashikata = "null"
		End If			
		If TaisyakutaisyohyoKarikata = "" Then
			TaisyakutaisyohyoKarikata = "null"
		End If
		If TaisyakutaisyohyoKashikata = "" Then
			TaisyakutaisyohyoKashikata = "null"
		End If


		Query = "exec SPK帳簿_八桁精算表挿入 '" & GB_SystemCD & "'"
		Query = Query & ",'" & EnshuCD & "'"
		Query = Query & ",'" & KaisyaCD & "'"
		Query = Query & ",'" & KanjyoCD & "'"
		Query = Query & "," & ShisanhyoKarikata
		Query = Query & "," & ShisaknhyoKashikata
		Query = Query & "," & SyuseikinyuKarikata
		Query = Query & "," & SyusekikinyuKashikata
		Query = Query & "," & SonekikeisansyoKarikata
		Query = Query & "," & SonekikeisansyoKashikata
		Query = Query & "," & TaisyakutaisyohyoKarikata
		Query = Query & "," & TaisyakutaisyohyoKashikata
		
		bCheck = 1	
		Set Content = ExecQuery(db, Query)

	Next
	

	Query = "exec SPK帳簿_八桁精算表更新 '" & GB_SystemCD & "',"
	Query = Query & "'" & EnshuCD & "'"
	Query = Query & ",'" & KaisyaCD & "'"
	Set Content = ExecQuery(db, Query)	
	
'###############################################   １．データの引継ぎ

	Response.Redirect("fk_hachiketaseisanhyo_view.asp")


End Sub
%>