
<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	名称	：商社-経理部メニュー
'	作成日：2002/10/18
'	作成者：山崎
'################################################
'-->
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim GinkoCD
	GinkoCD = Request("GinkoCD")

	Dim InputHojyobo
	Dim AutoGenkinNyuSyukinRireki, AutoYokinNyuSyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki
	Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran
	Dim GinkoJidou, GinkoMadoguchiHyoji, KinkoHyoji
	Dim KogitteHyoji, YTegataHyoji, KTegataHyoji, RyosyusyoHyoji, KyuyoDaichoHyoji
	Dim GinkoShijokanRiyo
	Dim KishusetteiRiyo
	Dim KishusetteiRiyoKanjo
	Dim KishusetteiRiyoKurikoshi

	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		InputHojyobo = Content.Fields("手動補助簿表示")
		Dim YobiA
		YobiA =	Content.Fields("履歴表示")
		AutoGenkinNyuSyukinRireki = Mid(YobiA, 1, 1)
		AutoYokinNyuSyukinRireki = Mid(YobiA, 2, 1)
		AutoNyukoJisseki = Mid(YobiA, 3, 1)
		AutoSyukoJisseki = Mid(YobiA, 4, 1)
		AutoSyohinZaiko = Mid(YobiA, 5, 1)
		AutoUketoriTegataIchiran = Mid(YobiA, 6, 1)
		AutoShiaraiTegataIchiran = Mid(YobiA, 7, 1)
		GinkoJidou = "" & Content.Fields("銀行自動処理")
		GinkoMadoguchiHyoji = "" & Content.Fields("銀行窓口表示")
		GinkoShijokanRiyo = "" & Content.Fields("銀行市場間利用")
		KinkoHyoji = "" & Content.Fields("金庫表示")
		KogitteHyoji = "" & Content.Fields("小切手表示")
		YTegataHyoji = "" & Content.Fields("約束手形表示")
		KTegataHyoji = "" & Content.Fields("為替手形表示")
		RyosyusyoHyoji = "" & Content.Fields("領収書表示")
		KyuyoDaichoHyoji = "" & Content.Fields("給与台帳表示")
		KishusetteiRiyo = "" & Content.Fields("期首設定経理部利用")
	End If

	If "" & KishusetteiRiyo = "" Then
		KishusetteiRiyo = "3"
	End If
	KishusetteiRiyoKanjo = "1"
	KishusetteiRiyoKurikoshi = "1"
	If KishusetteiRiyo = "2" Or KishusetteiRiyo = "0" Then
		'勘定残高のみ
		KishusetteiRiyoKurikoshi = "0"
	End If
	If KishusetteiRiyo = "1" Or KishusetteiRiyo = "0" Then
		'繰越残高のみ
		KishusetteiRiyoKanjo = "0"
	End If

	'銀行自動の場合は銀行窓口を強制表示（窓口を利用しなければ必然的に自動はOFFになるので廃止）
'	If GinkoJidou = "1" Then
'		GinkoMadoguchiHyoji = "1"
'	End If

	Dim GinkoZandaka
	GinkoZandaka = 0

	Dim ActGinkoCnt
	ActGinkoCnt = 0

	Dim GinkoNothing
	GinkoNothing = 0

	Dim GinkoCnt
	GinkoCnt = 0

	Dim bGenkinMinusCheck, bGinkoMinusCheck
	bGenkinMinusCheck = 0
	bGinkoMinusCheck = 0
	Dim Nyukin , Syukin , Zandaka
	Zandaka = 0
	Query = "exec SPK現金入出金履歴一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"

	Set Content = OpenQuery(Query)


	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("現金取引区分") = "GN" Then
			Nyukin = Content.Fields("金額")
			Syukin = 0
		ElseIf Content.Fields("現金取引区分") = "GS" Then
			Nyukin = 0
			Syukin = Content.Fields("金額")
		Else
			Nyukin = Content.Fields("金額")
			Syukin = Content.Fields("金額")
		End If
		Zandaka = Zandaka + Nyukin - Syukin
		If Zandaka < 0 Then
			bGenkinMinusCheck = 1
		End If
		Content.MoveNext
	Loop


	Dim Query1, Content1

	Query = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', ''"
	Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)

		Query1 = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '', '" & Content.Fields("銀行CD") & "', '" & Content.Fields("口座区分") & "', '" & Content.Fields("口座番号") & "'"
		Set Content1 = OpenQuery(Query1)
			Zandaka = 0
			Do While Not(Content1.BOF Or Content1.EOF)
				Dim tmpKingaku
				tmpKingaku = Content1.Fields("金額")
				If IsNull(tmpKingaku) Then
				tmpKingaku = 0
				End If
				If tmpKingaku = "" Then
				tmpKingaku = 0
				End If
				If Right(Content1.Fields("銀行取引区分"), 1) = "N" Then
					Zandaka = Zandaka + tmpKingaku
				Else
					Zandaka = Zandaka - tmpKingaku
			End If

			If Zandaka < 0 Then
				bGinkoMinusCheck = 1
			End If
		Content1.MoveNext
		Loop
	Content.MoveNext
	Loop

%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<%
		Response.Write(HtmlDesign(1))

		Response.Write(HttpL1(3))

		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "", "", "", "", "", "", ""))

		Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

		Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))

		Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))

		Response.Write(HttpL4("経理部", ""))

		If bGenkinMinusCheck = 1 Then
			Response.Write(HttpL5("現金がマイナスになっている時点があります"))
		ElseIf bGinkoMinusCheck = 1 Then
			Response.Write(HttpL5("預金がマイナスになっている時点があります"))
		End If
%>


<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
	<tr>
		<td>
			<table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%">
				<tr>
					<td align="CENTER" valign="MIDDLE">
						<TABLE HEIGHT="360" BORDER="0" CELLSPACING="5" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000">
							<TR>
								<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_r.gif?<% = GB_STU %>">
									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
										<TR>
											<TD HEIGHT="1"><% = Spacer(1,10) %></TD>
										</TR>
										<TR>
											<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
											<TD HEIGHT="20" ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>">
												<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="20" style="border-collapse: collapse" bordercolor="#111111">
													<TR>
														<TD ALIGN="CENTER" VALIGN="BOTTOM" CLASS="tx2022mn">【 経理部 】</TD>
													</TR>
												</TABLE>
											</TD>
											<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
										</TR>
										<TR>
											<TD HEIGHT="1"><% = Spacer(1,10) %></TD>
										</TR>
										<TR>
											<TD WIDTH="20" CLASS="tx1214">　</TD>
											<TD ALIGN="CENTER">
												<table border="0" height="280" cellspacing="0" cellpadding="0">
													<tr>
														<td valign="top" align="center">
															<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
																<TR>
																	<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_lur.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																	<TD HEIGHT="20" ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hur.gif?<% = GB_STU %>">
																		<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hhr.gif?<% = GB_STU %>" style="border-collapse: collapse" bordercolor="#111111">
																			<TR>
																				<TD ALIGN="CENTER" VALIGN="BOTTOM" CLASS="tx2022mn">&nbsp;【 経理課 】&nbsp;</TD>
																			</TR>
																		</TABLE>
																	</TD>
																	<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rur.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																</TR>
																<TR>
																	<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																	<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>">
																		<TABLE WIDTH="360" HEIGHT="40" BORDER="0" CELLSPACING="0" CELLPADDING="0">
																			<TR ALIGN="CENTER" VALIGN="MIDDLE">
																				<TD HEIGHT="77" WIDTH="120">
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" onClick="tblbtn( 'menu_s11.asp')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>">
																						<TR>
																							<TD ALIGN="CENTER">伝票</TD>
																						</TR>
																					</TABLE>
																				</TD>
																				<TD HEIGHT="77" WIDTH="120">

																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" onClick="tblbtn( 'menu_s12.asp')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>">
																						<TR>
																							<TD ALIGN="CENTER">帳簿</TD>
																						</TR>
																					</TABLE>
																				</TD>




																				<TD HEIGHT="77" WIDTH="120">
																					<% If KyuyoDaichoHyoji = "1" Then %>
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/syain/fk_syain_ichiran.asp?RouteType=Kyuyo');" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>">
																						<TR>
																							<TD ALIGN="CENTER">給与台帳</TD>
																						</TR>
																					</TABLE>
																					<% End If %>
																				</TD>

																			</TR>
																			<TR ALIGN="CENTER" VALIGN="MIDDLE">
																				<TD HEIGHT="77" WIDTH="120" align="center">
																					<% If KogitteHyoji = "1" Then %>
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/tegata/fk_tegata.asp?BunsyoSyuruiCD=TG')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>">
																						<TR>
																							<TD ALIGN="CENTER">小切手</TD>
																						</TR>
																					</TABLE>
																					<% End If %>
																				</TD>
																				<TD HEIGHT="77" WIDTH="120">
																					<% If YTegataHyoji = "1" Then %>
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/tegata/fk_tegata.asp?BunsyoSyuruiCD=TY')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>">
																						<TR>
																							<TD ALIGN="CENTER">約束手形</TD>
																						</TR>
																					</TABLE>
																					<% End If %>
																				</TD>
																				<TD HEIGHT="77" WIDTH="120">
																					<% If KTegataHyoji = "1" Then %>
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/tegata/fk_tegata.asp?BunsyoSyuruiCD=TK')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>">
																						<TR>
																							<TD ALIGN="CENTER">為替手形</TD>
																						</TR>
																					</TABLE>
																					<% End If %>
																				</TD>
																			</TR>
																			<tr>

																				<TD HEIGHT="77" WIDTH="120" align="center">
																					<% If RyosyusyoHyoji = "1" Then %>
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/ryosyusyo/fk_ryosyusyo.asp')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>">
																						<TR>
																							<TD ALIGN="CENTER">領収書</TD>
																						</TR>
																					</TABLE>
																					<% End If %>
																				</TD>

																				<TD HEIGHT="77" WIDTH="120" align="center">

																					<% 'AutoUketoriTegataIchiran = "0" %>
																					<% If AutoUketoriTegataIchiran = "1" Then %>
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/syokaisyukei/fk_uketorisiharaitegatatyo_view.asp?BunsyoSyuruiCD=MH&SenpoFlg=1')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>">
																						<TR>
																							<TD ALIGN="CENTER">受取手形<br>履歴</TD>
																						</TR>
																					</TABLE>
																					<% End If %>
																				</TD>
																				<TD HEIGHT="77" WIDTH="120" align="center">
																					<% If AutoShiaraiTegataIchiran = "1" Then %>
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/syokaisyukei/fk_uketorisiharaitegatatyo_view.asp?BunsyoSyuruiCD=MI')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>">
																						<TR>
																							<TD ALIGN="CENTER">支払手形<br>履歴</TD>
																						</TR>
																					</TABLE>
																					<% End If %>
																				</TD>
																			</tr>
																		</TABLE>
																	</TD>
																	<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vrr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																</TR>
																<!--ボタン下の隙間調節--><tr>
																	<TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlr.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
																	<TD HEIGHT="5" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
																	<TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vrr.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
																</tr>
																<TR>
																	<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_ldr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																	<TD HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hdr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																	<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rdr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																</TR>
															</TABLE>
															<table border="0" width="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
																<tr>
																	<td align="right">
																		<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
																			<TR>
																				<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_lur.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																				<TD HEIGHT="20" ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hur.gif?<% = GB_STU %>">
																					<TABLE WIDTH="100" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hhr.gif?<% = GB_STU %>" style="border-collapse: collapse" bordercolor="#111111">
																						<TR>
																							<TD ALIGN="CENTER" VALIGN="BOTTOM" CLASS="tx2022mn" nowrap>&nbsp;【 期首設定 】&nbsp;</TD>
																						</TR>
																					</TABLE>
																				</TD>
																				<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rur.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																			</TR>
																			<TR>
																				<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																				<TD ALIGN="CENTER" width="100" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>">
																					<TABLE WIDTH="160" HEIGHT="52" BORDER="0" CELLSPACING="0" CELLPADDING="0">
																						<TR ALIGN="CENTER" VALIGN="MIDDLE">
																							<TD HEIGHT="52" WIDTH="160">
																								<TABLE WIDTH="150" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="50" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/kisyusettei/fk_kanjyozandaka<% If KishusetteiRiyoKanjo <> "1" Then %>_view<% End If %>.asp')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_rssc.gif?<% = GB_STU %>">
																									<TR>
																										<TD width="15" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_rssl.gif?<% = GB_STU %>">
																										<TD ALIGN="CENTER">勘定残高設定</TD>
																										<TD width="15" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_rssr.gif?<% = GB_STU %>">
																									</TR>
																								</TABLE>
																							</TD>
																						</TR>
																						<TR ALIGN="CENTER" VALIGN="MIDDLE">
																							<TD HEIGHT="52" WIDTH="160">
																								<TABLE WIDTH="150" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="50" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/kisyusettei/fk_kurikoshizandaka<% If KishusetteiRiyoKurikoshi <> "1" Then %>_view<% End If %>.asp')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_rssc.gif?<% = GB_STU %>">
																									<TR>
																										<TD width="15" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_rssl.gif?<% = GB_STU %>">
																										<TD ALIGN="CENTER">繰越残高設定</TD>
																										<TD width="15" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_rssr.gif?<% = GB_STU %>">
																									</TR>
																								</TABLE>
																							</TD>
																						</TR>
																					</TABLE>
																				</TD>
																				<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vrr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																			</TR>
																			<!--ボタン下の隙間調節--><tr>
																				<TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlr.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
																				<TD HEIGHT="5" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
																				<TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vrr.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
																			</tr>
																			<TR>
																				<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_ldr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																				<TD HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hdr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																				<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rdr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																			</TR>
																		</TABLE>
																	</td>
																	<td align="left">
																		<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
																			<TR>
																				<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_lur.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																				<TD HEIGHT="20" ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hur.gif?<% = GB_STU %>">
																					<TABLE WIDTH="100" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hhr.gif?<% = GB_STU %>" style="border-collapse: collapse" bordercolor="#111111">
																						<TR>
																							<TD ALIGN="CENTER" VALIGN="BOTTOM" CLASS="tx2022mn" nowrap>&nbsp;【 期末処理 】&nbsp;</TD>
																						</TR>
																					</TABLE>
																				</TD>
																				<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rur.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																			</TR>
																			<TR>
																				<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																				<TD ALIGN="CENTER" width="100" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>">
																					<TABLE WIDTH="160" HEIGHT="52" BORDER="0" CELLSPACING="0" CELLPADDING="0">
																						<TR ALIGN="CENTER" VALIGN="MIDDLE">
																							<TD HEIGHT="52" WIDTH="160">
																								<% If GetEnshuParam(EnshuCD, "整理記入精算表利用") = "1" Then %>
																								<TABLE WIDTH="150" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="50" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/kimatsusettei/fk_seisanhyo.asp')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_rssc.gif?<% = GB_STU %>">
																								<% Else %>
																								<TABLE WIDTH="150" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="50" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/kimatsusettei/fk_furikae.asp')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_rssc.gif?<% = GB_STU %>">
																								<% End If %>
																									<TR>
																										<TD width="15" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_rssl.gif?<% = GB_STU %>">
																										<TD ALIGN="CENTER">決算整理仕訳</TD>
																										<TD width="15" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_rssr.gif?<% = GB_STU %>">
																									</TR>
																								</TABLE>
																							</TD>
																						</TR>
																						<TR ALIGN="CENTER" VALIGN="MIDDLE">
																							<TD HEIGHT="52" WIDTH="160">
																								<% If GetEnshuParam(EnshuCD, "整理記入精算表利用") = "1" Then %>
																								<TABLE WIDTH="150" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="50" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/kimatsusettei/fk_seisanhyo.asp?Kimatsu=Kurikoshi')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_rssc.gif?<% = GB_STU %>">
																								<% Else %>
																								<TABLE WIDTH="150" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="50" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/kimatsusettei/fk_furikae.asp?Kimatsu=Kurikoshi')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_rssc.gif?<% = GB_STU %>">
																								<% End If %>
																									<TR>
																										<TD width="15" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_rssl.gif?<% = GB_STU %>">
																										<TD ALIGN="CENTER">決算振替仕訳</TD>
																										<TD width="15" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_rssr.gif?<% = GB_STU %>">
																									</TR>
																								</TABLE>
																							</TD>
																						</TR>
																					</TABLE>
																				</TD>
																				<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vrr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																			</TR>
																			<!--ボタン下の隙間調節--><tr>
																				<TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlr.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
																				<TD HEIGHT="5" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
																				<TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vrr.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
																			</tr>
																			<TR>
																				<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_ldr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																				<TD HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hdr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																				<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rdr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																			</TR>
																		</TABLE>
																	</td>
																</tr>
															</table>
														</td>
														<td width="400" valign="top" align="center">

														<% If KinkoHyoji = "1" Then %>
															<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
																<TR>
																	<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_lur.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																	<TD HEIGHT="20" ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hur.gif?<% = GB_STU %>">
																		<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hhr.gif?<% = GB_STU %>" style="border-collapse: collapse" bordercolor="#111111">
																			<TR>

																				<TD ALIGN="center" VALIGN="BOTTOM" CLASS="tx2022mn">&nbsp;【 金庫 】&nbsp;</TD>
																				<TD ALIGN="left" CLASS="tx1416">
																				 残高：<%
																					Query = "exec SPK現金入出金残高 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & GB_KaikeiSyuryobi & "'"

																					Set Content = OpenQuery(Query)


																					Dim GenkinNyuSyukinZandaka
																					GenkinNyuSyukinZandaka = 0
																					If Not(Content.EOF Or Content.BOF) Then
																						GenkinNyuSyukinZandaka = Content.Fields("残高")
																					End If
																					Response.Write(ConvIntToMoney(GenkinNyuSyukinZandaka, false, false) & "&nbsp;&nbsp;")

																				 %></TD>
																			</TR>
																		</TABLE>
																	</TD>
																	<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rur.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																</TR>
																<TR>
																	<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																	<TD ALIGN="CENTER" WIDTH="360" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>">
																		<TABLE WIDTH="360" HEIGHT="57" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>" BORDER="0" CELLSPACING="0" CELLPADDING="0">
																			<tr ALIGN="CENTER" VALIGN="MIDDLE">
																				<TD HEIGHT="77" WIDTH="120">
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/kinko/fk_nyukin.asp?PageType=Nyukin')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>">
																						<TR>
																							<TD ALIGN="CENTER">入金</TD>
																						</TR>
																					</TABLE>
																				</TD>
																				<TD HEIGHT="77" WIDTH="120" valign="middle" align="center">
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/kinko/fk_nyukin.asp?PageType=Shukkin')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>">
																						<TR>
																							<TD ALIGN="CENTER">出金</TD>
																						</TR>
																					</TABLE>
																				</TD>
																				<TD HEIGHT="77" WIDTH="120" valign="middle" align="center">
																					<% 'AutoGenkinNyuSyukinRireki = "0" %>
																					<% If AutoGenkinNyuSyukinRireki = "1" Then %>
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/syokaisyukei/fk_kinko_rireki.asp')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2r.gif?<% = GB_STU %>">
																						<TR>
																							<TD ALIGN="CENTER">
																							<% If bGenkinMinusCheck = 1 Then %>
																							<font color="#FF0000">入出金<br>履歴</font>
																							<% Else %>
																							入出金<br>履歴
																							<% End If %>
																							</TD>
																						</TR>
																					</TABLE>
																					<% End If %>
																				</TD>
																			</tr>
																		</TABLE>

																	</TD>
																	<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vrr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																</TR>
																<!--ボタン下の隙間調節--><tr>
																	<TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlr.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
																	<TD HEIGHT="5" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_rd.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
																	<TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vrr.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
																</tr>
																<TR>
																	<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_ldr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																	<TD HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hdr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																	<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rdr.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																</TR>
															</TABLE>
															<% End If %>
															<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
																<TR>
																	<TD HEIGHT="25" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_luo.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																	<TD HEIGHT="25" ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_huo.gif?<% = GB_STU %>">
																		<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="25" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hho.gif?<% = GB_STU %>">
																			<TR>
																				<TD ALIGN="CENTER" VALIGN="BOTTOM" CLASS="tx2022mn">&nbsp;【 銀行オンライン窓口 】&nbsp;</td>
																				<TD ALIGN="left" CLASS="tx1416">


																				<%
																					'利用可能な銀行が存在するか判定＆銀行数をカウント
																					GinkoNothing = 1
																					If GinkoShijokanRiyo <> "1" Then
																						'同一市場限定の場合
																						Query = "exec SPM会社市場一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "', '" & GB_ShijyoCD & "'"
																					Else
																						Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'"
																					End If
																					Set Content = OpenQuery(Query)
																					Do While Not(Content.BOF Or Content.EOF)
																						If Content.Fields("業種CD") = "B" Then
																							GinkoNothing = 0
																							GinkoCnt = GinkoCnt + 1
																						End If
																						Content.MoveNext
																					Loop

																					Dim TmpGinkoCD
																					TmpGinkoCD = ""
																					Query = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', ''"
																					Set Content = OpenQuery(Query)
																					Do While Not(Content.EOF Or Content.BOF)
																						'口座を持っている銀行数をカウント
																						If TmpGinkoCD <> Content.Fields("銀行CD") Then
																							TmpGinkoCD = Content.Fields("銀行CD")
																							ActGinkoCnt = ActGinkoCnt + 1
																						End If
																						GinkoZandaka = GinkoZandaka + Content.Fields("残高")
																						Content.MoveNext
																					Loop

																					'口座を持っている銀行が1つ且つ既選択銀行CDが無ければ代入
																					If GinkoCD = "" And ActGinkoCnt = 1 Then
																						GinkoCD = TmpGinkoCD
																					End If

																				%>
																				</TD>
																			</TR>
																		</TABLE>
																	</TD>
																	<TD HEIGHT="25" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_ruo.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																</TR>
																<TR>
																	<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlo.gif?<% = GB_STU %>" CLASS="tx1416">　</TD>
																	<%
																		Dim Takasa
																		If GinkoMadoguchiHyoji = "1" Then
																			Takasa = 205
																		Else
																			Takasa = 80
																		End If
																	%>
																	<TD ALIGN="CENTER" height="<% = Takasa %>" VALIGN="TOP" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_od.gif?<% = GB_STU %>">
																		<TABLE WIDTH="360" HEIGHT="<% = Takasa %>" BORDER="0" CELLSPACING="0" CELLPADDING="0">
																			<tr>
																			<% If GinkoNothing = 0 Then %>
																				<TD HEIGHT="26" colspan="3" align="center">
																					<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
																						<tr>
																							<td width="70" CLASS="tx1416">銀行選択：</td>
																							<td>
																								<select size="1" name="GinkoCD" id="GinkoCD" class="tbox4">
																										<%
																												If GinkoCnt > 1 Then	'銀行が複数存在する場合のみ未指定行を追加
																													Response.Write("<option value="""">　　　　</option>" & vbCrLf)
																												End If

																												Dim Query, Content
																												If GinkoShijokanRiyo <> "1" Then
																													'同一市場限定の場合
																													Query = "exec SPM会社市場一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "', '" & GB_ShijyoCD & "'"
																												Else
																													Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'"
																												End If

																												Set Content = OpenQuery(Query)

																												Do While Not(Content.BOF Or Content.EOF)
																														If Content.Fields("業種CD") = "B" Then
																														Response.Write("<option value=""" & Content.Fields("会社CD") & """")
																																If	Content.Fields("会社CD") = GinkoCD Then
																																Response.Write(" selected ")
																																End If
																																Response.Write(">" & Content.Fields("会社略名称") & "</option>" & vbCrLf)
																														End If
																														Content.MoveNext
																												Loop

																										%>
																								 </select>
																							</td>
																							<td CLASS="tx1416">&nbsp;&nbsp;総預金残高：<% = ConvIntToMoney(GinkoZandaka, false, false) %></td>
																						</tr>
																					</table>



																				</TD>
																			</tr>


																			<% If GinkoMadoguchiHyoji = "1" Then %>
																			<TR ALIGN="CENTER" VALIGN="MIDDLE">
																				<TD HEIGHT="77" WIDTH="120">
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2o.gif?<% = GB_STU %>" onClick="NextPage('/<% = HomeAlias %>/user/bk/ginkomadoguchi/fb_ginkosyorui.asp?BunsyoSyuruiCD=BA')" >
																						<TR>
																							<TD ALIGN="CENTER">口座開設</TD>
																						</TR>
																					</TABLE>
																				</TD>
																				<TD HEIGHT="77" WIDTH="120">
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2o.gif?<% = GB_STU %>" onClick="NextPage('/<% = HomeAlias %>/user/bk/ginkomadoguchi/fb_ginkosyorui.asp?BunsyoSyuruiCD=BB')" >
																						<TR>
																							<TD ALIGN="CENTER">預入</TD>
																						</TR>
																					</TABLE>
																				</TD>
																				<TD HEIGHT="77" WIDTH="120">
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2o.gif?<% = GB_STU %>" onClick="NextPage('/<% = HomeAlias %>/user/bk/ginkomadoguchi/fb_ginkosyorui.asp?BunsyoSyuruiCD=BC')">
																						<TR>
																							<TD ALIGN="CENTER">引出</TD>
																						</TR>
																					</TABLE>
																				</TD>
																			</TR>
																			<TR ALIGN="CENTER" VALIGN="MIDDLE">
																				<TD HEIGHT="77" WIDTH="120">
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2o.gif?<% = GB_STU %>" onClick="NextPage('/<% = HomeAlias %>/user/bk/ginkomadoguchi/fb_ginkosyorui.asp?BunsyoSyuruiCD=BD')">
																						<TR>
																							<TD ALIGN="CENTER">振込</TD>
																						</TR>
																					</TABLE>
																				</TD>
																				<% If KogitteHyoji = "1" Then %>
																				<TD HEIGHT="77" WIDTH="120">
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2o.gif?<% = GB_STU %>" onClick="NextPage('/<% = HomeAlias %>/user/bk/ginkomadoguchi/fb_ginkosyorui.asp?BunsyoSyuruiCD=BE')">
																						<TR>
																							<TD ALIGN="CENTER">小切手入金</TD>
																						</TR>
																					</TABLE>
																				</TD>
																				<% End If %>
																				<% If MajorVersion >= 5 Then %>
																				<TD HEIGHT="77" WIDTH="120">
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2o.gif?<% = GB_STU %>" onClick="NextPage('/<% = HomeAlias %>/user/bk/ginkomadoguchi/fb_ginkosyorui.asp?BunsyoSyuruiCD=BH')">
																						<TR>
																							<TD ALIGN="CENTER">残高証明書</TD>
																						</TR>
																					</TABLE>
																				</TD>
																				<% End If %>
																			</TR>
																			<% End If %>
																			<TR ALIGN="CENTER" VALIGN="MIDDLE">
																				<% If GinkoMadoguchiHyoji = "1" And (YTegataHyoji = "1" Or KTegataHyoji = "1") Then %>
																				<TD HEIGHT="77" WIDTH="120">
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2o.gif?<% = GB_STU %>" onClick="NextPage('/<% = HomeAlias %>/user/bk/ginkomadoguchi/fb_ginkosyorui.asp?BunsyoSyuruiCD=BF')">
																						<TR>
																							<TD ALIGN="CENTER">
																							手形取立</TD>
																						</TR>
																					</TABLE>
																				</TD>
																				<TD HEIGHT="77" WIDTH="120">
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2o.gif?<% = GB_STU %>" onClick="NextPage('/<% = HomeAlias %>/user/bk/ginkomadoguchi/fb_ginkosyorui.asp?BunsyoSyuruiCD=BG')">
																						<TR>
																							<TD ALIGN="CENTER">
																							手形割引</TD>
																						</TR>
																					</TABLE>
																				</TD>
																				<% Else %>
																				<TD HEIGHT="77" WIDTH="120">
																				</TD>
																				<% End If %>
																				<TD HEIGHT="77" WIDTH="120">
																					<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2o.gif?<% = GB_STU %>" onClick="NextPage('/<% = HomeAlias %>/user/bk/ginkomadoguchi/fb_koza.asp?1=1')">
																						<TR>
																							<TD ALIGN="CENTER">
																							<% If bGinkoMinusCheck = 1 Then %>
																							<font color="#FF0000">預金通帳</font>
																							<% Else %>
																							預金通帳
																							<% End If %>
																							</TD>
																						</TR>
																					</TABLE>
																				</TD>
																				<% If GinkoMadoguchiHyoji = "1" And (YTegataHyoji = "1" Or KTegataHyoji = "1") Then %>
																				<% Else %>
																				<TD HEIGHT="77" WIDTH="120">
																				</TD>
																				<% End If %>
																			<% Else %>
																				<TD ALIGN="CENTER" VALIGN="MIDDLE" CLASS="tx1618"><FONT COLOR="#FF0000">同一市場に銀行が存在しません</FONT></TD>
																			<% End If %>
																			</TR>
																		</TABLE>


																	</TD>
																	<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vro.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																</TR>
																<!--ボタン下の隙間調節--><tr>
																	<TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlo.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
																	<TD HEIGHT="5" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_od.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
																	<TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vro.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
																</tr>
																<TR>
																	<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_ldo.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																	<TD HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hdo.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																	<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rdo.gif?<% = GB_STU %>" CLASS="tx1214">　</TD>
																</TR>
															</TABLE>
														</td>
													</tr>
												</table>
											</TD>
											<TD WIDTH="20" CLASS="tx1214">　</TD>
										</TR>
										<TR>
											<TD HEIGHT="20" WIDTH="20" CLASS="tx1214">　</TD>
											<TD HEIGHT="20" CLASS="tx1214">　</TD>
											<TD HEIGHT="20" WIDTH="20" CLASS="tx1214">　</TD>
										</TR>
									</TABLE>
								</TD>
							</TR>
						</TABLE>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>

</div>
</body>
<script language="JavaScript">

	function NextPage(url) {
			if (url == "#") {
				return;
			}
<% If GinkoCnt > 1 Then	'銀行が複数存在する場合のみ未指定チェックする %>
			if (document.getElementById("GinkoCD").selectedIndex == 0) {
				alert("銀行を選択して下さい");
				return;
			}
<% End If %>
			url = url + "&GinkoCD=" + document.getElementById("GinkoCD").value;
			tblbtn(url);
	}

</script>
<% = HtmlFooter %>
</html>
<%
End Sub
%>