<!-- #include file="../../../include.asp" -->
<!-- #include file="../../../user/bk/tyobo/fk_sokanjyomototyohyojyun_view_main_in.asp" -->
<%
'<!--
'################################################
' 名称 ：帳簿_仕訳集計表の印刷画面
' 作成日：2003/1/23
' 作成者：山崎
' 目的 ：帳簿_仕訳集計表の印刷画面を表示する。
' 概要 ：
' <<表示>>
' ・帳簿_仕訳集計表の印刷画面
'################################################
'-->
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Kaishibi
Dim Syuryobi
Kaishibi = Request("Kaishibi")
Syuryobi = Request("Syuryobi")
If Kaishibi = "" Then
Kaishibi = GB_KaikeiKaishibi
End If
IF Syuryobi = "" Then
Syuryobi = GB_KaikeiSyuryobi
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, DbShityo, DbZandaka, DbMototyoData
Dim DbKarikataKingaku, DbKashikataKingaku
Dim DbSokanjyoMototyoCD
Dim KanjyoCD
Dim TekiyoCD
Dim ViewTorihikibi
Dim DenpyoKubun, DenpyoNo, DenpyoSEQ
KanjyoCD = Request("KanjyoCD")
TekiyoCD = Request("TekiyoCD")
ViewTorihikibi = Request("ViewTorihikibi")
DenpyoKubun = Request("DenpyoKubun")
DenpyoNo = Request("DenpyoNo")
DenpyoSEQ = Request("DenpyoSEQ")
Dim RouteType
RouteType = Request("RouteType")
' If ViewTorihikibi = "" Then
' ViewTorihikibi = GB_KaikeiKaishibi
' End If
Dim PageType
PageType = "総勘定元帳"
%>
<html>
<% = HtmlHeader("sj3tyoboredPRT09") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 0;
//印刷余白指定（ミリ指定）
PrintTopMargin = 20;
PrintLeftMargin = 18;
// 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(TyoboSokanjyoMototyoH(EnshuCD, KaisyaCD, KaisyaCD, "LD", KanjyoCD, 1, 1, TekiyoCD, Syuryobi, "")) %>
</body>
</html>
<%
End Sub
%>