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

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

<%

Dim CSVOutput
CSVOutput = ""

main()

Sub main()

	Dim Kaishibi
	Dim Syuryobi
	Dim Query
	Dim Content
	Dim ii, jj


	Kaishibi = Request("Kaishibi")
	Syuryobi = Request("Syuryobi")

	If Kaishibi = "" Then
		Kaishibi = GB_KaikeiKaishibi
	End If
	IF Syuryobi = "" Then
		Syuryobi = GB_KaikeiSyuryobi
	End If

	Dim Order
	Order = Request("Order")

	Dim ShiwakeFrom
	ShiwakeFrom = Request("ShiwakeFrom")
	Dim ShiwakeTo
	ShiwakeTo = Request("ShiwakeTo")

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

	//印刷余白指定(ミリ指定)
	PrintTopMargin = 20;
	PrintLeftMargin = 13;
//	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(TyoboShiwakenikkityoJidou(EnshuCD, KaisyaCD, KaisyaCD, "LA", "", 1, 1, "", "", "")) %>
<% Response.Write(TyoboShiwaketyo(EnshuCD, KaisyaCD, KaisyaCD, "LA", "", 1, 1, "", "", Order & ";" & ShiwakeFrom & ";" & ShiwakeTo)) %>
</body>
</html>
<%
End Sub
%>