<!-- #include file="../../../include.asp" -->
<!-- #include file="../../../user/bk/tyobo/fk_shiwakesyukeihyo_view_main_in.asp" -->

<%
'<!--
'################################################
'	名称	:帳簿_仕訳集計表の印刷画面
'	作成日:2003/1/23
'	作成者:山崎
'	目的 :帳簿_仕訳集計表の印刷画面を表示する。
'	概要	:
'	<<表示>>
'	・帳簿_仕訳集計表の印刷画面
'################################################
'-->
'
'
%>

<%
main()

Sub main()

	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
	Dim Content
	Dim ii, jj, iiSyukeihyoSelect, ShiwakeData, iiMototyoSelect, MototyoData
	Dim SokanjyoMototyoCD

	Dim DbKanjyoCD, DbShiwakeData, DbDenpyoTekiyo, DbTekiyo1, DbTekiyo2
	Dim DbKanjyoMeisyo, DbMototyo
	Dim DbDenpyoKubun, DbDenpyoNo , DbDenpyoSEQ
	Dim DbTekiyo, DbTorihikibi, DbTorihikibi2, DbShityo, DbZandaka, DbMototyoData
	Dim DbKarikataKingaku, DbKashikataKingaku
	Dim DbKarikataKingakuTotal, DbKashikataKingakuTotal
	Dim DbSokanjyoMototyoCD


	Dim KanjyoCD
	Dim Torihikibi
	Dim Torihikibi2
	Dim Mode
	Dim DenpyoKubun, DenpyoNo, DenpyoSEQ


	KanjyoCD = Request("KanjyoCD")
	Torihikibi = Request("Torihikibi")
	Torihikibi2 = Request("Torihikibi2")
	Mode = Request("Mode")
	DenpyoKubun = Request("DenpyoKubun")
	DenpyoNo = Request("DenpyoNo")
	DenpyoSEQ = Request("DenpyoSEQ")

	If Mode = "Tanjitsu" Then
		Torihikibi2 = ""
	End If

	Dim PageType
	PageType = "仕訳集計表"

	Dim RouteType
	RouteType = Request("RouteType")


%>
<html>
<% = HtmlHeader("sj3tyobored11") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 0;

	//印刷余白指定(ミリ指定)
	PrintTopMargin = 20;
	PrintLeftMargin = 20;
//	PrintTopMargin = 0;
//	PrintLeftMargin = 0;

-->
</SCRIPT>

<body onload="<% = PrintOnLoad %>" onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<% = PrintScriptX %>

<% Response.Write(TyoboShiwakeSyukeihyo(EnshuCD, KaisyaCD, KaisyaCD, "LB", Torihikibi, 1, 1, Torihikibi2, "", "")) %>
</body>
</html>
<%
End Sub
%>