<!-- #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
%>