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