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