<!-- #include virtual="/sj4web/include.asp" -->
<%
'<!--
'################################################
' 名称 ：帳簿_仕訳集計表の印刷画面
' 作成日：2003/1/23
' 作成者：山崎
' 目的 ：帳簿_仕訳集計表の印刷画面を表示する。
' 概要 ：
' <<表示>>
' ・帳簿_仕訳集計表の印刷画面
'################################################
'-->
'
'
%>
<%
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
%>
<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;
//印刷余白指定（ミリ指定）
PrintTopMargin = 20;
PrintLeftMargin = 23;
// PrintTopMargin = 0;
// PrintLeftMargin = 0;
-->
</SCRIPT>
<% If PrintMarginControl > 0 Then %>
<body onload="this.focus();doPrint(window);" onkeydown="if(ExitFlg==2)ExitFlg=3;" topmargin="0" leftmargin="0"><!--余白指定印刷-->
<% = ScriptXObject() %>
<% Else %>
<body onload="this.focus();window.print();" onkeydown="if(ExitFlg==2)ExitFlg=3;" topmargin="0" leftmargin="0">
<% End If %>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td valign="top" align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="100%" width="100%" valign="top">
<%
Response.Write(PrintHeader(0, "キャッシュフロー計算書"))
%>
<TABLE WIDTH="620" BORDER="0" CELLSPACING="5" CELLPADDING="0" HEIGHT="100%" bgcolor="#FFFFFF">
<TR>
<TD>
<TABLE WIDTH="620" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
<TR>
<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600">
<TABLE WIDTH="600" HEIGHT="20" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#DDDDDD" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<TD HEIGHT="20" colspan="3" align="left">対象期間 <% = Kaishibi %> ～ <% = Syuryobi %></TD>
</TR>
<TR ALIGN="CENTER">
<TD WIDTH="400" HEIGHT="20" > 勘 定 項 目 </TD>
<TD WIDTH="80" HEIGHT="20" > 金 額 </TD>
<TD WIDTH="80" HEIGHT="20" > </TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD VALIGN="TOP">
<TABLE ID="SyoukaiList" WIDTH="600" BORDER="1" CELLSPACING="0" CELLPADDING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFFF" CLASS="tx1214" STYLE="border-collapse: collapse">
<%
Dim RowCount, RowBreakNum
ii = 0
RowCount = 0
RowBreakNum = 5
Query = "exec SPKキャッシュフロー '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
RowCount = RowCount + 1
Response.Write("<tr>" & vbCrLf)
' Response.Write("<td width=""400"">" & Content.Fields("勘定名称") & "</td>")
Response.Write("<td width=""400""><table width=""400"" CLASS=""tx1214""><tr>")
Response.Write("<td width=""50"">" & Content.Fields("分類名称") & "</td>")
Response.Write("<td width=""350"">" & Content.Fields("勘定名称") & "</td>")
Response.Write("</tr></table></td>")
Response.Write("<td width=""80"" align=""right"">" & ConvIntToMoney(Content.Fields("金額左"), false, true) & "</td>") '<font color=""#000099"">
Response.Write("<td width=""80"" align=""right"">" & ConvIntToMoney(Content.Fields("金額右"), false, false) & "</td>") '<font color=""#6600cc"">
Response.Write("</tr>" & vbCrLf)
ii = ii + 1
Content.MoveNext
Loop
%>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<%
Response.Write(PrintFooter())
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
End Sub
%>