<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :補助簿_現金出納帳 ' 作成日:2002/8/27 ' 作成者:山崎 ' 目的 :現金出納帳を表示する。 ' 概要 : ' <<表示>> ' ・現金出納帳の画面 ' 履歴 :2002/9/19 川崎 必須項目のチェックを追加 ' '################################################ '--> ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim iiDef Dim KozaBango KozaBango = Request("KozaBango") Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = "口座一覧" Dim GinkoCD, BackGinkoCD If Left(GB_GyosyuKubun, 1) = "B" Then GinkoCD = KaisyaCD PageType = "口座一覧" Else KaisyaCD = KaisyaCD GinkoCD = Request("GinkoCD") PageType = "口座残高照会" End If BackGinkoCD = Request("GinkoCD") %> <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="../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css"> <title><% = AppTitle %></title> <script language="JScript" src="../../../include.js?<% = TimeUniq() %>"></script> <script language="JScript" src="../../../includesj.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../../include_enc.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../../includesj_enc.js?<% = TimeUniq() %>"></script> <script type=""text/javascript"" src="../../../javascript.js?<% = TimeUniq() %>"></script> </head> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 1; //印刷余白指定(ミリ指定) PrintTopMargin = 15; 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 %> <% Dim RowBreakNum, RowCount Dim Page RowBreakNum = 40 RowCount = 0 Dim Query Dim Content Query = "exec SPB銀行口座一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '', '" & GinkoCD & "', '', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) For Page = 1 To MaxPage If Page <> 1 Then Response.Write(PageBreakBefore) 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(Page,PageType)) %> <TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%"> <TR> <TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600" align="center"> <TABLE WIDTH="540" HEIGHT="24" BORDER="1" CELLPADDING="1" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFFF" CLASS="tx1416" STYLE="border-collapse: collapse"> <TR ALIGN="CENTER"> <TD WIDTH="60">口座区分</TD> <TD WIDTH="60">口座番号</TD> <TD HEIGHT="20">会社名称</TD> <TD WIDTH="100">残高</TD> <TD WIDTH="120">暗証番号</TD> </TR> <% Dim ii, jj ii = 0 Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf) Response.Write("<TD HEIGHT=""22"">" & ConvKubunMeisyo("口座区分", Content.Fields("口座区分")) & "</TD>" & vbCrLf) Response.Write("<TD ALIGN=""CENTER"">" & Content.Fields("口座番号") & "</TD>" & vbCrLf) Response.Write("<TD ALIGN=""LEFT"">" & ConvKaisyaMeisyoDx(EnshuCD, Content.Fields("会社CD")) & "</TD>" & vbCrLf) Response.Write("<TD ALIGN=""RIGHT"">" & ConvIntToMoney(Content.Fields("残高"), false, false) & " </TD>" & vbCrLf) Response.Write("<TD ALIGN=""CENTER"">" & Content.Fields("暗証番号") & "</TD>" & vbCrLf) ii = ii + 1 Response.Write("</TR>") If (RowCount Mod RowBreakNum = 0) Then Exit Do End If Content.MoveNext Loop %> </TABLE> </TD> </TR> </TABLE> <% Response.Write(PrintFooter()) %> </td> </tr> </table> </td> </tr> </table> <% If (Content.BOF Or Content.EOF) Then Exit For End If Next %> </body> </html> <% End Sub %>