<!-- #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) & "&nbsp;</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
%>