
<!-- #include file="../../include.asp" -->

<%
'<!-- 
'################################################
' 	名称	：演習追加入力		
' 	作成日：2002/9/4
' 	作成者：徳田
' 	目的　：演習追加入力の画面を表示する。
' 	概要	：
' 	 <<表示>>
'	・演習追加入力画面
'	
'###############################################
'-->



main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query, Content

	Dim NRflg , ErrMSG
	Dim EnshuCD
	Dim EnshuName , EnshuKubun 								'演習CD、 演習名称、演習区分
	Dim FromYmd  , ToYmd		 , TaxRate									'開始日、 終了日、消費税率
	Dim DenpyoKubun, TradeKubun 								'伝票方式、商品取引方式
	Dim DenpyoKubunNm, TradeKubunNm 					'伝票方式名、商品取引方式名
	Dim GinkoSyoriKubun
	Dim FurikomiTesuryoTozaFutanKubun, FurikomiTesuryoHiTozaFutanKubun
	Dim SokanjyomototyoHyojyunshiki

	Dim InputHojyobo
	Dim InputShiwaketyo, InputShiwakeShukeihyo, InputGokeiZandakaShisanhyo, InputSokanjyoMototyo
	Dim InputTaisyakuTaisyohyo, InputSonekiKeisansyo, InputHachiketaSeisanhyo, InputStockholderEquity
	Dim AutoShiwaketyo, AutoShiwakeShukeihyo, AutoGokeiZandakaShisanhyo, AutoSokanjyoMototyo
	Dim AutoTaisyakuTaisyohyo, AutoSonekiKeisansyo, AutoHachiketaSeisanhyo, AutoStockholderEquity
	Dim EnshuID, EnshuPassword
	Dim RiyoGinkoKozaSyurui
	Dim GinkoKozaToza, GinkoKozaFutu, GinkoKozaBetsudan, GinkoKozaTsumitate, GinkoKozaTeiki		

	Dim AutoGenkinNyusyukinRireki, AutoYokinNyusyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki
	Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran
		
	Dim FurikomiTesuryoJiko1, FurikomiTesuryoJiko2, FurikomiTesuryoTako1, FurikomiTesuryoTako2, FurikomiTesuryoBorder
	Dim JidoGinkoWaribikiRiritsu
	Dim ZandakaJidoKeisan

	Dim FurikaeDenpyoGyousu
	Dim GinkoMadoguchiHyoji, KinkoHyoji
	Dim KogitteHyoji, YTegataHyoji, KTegataHyoji, RyosyusyoHyoji

	Dim GinkoKozaBango
	Dim GinkoTegataToriWari
	Dim GinkoShijokanRiyo
	Dim GinkoShomeiTesuryo

	Dim GinkoIraiHozon

	Dim MotoEnshuCD
	Dim Add
	Add = 1
	
	EnshuCD = Request("EnshuCD")
	 	
	NRflg = Request("nr") 
	If NRflg = "r" Then 		
		 
		EnshuName = Request("EnshuName")
		EnshuKubun = Request("EnshuKubun")
		FromYmd = Request("FromYmd")
		ToYmd = Request("ToYmd")
		TaxRate = Request("TaxRate")
		DenpyoKubun = Request("DenpyoKubun")
		TradeKubun = Request("TradeKubun")
		MotoEnshuCD = Request("MotoEnshuCD") 
		ErrMsg = Request("ErrMsg") 
		EnshuID = Request("EnshuID")
		EnshuPassword = Request("EnshuPassword")
		GinkoSyoriKubun = Request("GinkoSyoriKubun")
		GinkoKozaBango = Request("GinkoKozaBango")
		GinkoTegataToriWari = Request("GinkoTegataToriWari")
		GinkoShijokanRiyo = Request("GinkoShijokanRiyo")
		GinkoShomeiTesuryo = Request("GinkoShomeiTesuryo")
		GinkoIraiHozon = Request("GinkoIraiHozon")
		
		AutoGenkinNyusyukinRireki = Request("AutoGenkinNyusyukinRireki")
		AutoYokinNyusyukinRireki = Request("AutoYokinNyusyukinRireki")
		AutoNyukoJisseki = Request("AutoNyukoJisseki")
		AutoSyukoJisseki = Request("AutoSyukoJisseki")
		AutoSyohinZaiko = Request("AutoSyohinZaiko")
		AutoUketoriTegataIchiran = Request("AutoUketoriTegataIchiran")
		AutoShiaraiTegataIchiran = Request("AutoShiaraiTegataIchiran")
		FurikaeDenpyoGyousu = Request("FurikaeDenpyoGyousu")
		GinkoMadoguchiHyoji = Request("GinkoMadoguchiHyoji")
		KinkoHyoji = Request("KinkoHyoji")
		KogitteHyoji = Request("KogitteHyoji")
		YTegataHyoji = Request("YTegataHyoji")
		KTegataHyoji = Request("KTegataHyoji")
		RyosyusyoHyoji = Request("RyosyusyoHyoji")

		Dim CheckFlg
		CheckFlg = Request("CheckFlg")
		InputHojyobo = Mid(CheckFlg, 1 ,1)
		InputShiwaketyo = Mid(CheckFlg, 2 ,1)
		InputShiwakeShukeihyo = Mid(CheckFlg, 3 ,1)
		InputGokeiZandakaShisanhyo = Mid(CheckFlg, 4 ,1)
		InputSokanjyoMototyo = Mid(CheckFlg, 5 ,1)
		InputTaisyakuTaisyohyo = Mid(CheckFlg, 6 ,1)
		InputSonekiKeisansyo = Mid(CheckFlg, 7 ,1)
		InputHachiketaSeisanhyo = Mid(CheckFlg, 8 ,1)
		AutoShiwaketyo = Mid(CheckFlg, 9 ,1)
		AutoShiwakeShukeihyo = Mid(CheckFlg, 10 ,1)
		AutoGokeiZandakaShisanhyo = Mid(CheckFlg, 11 ,1)
		AutoSokanjyoMototyo = Mid(CheckFlg, 12 ,1)
		AutoTaisyakuTaisyohyo = Mid(CheckFlg, 13 ,1)
		AutoSonekiKeisansyo = Mid(CheckFlg, 14 ,1)
		AutoHachiketaSeisanhyo = Mid(CheckFlg, 15 ,1)
		AutoGenkinNyusyukinRireki = Mid(CheckFlg, 16 ,1)
		AutoYokinNyusyukinRireki = Mid(CheckFlg, 17 ,1)
		AutoNyukoJisseki = Mid(CheckFlg, 18 ,1)
		AutoSyukoJisseki = Mid(CheckFlg, 19 ,1)
		AutoSyohinZaiko = Mid(CheckFlg, 20 ,1)
		AutoUketoriTegataIchiran = Mid(CheckFlg, 21 ,1)
		AutoShiaraiTegataIchiran = Mid(CheckFlg, 22 ,1)
	
		FurikomiTesuryoborder = 30000
		FurikomiTesuryoJiko1 = 0
		FurikomiTesuryoJiko2 = 0
		FurikomiTesuryoTako1 = 315
		FurikomiTesuryoTako2 = 630
		JidoGinkoWaribikiRiritsu = 5
		FurikomiTesuryoTozaFutanKubun = "s"
		FurikomiTesuryoHiTozaFutanKubun = "s"

	ElseIf EnshuCD <> "" Then
		Add = 0
		Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" 
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			EnshuName = Content.Fields("演習名称")
			EnshuKubun = Content.Fields("演習区分")
			FromYmd = Content.Fields("会計開始日")
			ToYmd = Content.Fields("会計終了日")
			TaxRate = Content.Fields("消費税")
			DenpyoKubun = Content.Fields("利用伝票数区分")

			GinkoSyoriKubun = Content.Fields("銀行自動処理")
			GinkoKozaBango = "" & Content.Fields("銀行口座番号手動")
			GinkoTegataToriWari = "" & Content.Fields("銀行手形取立割引手動")
			GinkoShijokanRiyo = "" & Content.Fields("銀行市場間利用")
			GinkoShomeiTesuryo = "" & Content.Fields("残高証明書手数料")
			GinkoIraiHozon = "" & Content.Fields("銀行窓口依頼保存")
			InputHojyobo = Content.Fields("手動補助簿表示")
			InputShiwaketyo = Content.Fields("手動仕訳帳表示")
			InputShiwakeShukeihyo = Content.Fields("手動仕訳集計表表示")
			InputGokeiZandakaShisanhyo = Content.Fields("手動合計残高試算表表示")
			InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示")
			InputTaisyakuTaisyohyo = Content.Fields("手動貸借対照表表示")
			InputSonekiKeisansyo = Content.Fields("手動損益計算書表示")
			InputHachiketaSeisanhyo = Content.Fields("手動8桁精算表表示")
			InputStockholderEquity = Content.Fields("手動株主資本等変動計算書表示")

			AutoShiwaketyo = Content.Fields("自動転記仕訳帳表示")
			AutoShiwakeShukeihyo = Content.Fields("自動転記仕訳集計表表示")
			AutoGokeiZandakaShisanhyo = Content.Fields("自動転記合計残高試算表表示")
			AutoSokanjyoMototyo = Content.Fields("自動転記総勘定元帳表示")
			AutoTaisyakuTaisyohyo = Content.Fields("自動転記貸借対照表表示")
			AutoSonekiKeisansyo = Content.Fields("自動転記損益計算書表示")
			AutoHachiketaSeisanhyo = Content.Fields("自動転記8桁精算表表示")
			AutoStockholderEquity = Content.Fields("自動転記株主資本等変動計算書表示")

			EnshuID = Content.Fields("演習管理者ID")
			EnshuPassword = Content.Fields("演習管理者パスワード")
			
			RiyoGinkoKozaSyurui = Content.Fields("利用銀行口座種類")
			
			Dim YobiA, YobiB
			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)
					
			YobiB = Content.Fields("利用銀行口座種類")
			GinkoKozaToza = Mid(YobiB , 1, 1)
			GinkoKozaFutu = Mid(YobiB , 2, 1)
			GinkoKozaBetsudan = Mid(YobiB , 3, 1)
			GinkoKozaTsumitate = Mid(YobiB , 4, 1)
			GinkoKozaTeiki = Mid(YobiB , 5, 1)		
							
			FurikomiTesuryoJiko1 = Content.Fields("振込手数料低金額自行間")
			FurikomiTesuryoJiko2 = Content.Fields("振込手数料高金額自行間")
			FurikomiTesuryoTako1 = Content.Fields("振込手数料低金額他行間")
			FurikomiTesuryoTako2 = Content.Fields("振込手数料高金額他行間")
			FurikomiTesuryoBorder = Content.Fields("振込手数料高低区切金額")
			JidoGinkoWaribikiRiritsu = Content.Fields("手形割引率")
			FurikomiTesuryoTozaFutanKubun = Content.Fields("振込手数料当座振込元負担")
			FurikomiTesuryoHiTozaFutanKubun = Content.Fields("振込手数料非当座振込元負担")

			SokanjyomototyoHyojyunshiki = Content.Fields("総勘定元帳標準式利用")

			ZandakaJidoKeisan = Content.Fields("残高自動計算")

			FurikaeDenpyoGyousu = Content.Fields("振替伝票表示行数")

			GinkoMadoguchiHyoji = "" & Content.Fields("銀行窓口表示")
			KinkoHyoji = "" & Content.Fields("金庫表示")
			KogitteHyoji = "" & Content.Fields("小切手表示")
			YTegataHyoji = "" & Content.Fields("約束手形表示")
			KTegataHyoji = "" & Content.Fields("為替手形表示")
			RyosyusyoHyoji = "" & Content.Fields("領収書表示")

		End If	
	Else
		FromYmd = DateSerial(Year(Date()), 4, 1)
		ToYmd = DateSerial(Year(DateAdd("yyyy", 1, Date())), 3, 31)	
		

		InputHojyobo = "1"
		InputSokanjyoMototyo = "1"
		AutoShiwaketyo = "1"
		AutoShiwakeShukeihyo = "1"
		AutoGokeiZandakaShisanhyo = "1"
		AutoSokanjyoMototyo = "1"
		AutoTaisyakuTaisyohyo = "1"
		AutoSonekiKeisansyo = "1"
		AutoHachiketaSeisanhyo = "1"

		AutoGenkinNyusyukinRireki = "1"
		AutoYokinNyusyukinRireki = "1"
		AutoNyukoJisseki = "1"
		AutoSyukoJisseki = "1"
		AutoSyohinZaiko = "1"
		AutoUketoriTegataIchiran = "1"
		AutoShiaraiTegataIchiran = "1"

		FurikomiTesuryoborder = 30000
		FurikomiTesuryoJiko1 = 0
		FurikomiTesuryoJiko2 = 0
		FurikomiTesuryoTako1 = 315
		FurikomiTesuryoTako2 = 630
		JidoGinkoWaribikiRiritsu = 5
		FurikomiTesuryoTozaFutanKubun = "0"
		FurikomiTesuryoHiTozaFutanKubun = "0"
	End If

	If "" & FurikaeDenpyoGyousu = "" Then
		FurikaeDenpyoGyousu = 5
	End If

	If GinkoKozaBango <> "1" Then
		GinkoKozaBango = "0"
	End If
	If GinkoTegataToriWari <> "1" Then
		GinkoTegataToriWari = "0"
	End If
	If GinkoShijokanRiyo <> "1" Then
		GinkoShijokanRiyo = "0"
	End If
	If GinkoIraiHozon <> "1" Then
		GinkoIraiHozon = "0"
	End If


	Dim RouteType
	RouteType = Request("RouteType")



	Dim bType
	bType = 0
	If EnshuCD = "" Or Request("Kodo") = "1" Then
		bType = 1
	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" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"  method="POST" name="form1" action="fm_enshu2_bin.asp" autocomplete="off">
<input type="hidden" name="Add" value="<% = Add %>">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="DbEnshuCD" value="<% = EnshuCD%>">
<% 
	Response.Write(HtmlDesign(1))
	
	Response.Write(HttpL1(4))

	If Request("RouteType") = "Kantan" Then
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu1.asp')", "演習管理", "", "", "", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "", "", "", "", "", "", "", "", ""))	
	End If

	Response.Write(HttpL3("", "" ,"",  "", "", "", "", "", "", "", "", "", "", "", "", ""))
	
	Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))

	If GB_Admin = 1 Then
		Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "前のページ", "tblbtn('fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu22.asp?EnshuCD=" & EnshuCD & "')", "", "", "", ""))
	Else
		Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu22.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL4("演習管理", "銀行・金庫"))

	Response.Write(HttpL5("<font color=""#FF0000"">" & ErrMsg & "</font>"))
%>

<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">
			<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="5" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="740" HEIGHT="100%">

				<TR>
					<TD HEIGHT="20" VALIGN="TOP" ALIGN="left" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">

						<TABLE WIDTH="800" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse" width="740">
							<tr> 
								<td height="24" align="center" bgcolor="#FFEE88">演習名称</td>
								<td align="center">&nbsp;<% = EnshuName %></td>
								<td align="center" bgcolor="#FFEE88">演習コード</td>
								<td align="center">&nbsp;<% = EnshuCD %></td>
							</tr>
						</table>
						<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
						<TABLE WIDTH="740" BORDER="0" CELLPADDING="0" CELLSPACING="0">
							<tr>
								<td valign="top">
									<TABLE WIDTH="800" HEIGHT="100%" BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
										<tr>
											<td width="225" height="24" bgcolor="#FFEE88">銀行オンライン窓口の利用</td>
											<td width="575" height="24">
												<INPUT type='radio'  name='GinkoMadoguchiHyoji' value= "1" <% If GinkoMadoguchiHyoji = "1" Then Response.Write(" checked") End If %> onClick="GinkoKozaBangoControl();">利用する　
												<INPUT type='radio'  name='GinkoMadoguchiHyoji' value= "0" <% If GinkoMadoguchiHyoji = "0" Then Response.Write(" checked") End If %>>利用しない
											</td>
										</tr>
										<tr>
											<td width="225" height="24" bgcolor="#FFEE88">銀行オンライン窓口からの申込み</td>
											<td width="575" height="24">
												<INPUT type='radio'  name='GinkoIraiHozon' value= "0" <% If GinkoIraiHozon = "0" Then Response.Write(" checked") End If %>>「依頼」ボタンで保存し送信する　
												<INPUT type='radio'  name='GinkoIraiHozon' value= "1" <% If GinkoIraiHozon = "1" Then Response.Write(" checked") End If %>>「保存」「依頼」の2段階で送信する
											</td>
										</tr>
										<tr>
											<td height="24" bgcolor="#FFEE88">銀行オンライン窓口からの<br>　　　　　申込みに対する処理</td>
											<td height="24">
												<div id="GinkoSyoriKubunForm">
													<INPUT type='radio'  name='GinkoSyoriKubun' value= "1" <% If GinkoSyoriKubun = "1" Then Response.Write(" checked") End If %> onClick="GinkoKozaBangoControl();">自動処理する　
													<INPUT type='radio'  name='GinkoSyoriKubun' value= "0" <% If GinkoSyoriKubun = "0" Then Response.Write(" checked") End If %>>銀行担当者が処理する
												</div>
											</td>
										</tr>
										<tr>
											<td height="24" bgcolor="#FFEE88">銀行オンライン窓口処理が<br>　　銀行係の場合の新規口座番号</td>
											<td height="24">
												<div id="GinkoKozaBangoForm">
													<INPUT type='radio'  name='GinkoKozaBango' value= "0" <% If GinkoKozaBango = "0" Then Response.Write(" checked") End If %>>自動採番する　
													<INPUT type='radio'  name='GinkoKozaBango' value= "1" <% If GinkoKozaBango = "1" Then Response.Write(" checked") End If %> onClick="GinkoKozaBangoControl();">銀行担当者が指定する
												</div>
											</td>
										</tr>
										<tr>
											<td height="24" bgcolor="#FFEE88">銀行オンライン窓口処理が<br>　　自動の場合の振込手数料</td>
											<td height="66">
												低金額自行間<input type="text" name="FurikomiTesuryoJiko1" value="<% = ConvIntToMoney(FurikomiTesuryoJiko1, false, false) %>" class="tbox5" size="13" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);">円
												　高金額自行間<input type="text" name="FurikomiTesuryoJiko2" value="<% = ConvIntToMoney(FurikomiTesuryoJiko2, false, false) %>" class="tbox5" size="13" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);">円<br>
												低金額他行間<input type="text" name="FurikomiTesuryoTako1" value="<% = ConvIntToMoney(FurikomiTesuryoTako1, false, false) %>" class="tbox5" size="13" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);">円
												　高金額他行間<input type="text" name="FurikomiTesuryoTako2" value="<% = ConvIntToMoney(FurikomiTesuryoTako2, false, false) %>" class="tbox5" size="13" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);">円<br>
												<nobr>　ただし<input type="text" name="FurikomiTesuryoBorder" value="<% = ConvIntToMoney(FurikomiTesuryoBorder, false, false) %>" class="tbox5" size="13" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);">円以上を高金額とする</nobr>
											</td>
										</tr>
										<tr>
											<td height="24" bgcolor="#FFEE88">銀行オンライン窓口処理が<br>　自動の場合の振込手数料の負担</td>
											<td><!--当座から振込の場合-->
												<select name="FurikomiTesuryoTozaFutanKubun" class="tbox4">
													<option value="1" <% If FurikomiTesuryoTozaFutanKubun = "1" Then %> selected<% End If %>>振込人負担</option>
													<option value="0" <% If FurikomiTesuryoTozaFutanKubun = "0" Then %> selected<% End If %>>受取人負担</option>
												</select><!--
												当座以外から振込の場合
												<select style="font-size: 12px" name="FurikomiTesuryoHiTozaFutanKubun">
													<option value="1" <% If FurikomiTesuryoHiTozaFutanKubun = "1" Then %> selected<% End If %>>振込人負担</option>
													<option value="0" <% If FurikomiTesuryoHiTozaFutanKubun = "0" Then %> selected<% End If %>>受取人負担</option>
												</select>-->
											</td>
										</tr>
										<tr>
											<td height="24" bgcolor="#FFEE88">手形取立・割引の満期処理</td>
											<td height="24">
												<div id="GinkoKozaBangoForm">
													<INPUT type='radio'  name='GinkoTegataToriWari' value= "0" <% If GinkoTegataToriWari = "0" Then Response.Write(" checked") End If %>>即時処理する　
													<INPUT type='radio'  name='GinkoTegataToriWari' value= "1" <% If GinkoTegataToriWari = "1" Then Response.Write(" checked") End If %>>任意に処理する
												</div>
											</td>
										</tr>
										<tr>
											<td height="24" bgcolor="#FFEE88">銀行オンライン窓口処理が<br>　　自動の場合の手形割引率</td>
											<td height="24">
												<input type="text" name="JidoGinkoWaribikiRiritsu" value="<% = ConvIntToMoney(JidoGinkoWaribikiRiritsu, false, true) %>" class="tbox5" size="5" onKeyup="FormStrFloat(this,2,3);" onKeypress="FormStrFloat(this,2,3);" onBlur="FormStrFloatCutoff(this);">％
											</td>
										</tr>
										<% If MajorVersion >= 5 Then %>
										<tr>
											<td height="24" bgcolor="#FFEE88">残高証明書の発行手数料</td>
											<td height="24">
												<input type="text" name="GinkoShomeiTesuryo" value="<% = ConvIntToMoney(GinkoShomeiTesuryo, false, false) %>" class="tbox5" size="13" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);">円
											</td>
										</tr>
										<% Else %>
											<input type="hidden" name="GinkoShomeiTesuryo" value="<% = ConvIntToMoney(GinkoShomeiTesuryo, false, false) %>">
										<% End If %>
										<tr>
											<td height="24" bgcolor="#FFEE88">他市場の銀行を利用可能にする</td>
											<td height="24">
												<INPUT type='radio'  name='GinkoShijokanRiyo' value= "1" <% If GinkoShijokanRiyo = "1" Then Response.Write(" checked") End If %>>利用可　
												<INPUT type='radio'  name='GinkoShijokanRiyo' value= "0" <% If GinkoShijokanRiyo = "0" Then Response.Write(" checked") End If %>>利用不可
											</td>
										</tr>
										<tr>
											<td height="24" bgcolor="#FFEE88">金庫を利用する</td>
											<td height="24">
												<INPUT type='radio'  name='KinkoHyoji' value= "1" <% If KinkoHyoji = "1" Then Response.Write(" checked") End If %>>利用する　
												<INPUT type='radio'  name='KinkoHyoji' value= "0" <% If KinkoHyoji = "0" Then Response.Write(" checked") End If %>>利用しない
											</td>
										</tr>
									</table>
								</td>
							</tr>
						</table>

					</TD>
				</TR>
			</TABLE>
		</TD>
	</TR>
</TABLE>

</div>
</form>

</body>
<% = HtmlFooter %>
</html>
<SCRIPT LANGUAGE="JavaScript">

	function GinkoKozaBangoControl() {
		if (form1.GinkoMadoguchiHyoji[0].checked == true && form1.GinkoSyoriKubun[0].checked == true && form1.GinkoKozaBango[1].checked == true) {
			alert("銀行オンライン窓口を利用している状態で　\n口座番号を銀行担当者が指定する場合は　\n「銀行オンライン窓口からの申し込みに対する処理」を　\n「銀行担当者が処理する」必要があります。　");
			form1.GinkoSyoriKubun[1].checked = true;
		}
	}

	function SubmitCheck() {
		// 100917小野
		if (form1.GinkoMadoguchiHyoji[1].checked == true) {
			alert("銀行オンライン窓口を利用しない場合は　\n小切手・約束手形・為替手形が非利用に設定されます　");
		}
		if (form1.FurikomiTesuryoJiko1.value == "") {
			form1.FurikomiTesuryoJiko1.value = "0";
		}
		if (form1.FurikomiTesuryoJiko2.value == "") {
			form1.FurikomiTesuryoJiko2.value = "0";
		}
		if (form1.FurikomiTesuryoTako1.value == "") {
			form1.FurikomiTesuryoTako1.value = "0";
		}
		if (form1.FurikomiTesuryoTako2.value == "") {
			form1.FurikomiTesuryoTako2.value = "0";
		}
		if (form1.FurikomiTesuryoBorder.value == "") {
			form1.FurikomiTesuryoBorder.value = "0";
		}
		if (form1.GinkoMadoguchiHyoji[0].checked == true && form1.GinkoSyoriKubun[0].checked == true && ConvMoneyToInt(form1.FurikomiTesuryoJiko1.value) > ConvMoneyToInt(form1.FurikomiTesuryoJiko2.value)) {
			alert("振込手数料の低金額と高金額が逆転しています");
			form1.FurikomiTesuryoJiko1.focus();
			return false;
		}
		if (form1.GinkoMadoguchiHyoji[0].checked == true && form1.GinkoSyoriKubun[0].checked == true && ConvMoneyToInt(form1.FurikomiTesuryoTako1.value) > ConvMoneyToInt(form1.FurikomiTesuryoTako2.value)) {
			alert("振込手数料の低金額と高金額が逆転しています");
			form1.FurikomiTesuryoTako1.focus();
			return false;
		}
//		if (form1.GinkoSyoriKubun[0].checked == true && ConvMoneyToInt(form1.FurikomiTesuryoBorder.value) < 2) {
//			alert("高金額とする基準額は2円以上にして下さい");
//			form1.FurikomiTesuryoBorder.focus();
//			return false;
//		}

		SubmitReal(form1);
		return true;
	}

		
</script> 	 

<% 
End Sub
%>