
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：記帳チェックの照会
'	作成日：2002/10/30
'	作成者：徳田
'	目的　：記帳チェックの照会画面を表示する。
'	概要	：
'	 <<表示>>
'	・記帳チェックの照会
'################################################
'-->
'
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Kaishibi,	Syuryobi

	Dim CheckType
	CheckType = Request("CheckType")
	If CheckType = "" Then
		CheckType = "1"
	End If

	Dim RouteType
	RouteType = Request("RouteType")

	'仕訳日単位で集計するため
	Dim Shiwakebi
	Shiwakebi = Request("Shiwakebi")

	Dim Query
	Dim Content

	Dim InputGenkinSuitotyo
	Dim InputTouzayokinSuitotyo
	Dim InputUriagetyo
	Dim InputShiiretyo
	Dim InputUrikakekinMototyo
	Dim InputKaikakekinMototyo
	Dim InputUketoriTegatatyo
	Dim InputShiharaiTegatatyo

	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		InputGenkinSuitotyo = "" & Content.Fields("現金出納帳表示")
		InputTouzayokinSuitotyo = "" & Content.Fields("当座預金出納帳表示")
		InputUriagetyo = "" & Content.Fields("売上帳表示")
		InputShiiretyo = "" & Content.Fields("仕入帳表示")
		InputUrikakekinMototyo = "" & Content.Fields("売掛金元帳表示")
		InputKaikakekinMototyo = "" & Content.Fields("買掛金元帳表示")
		InputUketoriTegatatyo = "" & Content.Fields("受取手形記入帳表示")
		InputShiharaiTegatatyo = "" & Content.Fields("支払手形記入帳表示")
	End If


Call Application.Lock() '多くの挿入処理が発生するためロックする

	If Shiwakebi <> "" Then
		Query = "exec SPM記帳チェック挿入伝票2 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & Shiwakebi & "'"
	Else
		Query = "exec SPM記帳チェック挿入伝票 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
	End If
DebugQuery(Query)
	Set Content = OpenQuery(Query)

	If Shiwakebi <> "" Then
		Query = "exec SPM記帳チェック挿入元帳2 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & Shiwakebi & "'"
	Else
		Query = "exec SPM記帳チェック挿入元帳 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
	End If
DebugQuery(Query)
	Set Content = OpenQuery(Query)

	If Shiwakebi <> "" Then
		Query = "exec SPM記帳チェック挿入補助簿個別2 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
	Else
		Query = "exec SPM記帳チェック挿入補助簿個別 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
	End If
	Query = Query & ", '" & InputGenkinSuitotyo & "'"
	Query = Query & ", '" & InputTouzayokinSuitotyo & "'"
	Query = Query & ", '" & InputUriagetyo & "'"
	Query = Query & ", '" & InputShiiretyo & "'"
	Query = Query & ", '" & InputUrikakekinMototyo & "'"
	Query = Query & ", '" & InputKaikakekinMototyo & "'"
	Query = Query & ", '" & InputUketoriTegatatyo & "'"
	Query = Query & ", '" & InputShiharaiTegatatyo & "'"
	If Shiwakebi <> "" Then
		Query = Query & ", '" & Shiwakebi & "'"
	End If
DebugQuery(Query)
	Set Content = OpenQuery(Query)

Call Application.Unlock()


	Response.Redirect("fm_kityo_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&Shiwakebi=" & Shiwakebi)
End Sub
%>