
<!-- #include file="../../../include.asp" -->

<%
'<!--
'####################################################################
'	名称	：銀行受付画面
'	作成日：2002/10/18
'	作成者：山崎
'	目的　：銀行処理を受け付ける
'	概要	：
'	 <<表示>>
'	・
'	<<入力チェック>>
'	・2007．06.12 銀行・先方レイアウト及び名称変更
'###################################################################
'-->
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If


	Dim GinkoCD, BunsyoSyuruiCD, BunsyoNaiyoCD
	Dim Moshikomibi, AnsyoBango, TouzaKarikoshiKingaku, Tekiyo
	Dim SenpoTekiyo
	Dim SenpoFlg, SakuseiKaisyaCD, SenpoBunsyoSyuruiCD, SenpoBunsyoNaiyoCD
	Dim KozaKubun, Kingaku, TegataKingaku
	Dim UketsukeKubun, KozaBango
	Dim FurikomisakiGinkoCD, FurikomisakiKozaKubun, FurikomisakiKozaBango, Tesuryo
	Dim TegataFuridashininCD, TegataSyuruiKubun, TegataBunsyoNaiyoCD
	Dim TegataShiharaiKijitsu, TegataShiharaiBasyo, TegataHikiukeninCD, TegataShiharaininCD

	Dim FurikomiTesuryoJiko1, FurikomiTesuryoJiko2, FurikomiTesuryoTako1, FurikomiTesuryoTako2, FurikomiTesuryoBorder
	Dim JidoGinkoWaribikiRiritsu
	Dim GinkoSyoriKubun
	Dim GinkoKozaBango
	Dim SyosyaCD
	Dim FurikomiTesuryoTozaFutanKubun, FurikomiTesuryoHiTozaFutanKubun
	Dim GinkoShijokanRiyo

	Dim Jissenbi

'	GinkoCD = Request("GinkoCD")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	SenpoFlg = Request("SenpoFlg")
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")
	SenpoFlg = Request("SenpoFlg")

	'先方書類処理済の場合に警告を出すフラグ（090715小野）
	Dim Syorizumi
	Syorizumi = Request("Syorizumi")


	Dim Query, Content

	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		GinkoKozaBango = "" & Content.Fields("銀行口座番号手動")
		GinkoSyoriKubun = Content.Fields("銀行自動処理")
		GinkoShijokanRiyo = "" & Content.Fields("銀行市場間利用")
		FurikomiTesuryoJiko1 = Content.Fields("振込手数料低金額自行間")
		FurikomiTesuryoJiko2 = Content.Fields("振込手数料高金額自行間")
		FurikomiTesuryoTako1 = Content.Fields("振込手数料低金額他行間")
		FurikomiTesuryoTako2 = Content.Fields("振込手数料高金額他行間")
		FurikomiTesuryoBorder = Content.Fields("振込手数料高低区切金額")
		JidoGinkoWaribikiRiritsu = Content.Fields("手形割引率")
		FurikomiTesuryoTozaFutanKubun = Content.Fields("振込手数料当座振込元負担")
		FurikomiTesuryoHiTozaFutanKubun = Content.Fields("振込手数料非当座振込元負担")
		Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日"))
	End If





	If SenpoFlg = "1" Then
		SyosyaCD = SakuseiKaisyaCD
		GinkoCD = KaisyaCD
		Query = "exec SPB銀行取引書類開封 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & SyosyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)
		Query = "exec SPB銀行取引書類取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & SyosyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'"

		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then
			BunsyoNaiyoCD = Content.Fields("文書内容CD")
			KozaKubun = Content.Fields("口座区分")
			KozaBango = Content.Fields("口座番号")
			Moshikomibi = SetTimeYYYYMMDD(Content.Fields("処理日"))
			AnsyoBango = Content.Fields("暗証番号")
			Kingaku = Content.Fields("金額")
			Tekiyo = Content.Fields("摘要")

'			SenpoTekiyo = Content.Fields("摘要")
			UketsukeKubun = Content.Fields("受付区分")

			FurikomisakiGinkoCD = Content.Fields("振込先銀行CD")
			FurikomisakiKozaKubun = Content.Fields("振込先口座区分")
			FurikomisakiKozaBango = Content.Fields("振込先口座番号")
			Tesuryo = Content.Fields("振込手数料")

			TegataFuridashininCD = Content.Fields("手形作成会社CD")
			TegataSyuruiKubun = Content.Fields("手形文書種類CD")
			TegataBunsyoNaiyoCD = Content.Fields("手形文書内容CD")

			KaisyaCD = Content.Fields("会社CD")
			GinkoCD = Content.Fields("取引先CD")
		End If
	End If

'	If "" & UketsukeKubun <> "N" Then
'		UketsukeKubun = "Y"
'	End If

	Dim KozaAMeisyo, KozaAKingakuMeisyo, KozaA2KingakuMeisyo, KozaBMeisyo, KozaBKingakuMeisyo

	Dim title, DefSenpoBunsyoSyuruiCD
	Dim title2
	If BunsyoSyuruiCD = "BN" Then
		title = "口座開設"
		title2 = title
		DefSenpoBunsyoSyuruiCD = "BA"
		KozaAMeisyo = "口座"
		KozaAKingakuMeisyo = "金額"
	ElseIf BunsyoSyuruiCD = "BO" Then
		title = "預入"
		title2 = title
		DefSenpoBunsyoSyuruiCD = "BB"
		KozaAMeisyo = "口座番号"
		KozaAKingakuMeisyo = "入金額"
	ElseIf BunsyoSyuruiCD = "BP" Then
		title = "払戻"
		title = "引出"
		title2 = "払戻 （引出）"
		DefSenpoBunsyoSyuruiCD = "BC"
		KozaAMeisyo = "口座番号"
		KozaAKingakuMeisyo = "出金額"
	ElseIf BunsyoSyuruiCD = "BQ" Then
		title = "振込"
		title2 = title
		DefSenpoBunsyoSyuruiCD = "BD"
		KozaAMeisyo = "ご依頼人口座番号"
		KozaAKingakuMeisyo = "振込金額"
		KozaA2KingakuMeisyo = "振込手数料"
		KozaBMeisyo = "お受取人口座番号"
		KozaBKingakuMeisyo = "入金額"
	ElseIf BunsyoSyuruiCD = "BR" Then
		title = "小切手入金"
		title2 = title
		DefSenpoBunsyoSyuruiCD = "BE"
		KozaAMeisyo = "入金口座番号"
		KozaAKingakuMeisyo = "入金額"
		KozaBMeisyo = "出金口座番号"
		KozaBKingakuMeisyo = "出金額"
	ElseIf BunsyoSyuruiCD = "BS" Then
		title = "手形取立"
		title2 = title
		DefSenpoBunsyoSyuruiCD = "BF"
		KozaAMeisyo = "入金口座番号"
		KozaAKingakuMeisyo = "入金額"
		KozaBMeisyo = "出金口座番号"
		KozaBKingakuMeisyo = "出金額"
	ElseIf BunsyoSyuruiCD = "BT" Then
		title = "手形割引"
		title2 = title
		DefSenpoBunsyoSyuruiCD = "BG"
		KozaAMeisyo = "入金口座番号"
		KozaAKingakuMeisyo = "入金額"
		KozaBMeisyo = "出金口座番号"
		KozaBKingakuMeisyo = "出金額"
	ElseIf BunsyoSyuruiCD = "BU" Then
		title = "残高証明"
		title2 = title
		DefSenpoBunsyoSyuruiCD = "BH"
		KozaAMeisyo = "入金口座番号"
		KozaAKingakuMeisyo = "入金額"
		KozaBMeisyo = "出金口座番号"
		KozaBKingakuMeisyo = "出金額"
	End If

'先方書類は何かを入れている
	If SenpoBunsyoSyuruiCD = "" Then
		SenpoBunsyoSyuruiCD = DefSenpoBunsyoSyuruiCD
	End If

	Dim Tegata1, Tegata2, Kogitte1, Kogitte2
	If TegataBunsyoNaiyoCD <> "" Then

		Query = "exec SPK手形取得"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"		'演習CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"				'会社CD
		Query = Query & ",'" & TegataFuridashininCD & "'"			'会社CD
		Query = Query & ",'" & TegataSyuruiKubun & "'"
		Query = Query & ",'" & TegataBunsyoNaiyoCD & "'"

		Set Content = OpenQuery(Query)
		If Not(Content.EOF Or Content.BOF) Then
			Kingaku = Content.Fields("金額")
			TegataKingaku = Content.Fields("金額")
			TegataShiharaiKijitsu = SetTimeYYYYMMDD(Content.Fields("支払期日"))
			TegataShiharaiBasyo = Content.Fields("支払場所CD")
			TegataHikiukeninCD = Content.Fields("引受人CD")
			If TegataSyuruiKubun = "TY" Or TegataSyuruiKubun = "TG" Then
				TegataShiharaininCD = TegataFuridashininCD
			Else
				TegataShiharaininCD = TegataHikiukeninCD
			End If

			Tegata1 = ConvKubunMeisyo("手形種類区分", TegataSyuruiKubun ) & " " & Content.Fields("手形番号")
			Tegata1 = Tegata1 & "　振出人:" & ConvKaisyaRyakuMeisyo(TegataFuridashininCD) 
'			Tegata1 = Tegata1 & "　受取人:" & ConvKaisyaRyakuMeisyo(TegataHikiukeninCD) 
'			Tegata1 = Tegata1 & "　支払場所:" & ConvKaisyaRyakuMeisyo(TegataShiharaiBasyo) 
			Tegata2 = "振出日：" & SetTimeYYYYMMDD(Content.Fields("取引日")) & "　支払期日：" & TegataShiharaiKijitsu & "　金額：" & ConvIntToMoney(TegataKingaku, false, false)

			Kogitte1 = ConvKubunMeisyo("手形種類区分", TegataSyuruiKubun ) & " " & Content.Fields("手形番号")
			Kogitte1 = Kogitte1 & "　振出人:" & ConvKaisyaRyakuMeisyo(TegataFuridashininCD) 
'			Kogitte1 = Kogitte1 & "　支払場所:" & ConvKaisyaRyakuMeisyo(TegataShiharaiBasyo) 
			Kogitte2 = "振出日：" & SetTimeYYYYMMDD(Content.Fields("取引日")) & "　金額：" & ConvIntToMoney(TegataKingaku, false, false)

		End If
	End If

'	If Kingaku = "" Then
'		Kingaku = "0"
'	End If


	If BunsyoSyuruiCD = "BQ" And SenpoBunsyoNaiyoCD <> "" Then

		If FurikomisakiGinkoCD = KaisyaCD Then
			If Kingaku < FurikomiTesuryoBorder Then
				Tesuryo  = FurikomiTesuryoJiko1
			Else
				Tesuryo  = FurikomiTesuryoJiko2
			End If
		Else
			If Kingaku < FurikomiTesuryoBorder Then
				Tesuryo  = FurikomiTesuryoTako1
			Else
				Tesuryo  = FurikomiTesuryoTako2
			End If
		End If






		Dim FurikomiTesuryoFutanKubun
		If KozaKubun = "T" Then
			FurikomiTesuryoFutanKubun = FurikomiTesuryoTozaFutanKubun
		Else
			FurikomiTesuryoFutanKubun = FurikomiTesuryoHiTozaFutanKubun
		End If

		If FurikomiTesuryoFutanKubun = "0" Then
			Kingaku = Kingaku - Tesuryo
		End If


	End If

%>
<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 = 2;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	name="form1" method="POST" action="fb_uketsukesyori_bin.asp" autocomplete="off">
<input type="hidden" name="BunsyoSyuruiCD" value="<% = BunsyoSyuruiCD %>">
<input type="hidden" name="TegataFuridashininCD" value="<% = TegataFuridashininCD %>">
<input type="hidden" name="TegataSyuruiKubun" value="<% = TegataSyuruiKubun %>">
<input type="hidden" name="TegataBunsyoNaiyoCD" value="<% = TegataBunsyoNaiyoCD %>">
<input type="hidden" name="SenpoBunsyoNaiyoCD" value="<% = SenpoBunsyoNaiyoCD %>">
<input type="hidden" name="SenpoBunsyoSyuruiCD" value="<% = SenpoBunsyoSyuruiCD %>">
<% If BunsyoSyuruiCD <> "BN" Then %>
<input type="hidden" name="AnsyoBango" value="<% = AnsyoBango %>">
<% End If %>
<% If BunsyoSyuruiCD <> "BT" Then %>
<input type="hidden" name="TegataKingaku" value="<% = TegataKingaku %>">
<% End If %>

<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(3))

	Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "銀行", "tblbtn( '/" & HomeAlias & "/user/bk/menu_b.asp')", "窓口業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_b2.asp')", title2, "", "", "", "", ""))

	Response.Write(HttpL3("", "", "", "", "", "", "","" ,"", "", "", "", "", "", "", ""))

	If SenpoFlg = "1" And (UketsukeKubun = "Y" Or UketsukeKubun = "N") Then
		Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL3_1("通知", "SubmitCheck()", "", "", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL3_2("一覧表示","tblbtn( 'fb_uketsukesyori_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "先方書類一覧","tblbtn( 'fb_uketsukesyori_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "')", "", "", "", "", "", ""))

	Response.Write(HttpL4(ConvKaisyaRyakuMeisyoDx(EnshuCD, GinkoCD) & " " & title2, ""))
%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%">
<tr>
	<td align="CENTER" valign="MIDDLE">
		<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="25" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #111111" WIDTH="525" HEIGHT="100">
		<tr>
			<td>
				<table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%">
				<tr>
					<td align="CENTER" valign="MIDDLE">
						<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="525" HEIGHT="100%">
						<TR>
							<TD ALIGN="CENTER" valign="top">
								<TABLE WIDTH="525" BORDER="0" CELLSPACING="0" CELLPADDING="0" bgcolor="#FFFFFF" class="tx1618">
								<TR>
									<TD HEIGHT="10" VALIGN="BOTTOM" WIDTH="525">
										<table border="1" cellpadding="0" cellspacing="0" bordercolor="#000000" frame="below" STYLE="border-collapse: collapse" class="tx1820">
										<tr>
											<td align="center" nowrap><% = ConvKaisyaRyakuMeisyoDx(EnshuCD, KaisyaCD) %>　<% = title & "結果通知書" %></td>
										</tr>
										</table>
									</TD>
								</TR>
								<TR>
									<TD HEIGHT="10" VALIGN="BOTTOM" WIDTH="555">
									<div><% = Spacer(1,10) %></div>
									取引先申込内容
										<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" class="tx1618">
										<tr>
											<td width="130" height="16">取引先名</td>
											<td height="16" >
											<select size="1" name="TorihikisakiCD" class="tbox4">
											<option value="">　　　　</option>
										<%
											Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
											Set Content = OpenQuery(Query)
											Do While Not(Content.BOF Or Content.EOF)
												'文書種類が口座開設・預入・引出の際は同一市場の会社のみ表示（061114小野）
												'（銀行市場間利用不可設定の場合のみに限定（100413小野））
												If GinkoShijokanRiyo <> "1" And (BunsyoSyuruiCD = "BN" And Content.Fields("市場CD") <> GB_ShijyoCD Or BunsyoSyuruiCD = "BO" And Content.Fields("市場CD") <> GB_ShijyoCD Or BunsyoSyuruiCD = "BP" And Content.Fields("市場CD") <> GB_ShijyoCD) Then
												Else
													Select Case Content.Fields("業種CD")
													Case "S", "K", "U"
														Dim TmpKaisyaCD
														TmpKaisyaCD = Content.Fields("会社CD")
														Response.Write("<option value=""" & Content.Fields("会社CD") & """")
														If Content.Fields("会社CD") = SakuseiKaisyaCD Then
															Response.Write(" selected")
														End If
														Response.Write(">" & Content.Fields("会社名称") & "</option>" & vbCrLf)
													End Select

												End If
												'↑↑↑文書種類が口座開設・預入・引出の際は同一市場の会社のみ表示（061114小野）
												Content.MoveNext
											Loop
										%>

											</select>
											</td>
										</tr>

										<tr>
											<td width="130" height="16">取引依頼日</td>
											<td height="16">
												<input type="text" name="Moshikomibi" size="12" value="<% = Moshikomibi %>" onkeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, true)" class="tbox4">
											</td>
										</tr>
										<% If BunsyoSyuruiCD = "BN" Then %>

										<% ElseIf BunsyoSyuruiCD = "BO" Then %>

										<% ElseIf BunsyoSyuruiCD = "BP" Then %>

										<% ElseIf BunsyoSyuruiCD = "BQ" Then %>

										<tr>
											<td width="130" height="16">小切手</td>
											<td height="16" class="tx1214"><% = Kogitte1 & "<br>" & Kogitte2 %></td>
										</tr>
										<tr>
											<td width="130" height="16">暗証番号</td>
											<td height="16"><% = AnsyoBango %></td>
										</tr>

										<% ElseIf BunsyoSyuruiCD = "BR" Then %>
										<tr>
											<td width="130" height="16">小切手</td>
											<td height="16" class="tx1214"><% = Kogitte1 & "<br>" & Kogitte2 %></td>
										</tr>
										<% ElseIf BunsyoSyuruiCD = "BS" OR BunsyoSyuruiCD = "BT" Then '手形取立%>
										<tr>
											<td width="130" height="16">手形</td>
											<td height="16" class="tx1214"><% = Tegata1 & "<br>" & Tegata2 %></td>
										</tr>
										<% End If %>
										<tr>
											<td width="130" height="17">申込摘要</td>
											<td height="17"><input type="text" name="Tekiyo" value="<% = Tekiyo %>" size="65" onBlur="FormStrLeftIME(this,40,true);" class="tbox4_ime"></td>
										</tr>
										</table>


									</TD>
								</TR>

<!-----------------　前半・後半の境界線　---------------->
								<TR>
									<TD HEIGHT="10" VALIGN="BOTTOM" WIDTH="555">
									<div><% = Spacer(1,10) %></div>
									銀行処理欄
										<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%"  class="tx1618">
										<tr>
											<td width="130" height="16">取引日</td>
											<td height="16">
											<% If Jissenbi <> "" Then '日付固定モード %>
												<input type="text" name="HenshinSyoribi" size="12" onkeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, true);ChangeNyukinKingaku();" class="tbox4_ro" readonly value="<% = Jissenbi %>" class="tbox4">
											<% Else %>
												<input type="text" name="HenshinSyoribi" size="12" onkeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, true);ChangeNyukinKingaku();" value="<% = Moshikomibi %>" class="tbox4">
											<% End If %>
											</td>
										</tr>
										<tr>
											<td width="130" height="16">処理</td>
											<td height="16">
											<% If 0=0 Then '和田さんの余計な変更がわかりにくいのでこの表記で統一 %>
												<% If BunsyoSyuruiCD = "BU" Then '残高証明書は受付許可で固定 %>
												<input type="hidden" value="Y" name="HenshinUketsukeKubun">受付許可
												<% Else %>
												<input type="radio" value="Y" name="HenshinUketsukeKubun" <% If UketsukeKubun = "Y" Then %>checked<% End If %> onClick="ChangeNyukinKingaku()">受付許可
												<input type="radio" value="N" name="HenshinUketsukeKubun" <% If UketsukeKubun = "N" Then %>checked<% End If %> onClick="ChangeNyukinKingaku()">受付不可
												<% End If %>
<!--- 2007.06.12 処理内容によってラジオボタンの表示コントロール追加（和田）※廃止 ------->
											<% ElseIf BunsyoSyuruiCD = "BQ" Then %>
												<input type="radio" value="Y" name="HenshinUketsukeKubun" <% If UketsukeKubun = "Y" Then %>checked<% End If %> onClick="ChangeNyukinKingaku()">振込済　
												<input type="radio" value="N" name="HenshinUketsukeKubun" <% If UketsukeKubun = "N" Then %>checked<% End If %> onClick="ChangeNyukinKingaku()">振込不可
											<% ElseIf BunsyoSyuruiCD = "BO" Then %>
												<input type="radio" value="Y" name="HenshinUketsukeKubun" <% If UketsukeKubun = "Y" Then %>checked<% End If %> onClick="ChangeNyukinKingaku()">入金済　
												<input type="radio" value="N" name="HenshinUketsukeKubun" <% If UketsukeKubun = "N" Then %>checked<% End If %> onClick="ChangeNyukinKingaku()">未入金　
											<% ElseIf BunsyoSyuruiCD = "BP" Then %>
												<input type="radio" value="Y" name="HenshinUketsukeKubun" <% If UketsukeKubun = "Y" Then %>checked<% End If %> onClick="ChangeNyukinKingaku()">出金済　
												<input type="radio" value="N" name="HenshinUketsukeKubun" <% If UketsukeKubun = "N" Then %>checked<% End If %> onClick="ChangeNyukinKingaku()">出金不可
											<% ElseIf BunsyoSyuruiCD = "BS" Then %>
												<input type="radio" value="Y" name="HenshinUketsukeKubun" <% If UketsukeKubun = "Y" Then %>checked<% End If %> onClick="ChangeNyukinKingaku()">処理済　
												<input type="radio" value="N" name="HenshinUketsukeKubun" <% If UketsukeKubun = "N" Then %>checked<% End If %> onClick="ChangeNyukinKingaku()">未処理　
											<% ElseIf BunsyoSyuruiCD = "BT" Then %>
												<input type="radio" value="Y" name="HenshinUketsukeKubun" <% If UketsukeKubun = "Y" Then %>checked<% End If %> onClick="ChangeNyukinKingaku()">処理済　
												<input type="radio" value="N" name="HenshinUketsukeKubun" <% If UketsukeKubun = "N" Then %>checked<% End If %> onClick="ChangeNyukinKingaku()">未処理　
											<% ElseIf BunsyoSyuruiCD = "BN" Then %>
												<input type="radio" value="Y" name="HenshinUketsukeKubun" <% If UketsukeKubun = "Y" Then %>checked<% End If %> onClick="ChangeNyukinKingaku()">受付許可
												<input type="radio" value="N" name="HenshinUketsukeKubun" <% If UketsukeKubun = "N" Then %>checked<% End If %> onClick="ChangeNyukinKingaku()">受付不可
											<% ElseIf BunsyoSyuruiCD = "BR" Then %>
												<input type="radio" value="Y" name="HenshinUketsukeKubun" <% If UketsukeKubun = "Y" Then %>checked<% End If %> onClick="ChangeNyukinKingaku()">入金済　
												<input type="radio" value="N" name="HenshinUketsukeKubun" <% If UketsukeKubun = "N" Then %>checked<% End If %> onClick="ChangeNyukinKingaku()">未入金　
											<% End If %>
											</td>
										</tr>
										<% If BunsyoSyuruiCD = "BN" Then %>
										<tr>
											<td width="130" height="16">口座種類</td>
											<td height="16">
												<select size="1" name="KozaKubun" class="tbox4">
												<option value="">　　</option>
											<%
												Dim SelectedKubunCD
												Dim RiyoGinkoKozaSyuri
												SelectedKubunCD = 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") = SelectedKubunCD Then
															Response.Write(" selected")
														End If
														Response.Write(">" & Content.Fields("区分名称") & "</option>" & vbCrLf)
													End If
													Content.MoveNext
												Loop
											%>
												</select>
											</td>
										</tr>
										<% If GinkoKozaBango = "1" Then %>
										<tr>
											<td width="130" height="16">口座番号</td>
											<td height="16">
												<input type="text" name="KozaBangoS" size="15" value="" onkeyup="FormStrLeft(this,7,false,false);" onKeypress="FormStrLeft(this,7,false,false);" onBlur="FormStrTrim(this,true);" class="tbox5" maxlength="7"></td>
										</tr>
										<% End If %>
										<tr>
											<td width="130" height="16">金額</td>
											<td height="16">
												<input type="text" name="KingakuA" size="15" value="<% = ConvIntToMoney(Kingaku, false, false) %>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);" class="tbox5"></td>
										</tr>
										<tr>
											<td width="130" height="16">暗証番号</td>
											<td height="16">
												<input type="text" name="AnsyoBango" size="15" value="<% = AnsyoBango %>" onkeyup="FormStrLeft(this,10,false,false);" onKeypress="FormStrLeft(this,10,false,false);" onBlur="FormStrTrim(this,true);" class="tbox4"></td>
										</tr>
											<% End If %>
											<% If BunsyoSyuruiCD >= "BO" And BunsyoSyuruiCD < "BU" Then %>
										<tr>
											<td width="130" height="16"><nobr><% = KozaAMeisyo %></nobr></td>
											<td height="16">
												<select size="1" name="KozaBangoA" 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)
													'↓↓↓文書種類が預入・引出の際は同一市場の会社の口座のみ表示（070620小野）	※他市場の銀行を利用可の場合を除く（180219小野）
													If BunsyoSyuruiCD <= "BP" And ConvKaisyaShijyo(EnshuCD,Content.Fields("会社CD")) <> GB_ShijyoCD And GinkoShijokanRiyo <> "1" Then
													Else
														Response.Write("<option value=""" & Content.Fields("銀行CD") & "_" & Content.Fields("口座区分") & "_" & Content.Fields("口座番号") & """")
														If GinkoCD = Content.Fields("銀行CD") AND KozaKubun = Content.Fields("口座区分") AND KozaBango = Content.Fields("口座番号") Then
															Response.Write(" selected")
														End If
														Response.Write(">")
														Response.Write(Content.Fields("会社略名称"))
														Response.Write("-")
														Response.Write(Content.Fields("銀行略名称"))
														Response.Write("-")
														Response.Write(Content.Fields("口座区分名称"))
														Response.Write("-")
														Response.Write(Content.Fields("口座番号"))
														Response.Write("</option>" & vbCrLf)
													End If
												Content.MoveNext
												Loop
											%>
												</select>
											 </td>
										</tr>
										<tr>
											<td width="130" height="16"><% = KozaAKingakuMeisyo %></td>
											<td height="16">
												<input type="text" name="KingakuA" size="15" value="<% = ConvIntToMoney(Kingaku, false, false) %>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);" class="tbox5"></td>
										</tr>
											<% End If %>
											<% If BunsyoSyuruiCD = "BQ" Then %>
										<tr>
											<td width="130" height="16">振込手数料</td>
											<td height="16"><input type="text" name="Tesuryo" size="15" value="<% = ConvIntToMoney(Tesuryo, false, false) %>" class="tbox5" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);"></td>
										</tr>
											<% End If %>
											<% If BunsyoSyuruiCD >= "BQ" And BunsyoSyuruiCD < "BU" Then %>
										<tr>
											<td width="130" height="16"><nobr><% = KozaBMeisyo %></nobr></td>
											<td height="16">
												<select size="1" name="KozaBangoB" class="tbox4">
												<option value="">　　　　</option>
											<%
												Query = "exec SPB銀行口座一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '', '', '', '" & GB_GakuseiNo & "'"

												Set Content = OpenQuery(Query)
												Dim bExist
												bExist = 0
												Do While Not(Content.BOF Or Content.EOF)
													Response.Write("<option value=""" & Content.Fields("銀行CD") & "_" & Content.Fields("口座区分") & "_" & Content.Fields("口座番号") & """")
													If BunsyoSyuruiCD = "BQ" Then
														If FurikomisakiGinkoCD = Content.Fields("銀行CD") AND FurikomisakiKozaKubun = Content.Fields("口座区分") AND FurikomisakiKozaBango = Content.Fields("口座番号") Then
															Response.Write(" selected")
															bExist = 1
														End If
													Else
														If TegataShiharaiBasyo = Content.Fields("銀行CD") AND TegataShiharaininCD = Content.Fields("会社CD") AND  Content.Fields("口座区分") = "T" Then
															Response.Write(" selected")
															bExist = 1
														End If
													End If

													Response.Write(">")
													Response.Write(Content.Fields("会社略名称"))
													Response.Write("-")
													Response.Write(Content.Fields("銀行略名称"))
													Response.Write("-")
													Response.Write(Content.Fields("口座区分名称"))
													Response.Write("-")
													Response.Write(Content.Fields("口座番号"))
													Response.Write("</option>" & vbCrLf)
													Content.MoveNext
												Loop
											%>
													<option value="etc" <% If bExist = 0 AND SenpoBunsyoNaiyoCD <> "" Then %>selected <% End If %>>その他</option>
												</select>
											 </td>
										</tr>
										<tr>
											<td width="130" height="16"><% = KozaBKingakuMeisyo %></td>
											<td height="16">
												<input type="text" name="KingakuB" size="15" value="<% = ConvIntToMoney(Kingaku, false, false) %>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);" class="tbox5"></td>
										</tr>
											<% End If %>
											<% If BunsyoSyuruiCD = "BS" Then %>
										<tr>
											<td width="130" height="16">手形支払期日</td>
											<td height="16">
												<input type="text" name="TegataShiharaiKijitsu" size="12" value="<% = TegataShiharaiKijitsu %>"  class="tbox4" onkeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, false, '', '');ChangeNyukinKingaku();">
											</td>
										</tr>
											<% End If %>
											<% If BunsyoSyuruiCD = "BT" Then %>
										<tr>
											<td height="16" colspan="2">
												手形支払期日<input type="text" name="TegataShiharaiKijitsu" size="12" value="<% = TegataShiharaiKijitsu %>"  class="tbox4" onkeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, false, '', '');ChangeNyukinKingaku();">
												　年利率<input type="text" name="HenshinWaribikiRiritsu" size="6" value="<% = JidoGinkoWaribikiRiritsu %>" class="tbox5" onKeyup="FormStrFloat(this,2,3);" onKeypress="FormStrFloat(this,2,3);" onBlur="FormStrFloatCutoff(this);ChangeNyukinKingaku()">％
												　手形金額<input type="text" name="TegataKingaku" size="16" value="<% = ConvIntToMoney(Kingaku, false, false) %>"  class="tbox5" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);ChangeNyukinKingaku()">
												<br>
												日数<input type="text" name="HenshinWaribikiRiritsuTekiyoNissu" size="5" value="" readonly class="tbox5_ro">
												　利息金額<input type="text" name="HenshinWaribikiRisokuKingaku" size="20" value="" readonly class="tbox5_ro">
											</td>
										</tr>

											<% End If %>
										<tr>
											<td width="130" height="16">通帳摘要</td>
											<td height="16">
												<input type="text" name="HenshinTekiyo" size="65" onBlur="FormStrLeftIME(this,40,true);" value="" class="tbox4_ime"></td>
										</tr>
<% If SenpoFlg = "1" And (UketsukeKubun = "Y" Or UketsukeKubun = "N") Then %>
										<tr>
											<td width="130" height="16">備考</td>
											<td height="16">
												※ 自動応答で受付済み
											</td>
										</tr>
<% End If %>
										</table>
									</TD>
								</TR>
								</TABLE>
							</TD>
						</TR>
						</TABLE>
					</td>
				</tr>
				</table>
			</td>
		</tr>
		</table>
	</td>
</tr>
</table>
</div>

</form>
</body>
<script language="JavaScript">

	ChangeNyukinKingaku();

	function ChangeNyukinKingaku() {
		<% If BunsyoSyuruiCD = "BT" Then %>
		if (form1.HenshinSyoribi.value != "" && form1.TegataShiharaiKijitsu.value != "" && form1.HenshinSyoribi.value != "") {
			var TegataShiharaiKijitsu, Syoribi;
			TegataShiharaiKijitsu = new Date(form1.TegataShiharaiKijitsu.value);
			HenshinSyoribi = new Date(form1.HenshinSyoribi.value);
			form1.HenshinWaribikiRiritsuTekiyoNissu.value = ((TegataShiharaiKijitsu.getTime() - HenshinSyoribi.getTime()) / (24*60*60*1000)) + 1;
			if (form1.HenshinWaribikiRiritsu.value != "") {
				//form1.HenshinWaribikiRisokuKingaku.value = ConvIntToMoney(Math.floor((ConvMoneyToInt(form1.TegataKingaku.value) * ConvMoneyToInt(form1.HenshinWaribikiRiritsu.value) * form1.HenshinWaribikiRiritsuTekiyoNissu.value) / (100 * 365)), false, false);
				form1.HenshinWaribikiRisokuKingaku.value = ConvIntToMoney(Math.floor((ConvMoneyToInt(form1.TegataKingaku.value) * form1.HenshinWaribikiRiritsu.value * form1.HenshinWaribikiRiritsuTekiyoNissu.value) / (100 * 365)), false, false);
//alert("(" + ConvMoneyToInt(form1.TegataKingaku.value) + "*" + form1.HenshinWaribikiRiritsu.value + "*" + form1.HenshinWaribikiRiritsuTekiyoNissu.value + ")/(100 * 365))");
				form1.KingakuA.value = ConvIntToMoney(ConvMoneyToInt(form1.TegataKingaku.value) - ConvMoneyToInt(form1.HenshinWaribikiRisokuKingaku.value));
				form1.KingakuB.value = form1.TegataKingaku.value;
			}
		} else {
			form1.HenshinWaribikiRiritsuTekiyoNissu.value = "";
			form1.HenshinWaribikiRisokuKingaku.value = "";
			form1.KingakuA.value = "";
			form1.KingakuB.value = form1.TegataKingaku.value;
		}
		<% End If %>
	}

	function SubmitCheck() {

		var TmpOut = 0;
		var TmpIn = 0;

	<% If Syorizumi = "1" Then	'先方書類処理済の場合に警告を出す（090715小野） %>
		if (!confirm("この処理は以前行われています。もう一度処理してよろしいですか？　")) {
			return false;
		}
	<% End If %>

		if (form1.HenshinSyoribi.value == "") {
			alert("処理日を入力してください　");
			form1.HenshinSyoribi.focus();
			return false;
		}
		var uketuke=0;
	<% If BunsyoSyuruiCD = "BU" Then '残高証明書は受付許可で固定なのでラジオボタンは存在しない %>
		uketuke = 1;
	<% Else %>
		if (form1.HenshinUketsukeKubun[0].checked) {
			uketuke = 1;
		}
		if (form1.HenshinUketsukeKubun[1].checked) {
			uketuke = 2;
		}
	<% End If %>
		if (uketuke == 0) {
			alert("受付結果を入力してください　");
//			form1.HenshinUketsukeKubun.focus();	//ラジオボタンはフォーカス不能
			return false;
		}

		if (form1.TorihikisakiCD.value == "") {
			alert("申込社名を入力してください　");
			form1.TorihikisakiCD.focus();
			return false;
		}
		if (form1.Moshikomibi.value == "") {
			alert("申込日を入力してください　");
			form1.Moshikomibi.focus();
			return false;
		}

	<% If BunsyoSyuruiCD = "BN" Then %>
		if (typeof(form1.KozaBangoS) == "object") {
			if (form1.KozaBangoS.value == "") {
				alert("口座番号を入力してください　");
				form1.KozaBangoS.focus();
				return false;
			}
			var TmpStr = form1.KozaBangoS.value
			for (i=1; i<=TmpStr.length; i++) {
				if (isNaN(parseInt(TmpStr.charAt(i-1)))) {
					alert("入力された口座番号が正しくありません　");
					form1.KozaBangoS.focus();
					return false;
				}
			}
		}
		if (form1.KozaKubun.value == "") {
			alert("口座種類を入力してください　");
			form1.KozaKubun.focus();
			return false;
		}
	<% ElseIf BunsyoSyuruiCD = "BQ" Then %>
		if (form1.KozaBangoA.value == "") {
			alert("振込元口座を入力してください　");
			form1.KozaBangoA.focus();
			return false;
		}
		if (form1.KozaBangoB.value == "") {
			alert("振込先口座を指定してください　");
			form1.KozaBangoB.focus();
			return false;
		}
	<% ElseIf BunsyoSyuruiCD <> "BU" Then %>
		if (form1.KozaBangoA.value == "") {
			alert("振込先口座を指定してください　");
			form1.KozaBangoA.focus();
			return false;
		}
	<% End If %>

	<% If 1 = 0 Then '''''BunsyoSyuruiCD = "BN" or BunsyoSyuruiCD = "BP" Then %>
		if (form1.AnsyoBango.value == "") {
			alert("暗証番号を入力してください　");
			form1.AnsyoBango.focus();
			return false;
		}
	<% End If %>

	<% If BunsyoSyuruiCD = "BQ" Then %>
		if (form1.Tesuryo.value == "") {
			alert("振込手数料を入力してください　");
			form1.Tesuryo.focus();
			return false;
		}
	<% End If %>

	<% If BunsyoSyuruiCD = "BS" or BunsyoSyuruiCD = "BT" Then %>
		if (form1.TegataShiharaiKijitsu.value == "") {
			alert("手形支払期日を入力してください　");
			form1.TegataShiharaiKijitsu.focus();
			return false;
		}
	<% End If %>

	<% If BunsyoSyuruiCD = "BS" Or BunsyoSyuruiCD = "BT" Or BunsyoSyuruiCD = "BR" Then %>
		if (form1.KozaBangoB.value == "") {
			alert("出金口座を選択してください　");
			form1.KozaBangoB.focus();
			return false;
		}
		if (form1.KingakuB.value == "" || form1.KingakuB.value == "0") {
			alert("<% = KozaBKingakuMeisyo %>を入力してください　");
			form1.KingakuB.focus();
			return false;
		}
		TmpOut += ConvMoneyToInt(form1.KingakuB.value);
//		alert("出金合計：" + TmpOut + "　入金合計：" + TmpIn);
	<% End If %>

	<% If BunsyoSyuruiCD <> "BU" Then %>
		if (form1.KingakuA.value == "" || form1.KingakuA.value == "0") {
			alert("<% = KozaAKingakuMeisyo %>を入力してください　");
			form1.KingakuA.focus();
			return false;
		}
		<% If BunsyoSyuruiCD = "BQ" Then %>
		TmpOut += ConvMoneyToInt(form1.KingakuA.value);
		<% ElseIf BunsyoSyuruiCD = "BS" Then %>
		TmpIn += ConvMoneyToInt(form1.KingakuA.value);
		<% ElseIf BunsyoSyuruiCD = "BT" Then %>
		TmpIn += ConvMoneyToInt(form1.KingakuA.value);
		<% ElseIf BunsyoSyuruiCD = "BR" Then %>
		TmpIn += ConvMoneyToInt(form1.KingakuA.value);
		<% End If %>
//		alert("出金合計：" + TmpOut + "　入金合計：" + TmpIn);
	<% End If %>

	<% If BunsyoSyuruiCD = "BQ" Then %>
		if (form1.KingakuB.value == "" || form1.KingakuB.value == "0") {
			alert("<% = KozaBKingakuMeisyo %>を入力してください　");
			form1.KingakuB.focus();
			return false;
		}
		TmpIn += ConvMoneyToInt(form1.KingakuB.value);
//		alert("出金合計：" + TmpOut + "　入金合計：" + TmpIn);
	<% End If %>

		var syoribi = Date.parse(form1.HenshinSyoribi.value);
		var mosikomibi = Date.parse(form1.Moshikomibi.value);

	<% If BunsyoSyuruiCD = "BT" Then %>
		TmpIn += ConvMoneyToInt(form1.HenshinWaribikiRisokuKingaku.value);
//		alert("出金合計：" + TmpOut + "　入金合計：" + TmpIn);
	<% End If %>

		var syoribi = Date.parse(form1.HenshinSyoribi.value);
		var mosikomibi = Date.parse(form1.Moshikomibi.value);

		if (syoribi < mosikomibi) {
			alert("取引日が取引依頼日より昔の日付です。正しく入力してください　　");
		<% If Jissenbi <> "" Then '日付固定モード %>
			form1.Moshikomibi.focus();
		<% Else %>
			form1.HenshinSyoribi.focus();
		<% End If %>
			return false;
		}

	<% If BunsyoSyuruiCD = "BN" Then %>
		if (uketuke == 2) {
			if (!confirm("この申し込みを受付不可で返信します。よろしいですか？　")) return;
		} else {
			if (!confirm("この金額で口座開設します。よろしいですか？　")) return;
		}
	<% End If %>

	<% If BunsyoSyuruiCD = "BQ" Or BunsyoSyuruiCD = "BR" Or BunsyoSyuruiCD = "BS" Then %>
//		alert("出金合計：" + TmpOut + "　入金合計：" + TmpIn);
		if (TmpOut != TmpIn) {
			if (!confirm("入金額と出金額が合っていません。よろしいですか？　")) return;
		}
	<% ElseIf BunsyoSyuruiCD = "BT" Then %>
//		alert("出金合計：" + TmpOut + "　入金合計：" + TmpIn);
		if (TmpOut != TmpIn) {
			if (!confirm("入金額＋利息と出金額が合っていません。よろしいですか？　")) return;
		}
	<% End If %>

		SubmitReal(form1);
		return true;
	}


</script>
<% = HtmlFooter %>

</html>
<%
End Sub
%>