<!-- #include virtual="/sj4web/include.asp" -->
<!-- #include virtual="/sj4web/user/bk/tyobo/fk_shiwakenikkityo_view_main_in.asp" -->
<%
'<!--
'################################################
' 名称 ：帳簿_仕訳日記帳の印刷画面
' 作成日：2003/1/23
' 作成者：山崎
' 目的 ：帳簿_仕訳日記帳の印刷画面を表示する。
' 概要 ：
' <<表示>>
' ・帳簿_仕訳日記帳の印刷画面
' 修正日：2003/4/01
' 修正者：重松
' 目的 ：合計を追加する。
'################################################
'-->
'
'
%>
<%
main()
Sub main()
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 DbKarikataKingaku, DbKashikataKingaku
Dim RouteType
RouteType = Request("RouteType")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="/sj4web/binx/sj3web.css" rel="stylesheet" type="text/css">
<link href="/sj4web/binx/sj3tyobored.css" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="/sj4web/include.js"></script>
<script language="JScript" src="/sj4web/includesj.js"></script>
<script language="JScript.Encode" src="/sj4web/include_enc.js"></script>
<script language="JScript.Encode" src="/sj4web/includesj_enc.js"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
ExitFlg = 0;
-->
</SCRIPT>
<body onload="this.focus();window.print();" onkeydown="if(ExitFlg==2)ExitFlg=3;" topmargin="0" leftmargin="0">
<table BORDER="0" CELLSPACING="0" CELLPADDING="0"><tr><td valign="top">
<%
If RouteType = "Hakushi" Then
Response.Write(TyoboShiwakenikkityo(EnshuCD, KaisyaCD, KaisyaCD, "LA", "", -1, 1, "", "", ""))
Else
Response.Write(TyoboShiwakenikkityo(EnshuCD, KaisyaCD, KaisyaCD, "LA", "", 0, 1, "", "", ""))
End If
%>
</td></tr></table>
</body>
</html>
<%
End Sub
%>