
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  ：振替伝票処理    
'   作成日：2002/8/2
'   作成者：山崎
'   目的　：仕訳伝票画面を追加・修正処理する。
'   概要  ：
'    <<表示>>
'	・無し
'	
'	修正:2002/8/19:山崎:データキーを使わないように修正	
'	修正:2002/8/20:山崎:「振分」から「振替」に変更		
'
'	修正:2002/8/21:山崎:Query文の「生徒NO」分を削除、形式区分を5に修正
'################################################
'-->
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim KanjyoCD, KarikataKingaku, KashikataKingaku
	Dim Query, Content
	Dim db
	Set db = InitQuery()

	Dim RouteType
	RouteType = Request("RouteType")

	'繰越記入にトグルするためのフラグ（081021小野）
	Dim Kimatsu
	Kimatsu = Request("Kimatsu")

	Dim ii

'ロック
Call Application.Lock()
	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), ",")

		KanjyoCD = TmpValue2(0)
		KarikataKingaku = TmpValue2(1)		
		KashikataKingaku = TmpValue2(2)

		If KarikataKingaku = "" Or KarikataKingaku = "0" Then
			KarikataKingaku = "null"
		End If

		If KashikataKingaku = "" Or KashikataKingaku = "0"  Then
			KashikataKingaku = "null"
		End If

		If KarikataKingaku <> "null" Then
			Query = "exec SPK精算表修正仕訳挿入"
			Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"
			Query = Query & ",'" & KaisyaCD & "'"
			Query = Query & ",'" & KanjyoCD & "'"
			Query = Query & "," & KarikataKingaku
			Query = Query & ",null" 
			If Kimatsu = "Kurikoshi" Then
				Query = Query & ", 10"
			Else
				Query = Query & ", 9"
			End If
DebugQuery(Query)
			bCheck = 1	
			Set Content = ExecQuery(db, Query)
		End If

		If KashikataKingaku <> "null" Then
			Query = "exec SPK精算表修正仕訳挿入"
			Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"
			Query = Query & ",'" & KaisyaCD & "'"
			Query = Query & ",'" & KanjyoCD & "'"
			Query = Query & ",null"
			Query = Query & "," & KashikataKingaku
			If Kimatsu = "Kurikoshi" Then
				Query = Query & ", 10"
			Else
				Query = Query & ", 9"
			End If
DebugQuery(Query)
			bCheck = 1
		   	Set Content = ExecQuery(db, Query)
		End If

	Next

	Query = "exec SPK精算表修正仕訳更新 '" & GB_SystemCD & "',"
	Query = Query & "'" & EnshuCD & "'"
	Query = Query & ",'" & KaisyaCD & "'"
	Query = Query & ",'" & GB_KaikeiSyuryobi & "'"
	Query = Query & ",'" & GakuseiNo & "'"
	If Kimatsu = "Kurikoshi" Then
		Query = Query & ", 10"
	Else
		Query = Query & ", 9"
	End If
DebugQuery(Query)
	Set Content = ExecQuery(db, Query)	

	Query = "exec SPM記帳チェック挿入伝票 '" & GB_SystemCD & "',"
	Query = Query & " '" & EnshuCD & "'"
	Query = Query & ",'" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
'ロック解除
Call Application.Unlock()

'###############################################   １．データの引継ぎ

	Response.Redirect("fk_seisanhyo_view.asp?Kimatsu=" & Kimatsu & "&RouteType=" & RouteType)

End Sub
%>