
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：銀行窓口受付申込
'	作成日：2002/10/18
'	作成者：山崎
'	目的　：銀行窓口処理の申込画面を表示する。
'	概要	：
'	 <<表示>>
'	・
'	<<入力チェック>>
'	・
'################################################
'-->
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Content2
	Dim Content3

	Dim Torihikibi

	Dim TozaHikidashiFurikomiKogitteHituyo
	Dim GinkoCD , BunsyoSyuruiCD, BunsyoNaiyoCD
	Dim JidoBangoShiireUriageSyorui

	Dim title, GenkinTitle
	Dim TenmatsuKubun

	GinkoCD = Request("GinkoCD")
	If GB_Gyosyu = "B" Then
		GinkoCD = KaisyaCD
	End If
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")

	Dim KozaKubun
	Dim Moshikomibi
	Dim AnsyoBango
	Dim Kingaku
	Dim Tekiyo
	Dim KozaBango
	Dim FurikomisakiKozaBango
	Dim TegataNo
	Dim SyoribiLabel
	Dim TorihikibiLabel

	KozaKubun = Request("KozaKubun")
	Moshikomibi = Request("Moshikomibi")
	AnsyoBango = Request("AnsyoBango")
	Kingaku = Request("Kingaku")
	Tekiyo = Request("Tekiyo")
	KozaBango = Request("KozaBango")
	FurikomisakiKozaBango = Request("FurikomisakiKozaBango")
	TegataNo = Request("TegataNo")

	SyoribiLabel = "申込日"
	TorihikibiLabel = "取引日"

	If BunsyoSyuruiCD= "BA" Then
		title = "口座開設"
	ElseIf BunsyoSyuruiCD= "BB" Then
		title = "預入"
		GenkinTitle = "出金"
	ElseIf BunsyoSyuruiCD= "BC" Then
		title = "引出"
		GenkinTitle = "入金"
		TorihikibiLabel = "振出日"
	ElseIf BunsyoSyuruiCD= "BD" Then
		title = "振込"
		TorihikibiLabel = "振出日"
	ElseIf BunsyoSyuruiCD= "BE" Then
		title = "小切手入金"
		TenmatsuKubun = "TG"
		TorihikibiLabel = "振出日"
	ElseIf BunsyoSyuruiCD= "BF" Then
		title = "手形取立"
		TenmatsuKubun = "TT"
		TorihikibiLabel = "振出日"
	ElseIf BunsyoSyuruiCD= "BG" Then
		title = "手形割引"
		TenmatsuKubun = "TW"
		TorihikibiLabel = "振出日"
	ElseIf BunsyoSyuruiCD= "BH" Then
		title = "残高証明"
	End If

	'自社銀行口座への処理の場合
	If GB_Gyosyu = "B" Then
		SyoribiLabel = title & "日"
	End If

	Dim Jissenbi
	Jissenbi = ""
	Dim GinkoIraiHozon
	'フラグ取得
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		JidoBangoShiireUriageSyorui = Content.Fields("自動番号銀行書類")
		TozaHikidashiFurikomiKogitteHituyo = Content.Fields("当座引出振込小切手必要")
		Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日"))
		GinkoIraiHozon = "" & Content.Fields("銀行窓口依頼保存")
	End If

	If GB_Gyosyu = "B" Then	'自社銀行口座の場合は小切手不要
		TozaHikidashiFurikomiKogitteHituyo = "0"
	End If

'	JidoBangoShiireUriageSyorui = GetEnshuParam(EnshuCD, "自動番号銀行書類")
'	TozaHikidashiFurikomiKogitteHituyo = GetEnshuParam(EnshuCD, "当座引出振込小切手必要")


'		Dim Query1, Content1, Shihonkin
		
		
'		Query1 = "exec SPV会社情報取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "','" & KaisyaCD & "'"
'		Set Content1 = OpenQuery(Query1)

'		If Not (Content1.BOF Or Content1.EOF) Then
'			Shihonkin = Content1.Fields("資本金")
'		End If
'		If IsNull(Shihonkin) Then
'		Shihonkin = 0
'		End If



	'振込先口座配列作成
	Dim KaishaCDA
	Dim KaishaNameA
	Dim KaishaShijoA
	ReDim KaishaCDA(0)
	ReDim KaishaNameA(0)
	ReDim KaishaShijoA(0)
	Query = "exec SPB銀行口座一覧2 '" & GB_SystemCD & "', '" & EnshuCD & "',  '',  '',  '', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If GB_Gyosyu <> "B" Or Content.Fields("会社CD") <> KaisyaCD Then	'銀行自社口座を除外
			ReDim PreServe KaishaCDA(UBound(KaishaCDA) + 1)	'配列数+1
			ReDim PreServe KaishaNameA(UBound(KaishaCDA))
			ReDim PreServe KaishaShijoA(UBound(KaishaCDA))
			KaishaCDA(UBound(KaishaCDA)) = Content.Fields("銀行CD") & "_" & Content.Fields("口座区分") & "_" & Content.Fields("口座番号")
			KaishaNameA(UBound(KaishaCDA)) = Content.Fields("会社略名称") & "　（" & ConvKubunMeisyo("口座区分", Content.Fields("口座区分")) & "：" & Content.Fields("銀行略名称") & "）"
			KaishaShijoA(UBound(KaishaCDA)) = "" & Content.Fields("市場CD")
		End If
		Content.MoveNext
	Loop
	ReDim PreServe KaishaCDA(UBound(KaishaCDA) + 1)	'配列数+1
	ReDim PreServe KaishaNameA(UBound(KaishaCDA))
	ReDim PreServe KaishaShijoA(UBound(KaishaCDA))
	KaishaCDA(UBound(KaishaCDA)) = "etc"
	KaishaNameA(UBound(KaishaCDA)) = "その他"
	KaishaShijoA(UBound(KaishaCDA)) = ""


	Dim KozaCnt '口座数確認用
	KozaCnt = 0

%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 2;
-->
</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">
<form OnKeyDown="FormKeyDown(this)" name="form1" method="GET" action="fb_ginkosyorui_bin.asp" autocomplete="off">
<input type="hidden" name="GinkoCD" value="<% = GinkoCD %>">
<input type="hidden" name="BunsyoSyuruiCD" value="<% = BunsyoSyuruiCD %>">
<input type="hidden" name="OldBunsyoNaiyoCD" value="<% = BunsyoNaiyoCD %>">
<input type="hidden" name="Torihikibi" value="">
<input type="hidden" name="Tenmatsubi" value="">
<input type="hidden" name="Shiharaibi" value="">
<input type="hidden" name="BinType" value="">
<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(3))

	If GB_Gyosyu <> "B" Then
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp?GinkoCD=" & GinkoCD & "')", title, "", "", "", "", ""))
	Else
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo , "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "1.asp?GinkoCD=" & GinkoCD & "')", title, "", "", "", "", ""))
	End If

	Response.Write(HttpL3("", "", "", "", "","" ,"", "", "", "", "", "", "", "", "", ""))

	If GinkoIraiHozon = "1" Then
		Response.Write(HttpL3_1("保存","form1.BinType.value='Sakusei';SubmitCheck()", "", "", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL3_1("依頼","SubmitCheck()", "", "", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fb_ginkosyorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&GinkoCD=" & GinkoCD & "')", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL4(ConvKaisyaRyakuMeisyoDx(EnshuCD, GinkoCD) & " " & title, ""))

	If BunsyoSyuruiCD = "BF" Then
		Response.Write(HttpL5("<font color=""#FF0000"">取立依頼には手形管理にて手形取立の顛末処理が必要です</font>"))
	ElseIf BunsyoSyuruiCD = "BG" Then
		Response.Write(HttpL5("<font color=""#FF0000"">割引依頼には手形管理にて手形割引の顛末処理が必要です</font>"))
	End If
%>

<div id="L0" style="position:absolute; visibility: hidden; left: 0px; top: 0px;">

<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
	<tr>
		<td>
			<table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%">
				<tr>
					<td align="CENTER" valign="MIDDLE">
						<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="15" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="500">
							<TR>
								<TD ALIGN="CENTER" valign="top">
									<TABLE WIDTH="525" BORDER="0" CELLSPACING="0" CELLPADDING="0">
										<TR>
											<TD HEIGHT="1" VALIGN="top" WIDTH="525">
												<table border="0" border="0" cellpadding="0" cellspacing="5">
													<tr>
														<td style="border-bottom: solid 1 #000000;">
															<table border="0"  border="0" cellpadding="0" cellspacing="0" CLASS="tx1820">
																<tr>
																	<td align="center">
																	<% If GB_Gyosyu <> "B" Then %>
																		<% = ConvKaisyaRyakuMeisyoDx(EnshuCD, GinkoCD) & " " & title & "依頼書" %>
																	<% Else %>
																		<% = title %>
																	<% End If %>
																	</td>
																</tr>
															</table>
														</td>
													</tr>
												</table>
											</TD>
										</TR>
										<TR>
											<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="525">
											<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" CLASS="tx1618">
												<% If GB_Gyosyu <> "B" Then %>
												<tr>
													<td width="100" height="28"><nobr>申込社名</nobr></td>
													<td height="28"><% = KaisyaMeisyo %></td>
												</tr>
												<% End If %>
												<% If JidoBangoShiireUriageSyorui = "0" Then %>
												<tr>
													<td width="100" height="28"><nobr>申込番号</nobr></td>
													<td height="28"><input type="text" name="BunsyoNaiyoCD" size="12" onBlur="FormStrLeftEdge(this,12,true,false);SetString(this, 12, false)" class="tbox4" value=""></td>
												</tr>
												<% End If %>
												<tr>
													<td width="100" height="28"><% = SyoribiLabel %></td>
													<td height="28">
													<% If Jissenbi <> "" Then '日付固定モード %>
														<input type="text" name="Moshikomibi" size="12" onBlur="SetDate(this, 1, true)" class="tbox4_ro" readonly value="<% = Jissenbi %>">
													<% Else %>
														<input type="text" name="Moshikomibi" size="12" onkeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, true);" class="tbox4" value="<% = Moshikomibi %>">
													<% End If %>
													</td>
												</tr>
												<% If GB_Gyosyu = "B" Then	'銀行自社口座は固定 %>
												<tr>
													<td width="100" height="19">口座</td>
													<td height="19">
														別段
														<input type="hidden" name="KozaBango" value="B_3999999">
													</td>
												</tr>
												<% ElseIf BunsyoSyuruiCD = "BA" Then %>
												<tr>
													<td width="100" height="19"><nobr>口座種類</nobr></td>
													<td height="19">
														<select size="1" name="KozaKubun" class="tbox4">
															<option value="">　　</option>
<%
															Dim SelectedKubunCD
															Dim RiyoGinkoKozaSyuri
'															KozaKubun = ""

															Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
															Set Content = OpenQuery(Query)
															If Not(Content.BOF Or Content.EOF) Then
																RiyoGinkoKozaSyuri = Content.Fields("利用銀行口座種類")
															End If

															Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','口座区分'"
															Set Content = OpenQuery(Query)

															Do While Not(Content.BOF Or Content.EOF)
																If InStr(RiyoGinkoKozaSyuri, Content.Fields("区分CD")) >= 1 Then
																	Response.Write("<option value=""" & Content.Fields("区分CD") & """")
																	If Content.Fields("区分CD") = KozaKubun Then
																		Response.Write(" selected")
																	End If
																	Response.Write(">" & Content.Fields("区分名称") & "</option>" & vbCrLf)
																End If
																Content.MoveNext
															Loop
%>
														</select>
													</td>
												</tr>
												<% ElseIf BunsyoSyuruiCD = "BH" Then %>
												<%
													'残高証明書は対象口座を選択しないので口座存在チェックのみ
													KozaCnt = 0
													Query = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & GinkoCD	& "', ''"
													Set Content = OpenQuery(Query)
													Do While Not(Content.BOF Or Content.EOF)
														KozaCnt = KozaCnt + 1
														Content.MoveNext
													Loop
												%>
												<% Else %>
												<tr>
													<td width="100" height="28">口座</td>
													<td height="28">
														<select size="1" name="KozaBango" class="tbox4" onChange="ChangeKozaBango()">
															<option value="">　　</option>
<%
															Dim Query, Content

															Query = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & GinkoCD	& "', ''"

															Set Content = OpenQuery(Query)
															Dim i
															i = 1
															Do While Not(Content.BOF Or Content.EOF)
																Response.Write("<option value=""" & Content.Fields("口座区分") & "_" & Content.Fields("口座番号") & """")
																If Content.Fields("口座番号") = KozaBango Then
																	Response.Write(" selected")
																End If
																Response.Write(">")
																Response.Write(ConvKubunMeisyo("口座区分", Content.Fields("口座区分")))
																Response.Write("</option>" & vbCrLf)
																i= i + 1
																Content.MoveNext
															Loop
%>

														</select>
													</td>
												</tr>
												<% End If %>

												<% If BunsyoSyuruiCD = "BA" Then %>
												<tr>
													<td width="100" height="28"><nobr>暗証番号</nobr></td>
													<td height="28">
														<input type="text" name="AnsyoBango" size="25" onkeyup="FormStrLeft(this,20,false,false);" onKeypress="FormStrLeft(this,20,false,false);" onBlur="FormStrLeftEdge(this,20,true,false);FormStrTrim(this,true);" class="tbox4" value="<% = AnsyoBango %>"></td>
												</tr>
												<tr>
													<td width="100" height="28">金額</td>
													<td height="28">
														<input type="text" name="Kingaku" size="15" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" onFocus="FormStrCommaReplace(this);" class="tbox5" value="<% = Kingaku %>"></td>
												</tr>

												<% ElseIf BunsyoSyuruiCD = "BB" Then %>
												<tr>
													<td width="100" height="28">金額</td>
													<td height="28">
														<input type="text" name="Kingaku" size="15" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" onFocus="FormStrCommaReplace(this);" class="tbox5" value="<% = Kingaku %>"></td>
												</tr>

												<% ElseIf BunsyoSyuruiCD = "BC" Then %>
													<% If GB_Gyosyu <> "B" Then	'銀行自社口座の場合は小切手無し %>
												<tr>
													<td colspan="2" class="tx1416">
													<% If TozaHikidashiFurikomiKogitteHituyo = "1" Then %>
													○当座預金からの引出の場合は、小切手を選択・送付する必要があります。
													<% Else %>
													○当座預金からの引出の場合は、小切手を選択・送付することも可能です。
													<% End If %>
													</td>
												</tr>
												<tr>
													<td width="100" height="28"><nobr>小切手</nobr></td>
													<td height="28">
														<select size="1" name="TegataNo" class="tbox4" onChange="TegataChange();ChangeTorihikibi(this.selectedIndex)">
															<option value="">　　</option>
<%
															Query = "exec SPK手形一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'TF', 'TG'"

															Set Content = OpenQuery(Query)

															Do While Not(Content.BOF Or Content.EOF)
																If Content.Fields("削除フラグ") = 0 And Content.Fields("発行フラグ") = 0 Then
																	Response.Write("<option value=""" & Content.Fields("会社CD") & "_" & Content.Fields("文書種類CD") & "_" & Content.Fields("文書内容CD") & """")
																	If Content.Fields("文書内容CD") = TegataNo Then
																		Response.Write(" selected")
																	End If
																	Response.Write(">")
																	Response.Write(Content.Fields("振出人名称") & "　" & ConvKubunMeisyo("文書区分", Content.Fields("文書種類CD")) & "　" & Content.Fields("手形番号"))
																	Response.Write("　")
																	Response.Write("額面:" & ConvIntToMoney(Content.Fields("金額"), false, false))
																	Response.Write("</option>" & vbCrLf)
																End If
																Content.MoveNext
															Loop
%>
														</select>
													</td>
												</tr>
													<% End If %>
												<tr>
													<td width="100" height="28">金額</td>
													<td height="28">
														<% If TozaHikidashiFurikomiKogitteHituyo = "1" Then %>
														<input type="text" name="Kingaku" size="15" onkeyup="ChangeMoney(this);" onBlur="SetMoney2(this, false, false)" class="tbox5_ro" value="<% = Kingaku %>" readonly>
														<% Else %>
														<input type="text" name="Kingaku" size="15" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" onFocus="FormStrCommaReplace(this);" class="tbox5" value="<% = Kingaku %>">
														<% End If %>
													</td>
												</tr>
													<% If GB_Gyosyu <> "B" Then	'銀行自社口座の場合は暗証番号無し %>
												<tr>
													<td width="100" height="28"><nobr>暗証番号</nobr></td>
													<td height="28">
														<input type="text" name="AnsyoBango" size="25" onkeyup="FormStrLeft(this,20,false,false);" onKeypress="FormStrLeft(this,20,false,false);" onBlur="FormStrLeftEdge(this,20,true,false);FormStrTrim(this,true);" class="tbox4" value="<% = AnsyoBango %>"></td>
												</tr>
													<% Else %>
														<input type="hidden" name="AnsyoBango" value=" ">
													<% End If %>
												<% ElseIf BunsyoSyuruiCD = "BD" Then %>
												<tr>
													<td width="100" height="15"><nobr>振込先口座</nobr></td>
													<td height="15" class="tx1416" nowrap>
														市場
														<select size="1" name="ShijoCD" class="tbox4" onChange="SetFurikomisakiKozaBangoMenu(this.selectedIndex);">
															<option value="">全て表示</option>
															<%
																Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
																Set Content = OpenQuery(Query)
																Do While Not(Content.BOF Or Content.EOF)
																	Response.Write("<option value=""" & Content.Fields("市場CD") & """>" & Content.Fields("市場名称") & "</option>" & vbCrLf)
																	Content.MoveNext
																Loop
															%>
														</select>
														<select size="1" name="FurikomisakiKozaBango" class="tbox4">
															<option value="">　　</option>
<%

															Query = "exec SPB銀行口座一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '', '', '', '" & GB_GakuseiNo & "'"
															Set Content = OpenQuery(Query)

															Do While Not(Content.BOF Or Content.EOF)
																If GB_Gyosyu <> "B" Or Content.Fields("会社CD") <> KaisyaCD Then	'銀行自社口座を除外

																	Response.Write("<option value=""" & Content.Fields("銀行CD") & "_" & Content.Fields("口座区分") & "_" & Content.Fields("口座番号") & """")
																	If Content.Fields("口座番号") = FurikomisakiKozaBango Then
																		Response.Write(" selected")
																	End If
																	Response.Write(">")
																	Response.Write(Content.Fields("会社略名称") & "　（" & ConvKubunMeisyo("口座区分", Content.Fields("口座区分")) & "：" & Content.Fields("銀行略名称") & "）")
																	Response.Write("</option>" & vbCrLf)
																End If
																Content.MoveNext
															Loop
%>
															<option value="etc">その他</option>
															</select>
													</td>
												</tr>
												<% If GB_Gyosyu <> "B" Then	'銀行自社口座の場合は小切手無し %>
												<tr>
													<td colspan="2" class="tx1416">
													<% If TozaHikidashiFurikomiKogitteHituyo = "1" Then %>
														○当座預金からの振込の場合は、小切手を選択・送付する必要があります。
													<% Else %>
														○当座預金からの振込の場合は、小切手を選択・送付することも可能です。
													<% End If %>
													</td>
												</tr>
												<tr>
													<td width="100" height="28"><nobr>小切手</nobr></td>
													<td height="28">
														<select size="1" name="TegataNo" class="tbox4" onChange="TegataChange();ChangeTorihikibi(this.selectedIndex)">
															<option value="">　　</option>
<%
															Query = "exec SPK手形一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'TF', 'TG'"
															Set Content = OpenQuery(Query)

															Do While Not(Content.BOF Or Content.EOF)
																If Content.Fields("削除フラグ") = 0 And Content.Fields("発行フラグ") = 0 Then
																	Response.Write("<option value=""" & Content.Fields("会社CD") & "_" & Content.Fields("文書種類CD") & "_" & Content.Fields("文書内容CD") & """")
																	Response.Write(">")
																	Response.Write(Content.Fields("振出人名称") & "　" & ConvKubunMeisyo("文書区分", Content.Fields("文書種類CD")) & "　" & Content.Fields("手形番号"))
																	Response.Write("　")
																	Response.Write("額面:" & ConvIntToMoney(Content.Fields("金額"), false, false))
																	Response.Write("</option>" & vbCrLf)
																End If
																Content.MoveNext
															Loop
%>
														</select>
													</td>
												</tr>
												<% End If %>
												<tr>
													<td width="100" height="28">金額</td>
													<td height="28">
														<% If TozaHikidashiFurikomiKogitteHituyo = "1" Then %>
														<input type="text" name="Kingaku" size="15" onkeyup="ChangeMoney(this);" onBlur="SetMoney2(this, false, false)" class="tbox5_ro" value="<% = Kingaku %>" readonly>
														<% Else %>
														<input type="text" name="Kingaku" size="15" class="tbox5" value="<% = Kingaku %>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" onFocus="FormStrCommaReplace(this);">
														<% End If %>
													</td>
												</tr>

													<% If GB_Gyosyu <> "B" Then	'銀行自社口座の場合は暗証番号無し %>
												<tr>
													<td width="100" height="28"><nobr>暗証番号</nobr></td>
													<td height="28">
														<input type="text" name="AnsyoBango" size="25" onkeyup="FormStrLeft(this,20,false,false);" onKeypress="FormStrLeft(this,20,false,false);" onBlur="FormStrLeftEdge(this,20,true,false);FormStrTrim(this,true);" class="tbox4" value="<% = AnsyoBango %>" maxlength="20"></td>
												</tr>
													<% Else %>
														<input type="hidden" name="AnsyoBango" value=" ">
													<% End If %>
												<% ElseIf BunsyoSyuruiCD = "BE" Then %>
												<tr>
													<td width="100" height="28"><nobr>小切手</nobr></td>
													<td height="28">
													<select size="1" name="TegataNo" class="tbox4" onChange="ChangeTorihikibi(this.selectedIndex)">
														<option value="">　　</option>
<%
															Query = "exec SPK手形一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'TU', 'TG'"
'Response.Write(Query)
															Set Content = OpenQuery(Query)

															Do While Not(Content.BOF Or Content.EOF)
																If Content.Fields("削除フラグ") = 0 And Content.Fields("発行フラグ") = 0 Then
																	Response.Write("<option value=""" & Content.Fields("作成会社CD") & "_" & Content.Fields("文書種類CD") & "_" & Content.Fields("文書内容CD") & """")
																	If Content.Fields("作成会社CD") & "_" & Content.Fields("文書種類CD") & "_" & Content.Fields("文書内容CD") = TegataNo Then
																		Response.Write(" selected")
																	End If
																	Response.Write(">")
																	Response.Write(Content.Fields("振出人名称") & "　" & ConvKubunMeisyo("文書区分", Content.Fields("文書種類CD")) & "　" & Content.Fields("手形番号"))
																	Response.Write("　")
																	Response.Write("額面:" & ConvIntToMoney(Content.Fields("金額"), false, false))
																	Response.Write("</option>" & vbCrLf)
																End If
																Content.MoveNext
															Loop
%>
														</select>
													</td>
												</tr>
												<% ElseIf BunsyoSyuruiCD = "BF" Or BunsyoSyuruiCD = "BG" Then %>
												<tr>
													<td width="100" height="28">手形</td>
													<td height="28">
													<select size="1" name="TegataNo" class="tbox4" onChange="ChangeTorihikibi(this.selectedIndex)">
														<option value="">　　</option>

														
<%
															'手形処理済を判定するため先方文書種類CDを取得
															Dim SenpoBunsyoSyuruiCD
															If BunsyoSyuruiCD = "BE" Then
																SenpoBunsyoSyuruiCD = "BR"
															ElseIf BunsyoSyuruiCD = "BF" Then
																SenpoBunsyoSyuruiCD = "BS"
															Else 'If BunsyoSyuruiCD = "BG" Then
																SenpoBunsyoSyuruiCD = "BT"
															End If
															Query = "exec SPK手形顛末済一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & GinkoCD & "', ''"
															'Response.Write(Query)
															'Exit Sub
															Set Content = OpenQuery(Query)
															Do While Not(Content.BOF Or Content.EOF)
																'If Content.Fields("顛末区分") = TenmatsuKubun Then
																If Content.Fields("削除フラグ") <> 1 Then '廃棄済みを除外（181016小野）
																If Content.Fields("顛末区分") = TenmatsuKubun Or "" & Content.Fields("顛末区分") = "" Then '未顛末手形も表示（110624小野）
																	If Content.Fields("発行フラグ") = 0 And Content.Fields("送受信区分") <> "H" Then '引受為替手形は除外（160712小野）
																		'申込済の顛末手形は表示しないための判定（090928小野）
																		Dim MoushikomiFlg
																		MoushikomiFlg = 0
																		'当該手形に対する申し込みを探す
																		Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GinkoCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "'"
																		Set Content2 = OpenQuery(Query)
																		Do While Not(Content2.BOF Or Content2.EOF)
																			If Content2.Fields("手形文書内容CD") = Content.Fields("文書内容CD") And Content2.Fields("削除フラグ") <> 1 Then
																				'該当すればフラグを立てる
																				MoushikomiFlg = 1
																				'当該申し込みに対する銀行の受付処理を判定
																				Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & GinkoCD & "', '" & SenpoBunsyoSyuruiCD & "'"
																				Set Content3 = OpenQuery(Query)
																				Do While Not(Content3.BOF Or Content3.EOF)
																					If "" & Content3.Fields("先方文書内容CD") =  Content2.Fields("文書内容CD") And Content3.Fields("削除フラグ") <> 1 Then
																						If "" & Content3.Fields("受付区分") = "N" Then
																							'該当して受付不可ならフラグを降ろす
																							MoushikomiFlg = 0
																							Exit Do
																						End If
																					End If
																					Content3.MoveNext
																				Loop
																			End If
																			Content2.MoveNext
																		Loop
																		If MoushikomiFlg = 0 Then
																			Response.Write("<option value=""" & Content.Fields("作成会社CD") & "_" & Content.Fields("文書種類CD") & "_" & Content.Fields("文書内容CD") & """")
																			Response.Write(">")
																			Response.Write(Content.Fields("振出人名称") & "　" & ConvKubunMeisyo("文書区分", Content.Fields("文書種類CD")) & "　" & Content.Fields("手形番号"))
																			Response.Write("　")
																			Response.Write("額面:" & ConvIntToMoney(Content.Fields("金額"), false, false))
																			Response.Write("　")
																			If "" & Content.Fields("顛末日") <> "" Then
																				Response.Write("顛末日:" & Content.Fields("顛末日"))
																			Else
																				Response.Write("支払期日:" & Content.Fields("支払期日"))
																			End If
																			Response.Write("</option>" & vbCrLf)
																		Else
																			'Response.Write("申込済み")
																			'Exit Sub
																		End If
																	Else
																		'Response.Write("発行済み")
																		'Exit Sub
																	End If
																End If
																End If
																Content.MoveNext
															Loop
%>

														</select>

													</td>
												</tr>
												<% End If %>
												<tr>
													<td width="100" height="28">摘要</td>
													<td height="28"><input type="text" name="Tekiyo" size="65" onBlur="FormStrLeftIME(this,50,true);" class="tbox4_ime" value="<% = Tekiyo %>"></td>
												</tr>
												</table>
											</TD>
										</TR>
									</TABLE>
								</TD>
							</TR>
						</TABLE>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
</div>

</form>
</body>

<SCRIPT LANGUAGE="JavaScript">

//////取引先メニュー変更ロジック

	//取引先CD及び取引先名称の配列を作成
	var Val = new Array();	//配列番号＝市場メニューのselectedIndexで動作する
	var Tex = new Array();
<%
	Dim ContentTorihikisaki
'	Dim iii
	Dim jjj
	iii = 0
	jjj = 0
	'TDA市場Mから市場(市場CD)を取得
	Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Do While Not(Content.BOF Or Content.EOF)
			'取引先
			Response.Write("Val[" & iii & "] = new Array()" & vbCrLf)	'2次元配列
			Response.Write("Tex[" & iii & "] = new Array()" & vbCrLf)
			If UBound(KaishaCDA) > 0 Then
				jjj = 0
				Response.Write("Val[" & iii & "][" & jjj & "] = ''" & vbCrLf )
				Response.Write("Tex[" & iii & "][" & jjj & "] = ''" & vbCrLf )
				jjj = jjj + 1
				'摘要配列より
				For ii = 1 To UBound(KaishaCDA)
					'iii=0は全取引先取得
					If iii = 0 Or KaishaShijoA(ii) = "" Or KaishaShijoA(ii) = Content.Fields("市場CD") Then
						Response.Write("Val[" & iii & "][" & jjj & "] = '" & KaishaCDA(ii) & "'" & vbCrLf)
						Response.Write("Tex[" & iii & "][" & jjj & "] = '" & KaishaNameA(ii) & "'" & vbCrLf)
						jjj = jjj + 1
					End If
				Next
			End If
			'iii=0は全取引先取得なのでMoveNextしない
			If iii <> 0 then
				Content.MoveNext
			End If
			iii = iii + 1
		Loop
	End If
%>

	function SetFurikomisakiKozaBangoMenu(selindex) {
		var plusLen = 0;
		//現在選択されているメニュー内容を取得
		var selVal = form1.FurikomisakiKozaBango.value;
		var selTex = form1.FurikomisakiKozaBango.options[form1.FurikomisakiKozaBango.selectedIndex].text;
		//メニューの配列長を変更（Valの2次元目の配列長）
		if (selVal != '') {
			plusLen = 1;
			//現在選択されているメニュー内容がnullで無ければ配列長+1＆先頭メニュー配列にセット
			form1.FurikomisakiKozaBango.options.length = Val[selindex].length + plusLen;
			form1.FurikomisakiKozaBango.options[0].value = selVal;
			form1.FurikomisakiKozaBango.options[0].text = selTex;
		} else {
			form1.FurikomisakiKozaBango.options.length = Val[selindex].length;
		}
		for (jj=0; jj<Val[selindex].length; jj++) {
			//メニューの内容を変更
			form1.FurikomisakiKozaBango.options[jj + plusLen].value = Val[selindex][jj]
			form1.FurikomisakiKozaBango.options[jj + plusLen].text = Tex[selindex][jj]
		}
		form1.FurikomisakiKozaBango.selectedIndex = 0;
	}



//小切手・手形の取引日・顛末日配列
tegatapara = new Array();
torihikibi = new Array();
tenmatsubi = new Array();
shiharaibi = new Array();
<%
	'小切手・手形の取引日・顛末日配列作成（日付前後チェックのため）
	Dim iii
	iii = 1
	If BunsyoSyuruiCD = "BE" Or BunsyoSyuruiCD = "BD" Or BunsyoSyuruiCD = "BC" Then
		If BunsyoSyuruiCD = "BE" Then
			Query = "exec SPK手形一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'TU', 'TG'"
		Else 'BD・BC
			Query = "exec SPK手形一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'TF', 'TG'"
		End If
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("削除フラグ") = 0 And Content.Fields("発行フラグ") = 0 Then
				Response.Write("tegatapara[" & iii & "] = '" & Content.Fields("作成会社CD") & "_" & Content.Fields("文書種類CD") & "_" & Content.Fields("文書内容CD") & "';" & vbCrLf)
				Response.Write("torihikibi[" & iii & "] = '" & Content.Fields("取引日") & "';" & vbCrLf)
				Response.Write("tenmatsubi[" & iii & "] = '" & Content.Fields("顛末日") & "';" & vbCrLf)
				Response.Write("shiharaibi[" & iii & "] = '" & Content.Fields("支払期日") & "';" & vbCrLf)
				iii = iii + 1
			End If
			Content.MoveNext
		Loop
	ElseIf BunsyoSyuruiCD = "BF" Or BunsyoSyuruiCD = "BG" Then
		Query = "exec SPK手形顛末済一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & GinkoCD & "', ''"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If (Content.Fields("顛末区分") = TenmatsuKubun Or "" & Content.Fields("顛末区分") = "") And Content.Fields("発行フラグ") = 0 Then
				Response.Write("tegatapara[" & iii & "] = '" & Content.Fields("作成会社CD") & "_" & Content.Fields("文書種類CD") & "_" & Content.Fields("文書内容CD") & "';" & vbCrLf)
				Response.Write("torihikibi[" & iii & "] = '" & Content.Fields("取引日") & "';" & vbCrLf)
				Response.Write("tenmatsubi[" & iii & "] = '" & Content.Fields("顛末日") & "';" & vbCrLf)
				Response.Write("shiharaibi[" & iii & "] = '" & Content.Fields("支払期日") & "';" & vbCrLf)
				iii = iii + 1
			End If
			Content.MoveNext
		Loop
	End If
%>

//手形・小切手を選択したら取引日・顛末日をセットする
function ChangeTorihikibi(selindex) {
	for (ii=1; ii<<% = iii %>; ii++) {
		if (tegatapara[ii] == form1.TegataNo[selindex].value) {
			form1.Torihikibi.value = torihikibi[ii];
			form1.Tenmatsubi.value = tenmatsubi[ii];
			form1.Shiharaibi.value = shiharaibi[ii];
			break;
		}
	}
}


function ChangeKozaBango()
{
	<% If BunsyoSyuruiCD = "BC" OR BunsyoSyuruiCD = "BD" Then %>
	var index = form1.KozaBango.selectedIndex;
	var str = form1.KozaBango.options[index].text;

	do
	{
		form1.TegataNo.options[0] = null;
	}
	while(form1.TegataNo.length != 0)

	form1.TegataNo.options[0] = new Option("　　", "");

	if(str == "当座")
	{
<%
		Dim ii
		ii = 1
		Query = "exec SPK手形一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'TF', 'TG'"
		Set Content = OpenQuery(Query)

		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("発行フラグ") = 0 Then
				If Content.Fields("削除フラグ") = 0 Then
					Response.Write("form1.TegataNo.options[" & ii & "] = new Option('" & ConvKaisyaRyakuMeisyo(Content.Fields("会社CD")) & "　" & ConvKubunMeisyo("文書区分", Content.Fields("文書種類CD")) & "　" & Content.Fields("手形番号") & "　額面:" & ConvIntToMoney(Content.Fields("金額"), false, false) & "', '" & Content.Fields("会社CD") & "_" & Content.Fields("文書種類CD") & "_" & Content.Fields("文書内容CD") & "');" & vbCrLf)
					ii = ii + 1
				End If
			End If
			Content.MoveNext
		Loop
%>

	}
	TegataChange();
	<% End If %>
}


function TegataChange()
{
	var TegataIndex = form1.TegataNo.selectedIndex;
	var TegataStr = form1.TegataNo.options[TegataIndex].text;

	var KozaIndex = form1.KozaBango.selectedIndex;
	var Koza = form1.KozaBango.options[KozaIndex].value;

	if(Koza.substring(0,1) == "T")
	{
		if(TegataStr != "　　")
		{
			strs = TegataStr.split("額面:")
			form1.Kingaku.value = strs[1];
			form1.Kingaku.readOnly = true;
			form1.Kingaku.className = "tbox5_ro";
		}
		else
		{
			form1.Kingaku.value = "";
			form1.Kingaku.readOnly = false;
			form1.Kingaku.className = "tbox5";

		}
		<% If TozaHikidashiFurikomiKogitteHituyo = "1" Then %>
		form1.Kingaku.readOnly = true;
		form1.Kingaku.className = "tbox5_ro";
		<% End if %>
	}
	else
	{
		form1.Kingaku.value = "";
		form1.Kingaku.readOnly = false;
		form1.Kingaku.className = "tbox5";
	}
}


function SubmitCheck() {

<% If BunsyoSyuruiCD = "BH" And KozaCnt = 0  Then %>
	alert("<% = ConvKaisyaRyakuMeisyoDx(EnshuCD, GinkoCD) %>の口座が開設されていません　");
	return false;
<% End If %>

	if (form1.Moshikomibi.value == "") {
		alert("<% = SyoribiLabel %>を入力してください　");
		form1.Moshikomibi.focus();
		return false;
	}

	//小切手・手形の日付前後チェック（取引日が存在する場合のみ）
	if (form1.Torihikibi.value != "") {
		//alert(form1.Torihikibi.value + "：" + form1.Moshikomibi.value);
		if(Date.parse(form1.Torihikibi.value) > Date.parse(form1.Moshikomibi.value)) {
			alert("<% = SyoribiLabel %>が<% = TorihikibiLabel %>より古い日付になっています　\r\n正しい日付を入力してください　\r\n\n<% = TorihikibiLabel %>：" + form1.Torihikibi.value);
			form1.Moshikomibi.focus();
			return false;
		}
	}

<% If BunsyoSyuruiCD = "BF" Or BunsyoSyuruiCD = "BG" Then %>
	//手形の日付前後チェック（顛末日が存在する場合のみ）
	if (form1.Tenmatsubi.value != "") {
		if(Date.parse(form1.Tenmatsubi.value) > Date.parse(form1.Moshikomibi.value)) {
			alert("<% = SyoribiLabel %>が顛末日より古い日付になっています　\r\n正しい日付を入力してください　\r\n\n顛末日：" + form1.Tenmatsubi.value);
			form1.Moshikomibi.focus();
			return false;
		}
	}
<% End If %>

<% If 0=1 And BunsyoSyuruiCD = "BF" Then '手形取立は支払期日以降でも構わない？わからないので保留 %>
	//手形の日付前後チェック（取立は支払期日まで）
	if (form1.Shiharaibi.value != "") {
		if(Date.parse(form1.Shiharaibi.value) < Date.parse(form1.Moshikomibi.value)) {
			alert("<% = SyoribiLabel %>が支払期日を過ぎています　\r\n正しい日付を入力してください　\r\n\n支払期日：" + form1.Shiharaibi.value);
			form1.Moshikomibi.focus();
			return false;
		}
	}
<% End If %>

<% If BunsyoSyuruiCD = "BG" Then %>
	//手形の日付前後チェック（割引は支払期日の前日まで）
	if (form1.Shiharaibi.value != "") {
		if(Date.parse(form1.Shiharaibi.value) <= Date.parse(form1.Moshikomibi.value)) {
			alert("<% = SyoribiLabel %>が支払期日を過ぎています　\r\n正しい日付を入力してください　\r\n※手形割引は支払期日の前日までです　\r\n\n支払期日：" + form1.Shiharaibi.value);
			form1.Moshikomibi.focus();
			return false;
		}
	}
<% End If %>

<% If BunsyoSyuruiCD = "BA" Then %>
	if (form1.KozaKubun.value == "") {
		alert("口座種類を入力してください　");
		form1.KozaKubun.focus();
		return false;
	}
	if (form1.AnsyoBango.value == "") {
		alert("暗証番号を入力してください　");
		form1.AnsyoBango.focus();
		return false;
	}
	if (form1.Kingaku.value == "") {
		alert("金額を入力してください　");
		form1.Kingaku.focus();
		return false;
	}
	var KingakuInt;
	KingakuInt = ConvMoneyToInt(form1.Kingaku.value);
	if (form1.Kingaku.value == 0) {
		alert("金額には 0 は指定出来ません　");
		form1.Kingaku.focus();
		return false;
	}
	var KingakuHead;
	KingakuHead = form1.Kingaku.value;
	if (KingakuHead.charAt(0) == "-") {
		alert("金額にマイナスは指定出来ません　");
		form1.Kingaku.focus();
		return false;
	}
//if(KingakuInt > form1.Shihonkin.value)
//{
//alert("資本金以上の金額を当座預金に設定しようとしています。よろしいですか？確認してください　");
//return false;
//}
	var TmpKingaku = ReplaceStr(form1.Kingaku.value, ",", "");
	var TmpKingaku2 = '';
	var jjj = 0;
	for (i=TmpKingaku.length; i>0; i--) {
		TmpKingaku2 = TmpKingaku.charAt(i-1) + TmpKingaku2;	//末尾から1文字追加
		jjj = jjj + 1;				//カウンタ増
		if (jjj == 4 && i > 1) {
			TmpKingaku2 = '万' + TmpKingaku2;	//4文字で「万」挿入
		} else if (jjj == 8 && i > 1) {
			TmpKingaku2 = '億' + TmpKingaku2;	//8文字で「億」挿入
		}
	}
	TmpKingaku2 = "\n\n（" +  TmpKingaku2 + "円）";
//	if (TmpKingaku.length > 8) {
//		TmpKingaku2 = "0" + TmpKingaku;
//	}
	<% If GinkoIraiHozon <> "1" Then '保存のみの場合は警告しない（180220小野） %>
	if(!confirm("銀行：<% = ConvKaisyaRyakuMeisyoDx(EnshuCD, GinkoCD) %>\n\n口座：" + form1.KozaKubun.options[form1.KozaKubun.selectedIndex].text + "預金\n\n金額：" + form1.Kingaku.value + TmpKingaku2 + "\n\n\n以上の内容で口座を開設します　\n\nよろしいですか？　確認してください　"))return;
	<% End If %>

<% ElseIf BunsyoSyuruiCD = "BB" Then %>
	if(form1.KozaBango.value == "")
	{
		alert("口座を入力してください　");
		form1.KozaBango.focus();
		return false;
	}
	if(form1.Kingaku.value == "")
	{
		alert("金額を入力してください　");
		form1.Kingaku.focus();
		return false;
	}
<% ElseIf BunsyoSyuruiCD = "BC" Then %>

	if(form1.KozaBango.value == "")
	{
		alert("口座を入力してください　");
		form1.KozaBango.focus();
		return false;
	}

	if(form1.AnsyoBango.value == "")
	{
		alert("暗証番号を入力してください　");
		form1.AnsyoBango.focus();
		return false;
	}


	<% If TozaHikidashiFurikomiKogitteHituyo = "1" Then %>
	var KozaIndex = form1.KozaBango.selectedIndex;
	var Koza = form1.KozaBango.options[KozaIndex].value;

	if(Koza.substring(0,1) == "T")
	{
		if(form1.Kingaku.value == "")
		{
			alert("小切手を選択してください　");
			form1.TegataNo.focus();
			return false;
		}
	}

	<% End If %>



	if(form1.Kingaku.value == "")
	{
		alert("金額を入力してください　");
		form1.Kingaku.focus();
		return false;
	}

<% ElseIf BunsyoSyuruiCD = "BD" Then %>
	if(form1.KozaBango.value == "")
	{
		alert("口座を入力してください　");
		form1.KozaBango.focus();
		return false;
	}

	if(form1.FurikomisakiKozaBango.value == "")
	{
		alert("振込先口座を入力してください　");
		form1.FurikomisakiKozaBango.focus();
		return false;
	}

	if("<% = GinkoCD %>_" + form1.KozaBango.value == form1.FurikomisakiKozaBango.value)
	{
		alert("振込先口座と振込元は違う口座を選択してください。");
		form1.FurikomisakiKozaBango.focus();
		return false;
	}

	<% If TozaHikidashiFurikomiKogitteHituyo = "1" Then %>
		var KozaIndex = form1.KozaBango.selectedIndex;
		var Koza = form1.KozaBango.options[KozaIndex].value;

		if(Koza.substring(0,1) == "T")
		{
			if(form1.Kingaku.value == "")
			{
				alert("小切手を選択してください　");
				form1.TegataNo.focus();
				return false;
			}
		}

	<% End If %>
		var Kozas;
		var KozaBango;
		KozaBango= form1.KozaBango.value;
		if(form1.Kingaku.value == "")
		{
			alert("金額を入力してください　");
			form1.Kingaku.focus();
			return false;
		}
		<% If GinkoIraiHozon <> "1" Then '保存のみの場合は警告しない（180220小野） %>
		//小切手からの振込みの場合は警告表示（080715小野）
		if (typeof(form1.TegataNo) == "object") {
			if (form1.TegataNo.selectedIndex > 0) {
				if (!confirm("小切手から振り込んでよろしいですか？ 一度行うと取り消すことはできません　"))return;
			}
		}
		<% End If %>

<% ElseIf BunsyoSyuruiCD = "BE" Then %>
		if(form1.KozaBango.value == "")
		{
			alert("口座を入力してください　");
			form1.KozaBango.focus();
			return false;
		}

		var KozaIndex = form1.KozaBango.selectedIndex;
		var Koza = form1.KozaBango.options[KozaIndex].value;

		if (Koza.substring(0,1) == "T") {
			if (form1.TegataNo.value == "") {
				alert("小切手を選択してください　");
				form1.TegataNo.focus();
				return false;
			}
		}

<% ElseIf BunsyoSyuruiCD = "BF" Or BunsyoSyuruiCD = "BG" Then %>
		if(form1.KozaBango.value == "")
		{
			alert("口座を入力してください　");
			form1.KozaBango.focus();
			return false;
		}
		if(form1.TegataNo.value == "")
		{
			alert("手形を入力してください　");
			form1.TegataNo.focus();
			return false;
		}

<% End If %>

	SubmitReal(form1);
	return true;
}

</script>


<% = HtmlFooter %>

</html>
<%
End Sub
%>