<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	名称	:銀行処理ロールバック
'	作成日	:2011/6/19
'	作成者	:小野
'	目的	:銀行処理をロールバックする。
'	概要	:申込自体が存在しない状態に戻す(銀行取引申込書類・銀行口座入出金・銀行口座・手形・小切手)
'################################################
'-->
%>
<%
main()
Sub main()

	If Not(SessionCheck()) Then
		Exit Sub
	End If


	Dim Query
	Dim Content
	Dim ContentTG

	Dim EnshuCD
	Dim EnshuName
	EnshuCD = Request("EnshuCD")
	If GB_EnshuCD <> "" Then
		EnshuCD = GB_EnshuCD
	End If

	If EnshuCD <> "" Then
		Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			EnshuName = Content.Fields("演習名称")
		End If
	End If

	Dim Kubun
	Kubun = Request("Kubun")
	Dim Kekka
	Kekka = Request("Kekka")
	Dim BunsyoSyuruiCD
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")

	Dim ShoriKubun
	ShoriKubun = Request("ShoriKubun")

	If Kubun <> "1" Then
		Kekka = ""
	End If

	'手作業で処理済みの場合は申込が存在しないので結果通知書CDが必要
	'申込の場合も処理済みを逆引きするため結果通知書CDが必要
	Dim ActBunsyoSyuruiCD
	ActBunsyoSyuruiCD = BunsyoSyuruiCD
'	If Kubun = "1" Then
		If BunsyoSyuruiCD = "BA" Then
			ActBunsyoSyuruiCD = "BN"
		ElseIf BunsyoSyuruiCD = "BB" Then
			ActBunsyoSyuruiCD = "BO"
		ElseIf BunsyoSyuruiCD = "BC" Then
			ActBunsyoSyuruiCD = "BP"
		ElseIf BunsyoSyuruiCD = "BD" Then
			ActBunsyoSyuruiCD = "BQ"
		ElseIf BunsyoSyuruiCD = "BE" Then
			ActBunsyoSyuruiCD = "BR"
		ElseIf BunsyoSyuruiCD = "BF" Then
			ActBunsyoSyuruiCD = "BS"
		ElseIf BunsyoSyuruiCD = "BG" Then
			ActBunsyoSyuruiCD = "BT"
		End If
'	End If

	'処理済みを逆引きするための配列作成
	Dim ShoriZumiAry
	ShoriZumiAry = ""
	If Kubun <> "1" Then
		Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '', '', '" & ActBunsyoSyuruiCD & "'" '結果通知書CD
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			ShoriZumiAry = ShoriZumiAry & "::" & Content.Fields("取引先CD") & ":" & Content.Fields("先方文書内容CD") & ":" & Content.Fields("先方文書種類CD") & "::"
			Content.MoveNext
		Loop
	End If


	'同時同業で銀行-窓口業務から利用する際は学生番号が特定出来なければならない
	Dim SeitoCD
	SeitoCD = Request("SeitoCD")

%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 0;
-->
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
<!--
var lsURL="#"
function syokaibtn() {
	if(lsURL == "#") {
		alert("選択されていません");
	} else {
	<% If BunsyoSyuruiCD = "BA" And ShoriKubun = "Gakumen" Then %>
		if(confirm("額面を変更してよろしいですか? ")) {
	<% Else %>
		if(confirm("組み戻してよろしいですか? ")) {
	<% End If %>
//			tblbtn(lsURL); 
			tblbtn(lsURL + "&Kingaku=" + form1.Kingaku.value); 
		}
	}
}

//TRselect & URLset
function celsel(rw,selURL) {
	var trw = rw;
	lsURL = selURL;
	for (k=0; k<document.getElementById("SyoukaiList").rows.length; k++) {
		document.getElementById("SyoukaiList").rows[k].style.backgroundColor =""; //セル色クリア
		if (document.getElementById("KingakuBtn" + k)) {
			document.getElementById("KingakuBtn" + k).setAttribute("disabled", true);
		}
	}
	document.getElementById("SyoukaiList").rows[rw].style.backgroundColor ="#ffcdde"; //選択行色変更
	if (document.getElementById("KingakuBtn" + rw)) {
		document.getElementById("KingakuBtn" + rw).removeAttribute("disabled");
	}
}

//-->
</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="POST" action="fm_enshucontrol04_bin.asp" onSubmit="return SubmitCheck();" autocomplete="off">
<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
<input type="hidden" name="Kingaku" value="">

<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(4))

	If GB_Admin = 1 Then
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "')", "演習コントロール", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "銀行処理組戻し", "", "", "", "", ""))	
	ElseIf GB_Admin > 1 Then
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "')", "演習コントロール", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "銀行処理組戻し", "", "", "", "", ""))	
	Else
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "銀行", "tblbtn( '/" & HomeAlias & "/user/bk/menu_b.asp')", "窓口業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_b2.asp')", "銀行処理組戻し", "", "", "", "", ""))
	End If

	Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	If BunsyoSyuruiCD = "BA" And ShoriKubun = "Gakumen" Then
		Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL3_1("銀行処理組戻しを実行する", "syokaibtn()", "", "", "", "", "", "", "", ""))
	End If
'	Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))

	If GB_Admin => 1 Then
		If BunsyoSyuruiCD = "BA" Then
			If ShoriKubun = "Gakumen" Then
				Response.Write(HttpL3_2("戻る", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "組み戻し", "tblbtn('fm_enshucontrol06.asp?EnshuCD=" & EnshuCD & "&SeitoCD=' + form1.SeitoCD.value + '&Kubun=' + form1.Kubun.value + '&Kekka=' + form1.Kekka.value + '&BunsyoSyuruiCD=' + form1.BunsyoSyuruiCD.value);", "", "", "", "", "", ""))
			Else
				Response.Write(HttpL3_2("戻る", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "額面修正", "tblbtn('fm_enshucontrol06.asp?EnshuCD=" & EnshuCD & "&SeitoCD=' + form1.SeitoCD.value + '&Kubun=' + form1.Kubun.value + '&Kekka=' + form1.Kekka.value + '&BunsyoSyuruiCD=' + form1.BunsyoSyuruiCD.value + '&ShoriKubun=Gakumen');", "", "", "", "", "", ""))
			End If
		Else
			Response.Write(HttpL3_2("戻る", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", ""))
		End If
	Else
		Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
	End If

	If GB_Admin => 1 Then
		Response.Write(HttpL4("演習コントロール", "銀行処理組戻し"))
	Else
		Response.Write(HttpL4("銀行処理組戻し", ""))
	End If

	If BunsyoSyuruiCD = "BA" And ShoriKubun <> "Gakumen" Then
		Response.Write(HttpL5("新規預入以降に取引のある口座は除外されています"))
	End If


%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="1" height="100%" border="0" cellspacing="5" cellpadding="5" bgcolor="#ffffff" style="border:1px solid #000000">
	<tr>
		<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
			<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
				<tr height="10">
					<td valign="top">
						<table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416">
							<tr>
								<td>
									<table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416">
										<tr>
											<td>
<% If ConvEnshuKubun(EnshuCD) = "P" Then %>
												<select size="1" class="tbox4" name="SeitoCD" onChange="tblbtn('fm_enshucontrol06.asp?EnshuCD=<% = EnshuCD %>&SeitoCD=' + this.value + '&Kubun=' + form1.Kubun.value + '&Kekka=' + form1.Kekka.value + '&BunsyoSyuruiCD=' + form1.BunsyoSyuruiCD.value + '&ShoriKubun=<% = ShoriKubun %>');">
													<option value=""><全ての生徒></option>
<%
	Query = "exec SPM演習会社履歴 '" & GB_SystemCD & "', '" & EnshuCD & "', 0"	'ソート区分指定
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		Response.Write("	<option value=""" & Content.Fields("学生番号") & """")
		If "" & Content.Fields("学生番号") = SeitoCD Then
			Response.Write(" selected")
		End If
		Response.Write(">" & Content.Fields("氏名") & "</option>" & vbCrLf)
		Content.MoveNext
	Loop
%>
												</select>
												&nbsp;
<% Else %>
												<input type="hidden" name="SeitoCD" value="<% = SeitoCD %>">
<% End If %>
												銀行取引区分
												<select size="1" class="tbox4" name="BunsyoSyuruiCD" onChange="tblbtn('fm_enshucontrol06.asp?EnshuCD=<% = EnshuCD %>&SeitoCD=' + form1.SeitoCD.value + '&Kubun=' + form1.Kubun.value + '&Kekka=' + form1.Kekka.value + '&BunsyoSyuruiCD=' + this.value + '&ShoriKubun=<% = ShoriKubun %>');">
													<option value="BA"<% If BunsyoSyuruiCD = "BA" Then %> selected <% End If %>>口座開設</option>
													<option value="BB"<% If BunsyoSyuruiCD = "BB" Then %> selected <% End If %>>預入</option>
													<option value="BC"<% If BunsyoSyuruiCD = "BC" Then %> selected <% End If %>>引出</option>
													<option value="BD"<% If BunsyoSyuruiCD = "BD" Then %> selected <% End If %>>振込</option>
													<option value="BE"<% If BunsyoSyuruiCD = "BE" Then %> selected <% End If %>>小切手入金</option>
													<option value="BF"<% If BunsyoSyuruiCD = "BF" Then %> selected <% End If %>>手形取立</option>
													<option value="BG"<% If BunsyoSyuruiCD = "BG" Then %> selected <% End If %>>手形割引</option>
												</select>
												&nbsp;
												取引状態
												<select size="1" class="tbox4" name="Kubun" onChange="tblbtn('fm_enshucontrol06.asp?EnshuCD=<% = EnshuCD %>&SeitoCD=' + form1.SeitoCD.value + '&Kubun=' + this.value + '&Kekka=' + form1.Kekka.value + '&BunsyoSyuruiCD=' + form1.BunsyoSyuruiCD.value + '&ShoriKubun=<% = ShoriKubun %>');">
													<option value="1"<% If Kubun = "1" Then %> selected <% End If %>>処理済み</option>
													<option value="0"<% If Kubun <> "1" Then %> selected <% End If %>>申し込み</option>
												</select>
												&nbsp;
												<% If Kubun = "1" Then %>
												結果
												<select size="1" class="tbox4" name="Kekka" onChange="tblbtn('fm_enshucontrol06.asp?EnshuCD=<% = EnshuCD %>&SeitoCD=' + form1.SeitoCD.value + '&Kubun=' + form1.Kubun.value + '&Kekka=' + this.value + '&BunsyoSyuruiCD=' + form1.BunsyoSyuruiCD.value + '&ShoriKubun=<% = ShoriKubun %>');">
													<option value="">すべて表示</option>
													<option value="1"<% If Kekka = "1" Then %> selected <% End If %>>許可</option>
													<option value="0"<% If Kekka = "0" Then %> selected <% End If %>>不可</option>
												</select>
												<% Else %>
												<input type="hidden" name="Kekka" value="<% = Kekka %>">
												<% End If %>
											</td>
										</tr>
									</table>
								</td>
							</tr>
						</table>
						<% If GB_Admin => 1 Then %>
						<TABLE WIDTH="<% If GB_Admin => 1 Then %>880<% Else %>580<% End If %>" HEIGHT="30" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
							<TR ALIGN="CENTER">
								<TD HEIGHT="30" width="90" align="center">対象演習名</TD>
								<TD height="30" align="center">
									<% = EnshuMeisyo %>
								</TD>
							</TR>
						</table>
						<% End If %>
						<table BORDER="0" CELLPADDING="0" CELLSPACING="0">
							<TR>
								<TD VALIGN="BOTTOM" WIDTH="1">
									<TABLE HEIGHT="20" BORDER="1" WIDTH="<% If GB_Admin => 1 Then %>880<% Else %>580<% End If %>" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
										<TR ALIGN="CENTER">
										<% If GB_Admin => 1 Then %>
											<% If ConvEnshuKubun(EnshuCD) = "P" Then %>
											<TD HEIGHT="20" WIDTH="140">学生氏名</TD>
											<% Else %>
											<TD HEIGHT="20" WIDTH="140">会社コード</TD>
											<% End If %>
											<TD HEIGHT="20" WIDTH="180">申込会社</TD>
										<% End If %>
											<TD HEIGHT="20" WIDTH="40">依頼</TD>
											<TD HEIGHT="20" WIDTH="82">申込日</TD>
											<TD HEIGHT="20">取引先銀行</TD>
										<% If Kubun = "1" Then %>
											<TD HEIGHT="20" WIDTH="40">受付</TD>
										<% End If %>
											<TD HEIGHT="20" WIDTH="92">額面</TD>
										<% If BunsyoSyuruiCD = "BD" Then %>
											<TD HEIGHT="20" WIDTH="75">取引先</TD>
										<% ElseIf BunsyoSyuruiCD = "BE" Or BunsyoSyuruiCD = "BF" Or BunsyoSyuruiCD = "BG" Then %>
											<TD HEIGHT="20" WIDTH="75">手形番号</TD>
										<% End If %>
										<% If Kubun = "1" Then %>
											<TD HEIGHT="20" WIDTH="30">結果</TD>
										<% End If %>
										<% If BunsyoSyuruiCD = "BA" And ShoriKubun = "Gakumen" Then %>
											<TD HEIGHT="20" WIDTH="60">額面修正</TD>
										<% End If %>
										</TR>
									</TABLE>
								</TD>
							</TR>
						</table>
					</TD>
				</TR>
				<TR>
					<TD VALIGN="TOP">
						<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:<% If GB_Admin => 1 Then %>900<% Else %>600<% End If %>px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
							<TABLE ID="SyoukaiList" BORDER="1" WIDTH="<% If GB_Admin => 1 Then %>880<% Else %>580<% End If %>" CELLSPACING="0" CELLPADDING="3" BGCOLOR="#FFFFFF" CLASS="tx1416" STYLE="border-collapse: collapse" BORDERCOLOR="#000000">
<%
	'取引のある口座開設は削除できないようにするための判定
	Dim ContentTorihiki
	Dim TorihikiCnt

	Dim ii
	ii = 0
	Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '', '', '"
	If Kubun = "1" Then
		Query = Query & ActBunsyoSyuruiCD & "'" '結果通知書CD
	Else
		Query = Query & BunsyoSyuruiCD & "'" '申込CD
	End If
'Response.Write(Query)
'Exit Sub
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
																'同時同業の場合は選択生徒のみ表示
		If (ConvEnshuKubun(EnshuCD) = "G" Or SeitoCD = "" Or "" & ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("作成会社CD")) = SeitoCD) And (Kekka = "" Or (Kekka = "1" And "" & Content.Fields("受付区分") = "Y") Or (Kekka = "0" And "" & Content.Fields("受付区分") = "N")) And "" & Content.Fields("削除フラグ") <> "1" Then

		'申込の場合は処理済を除外
		If InStr(ShoriZumiAry, "::" & Content.Fields("作成会社CD") & ":" & Content.Fields("文書内容CD") & ":" & Content.Fields("文書種類CD") & "::") < 1 Then
	

			Dim MoushikomiCD
			Dim GinkoCD
			Dim BunsyoNaiyoCD
			Dim IraiCD
			Dim UketsukeCD
			MoushikomiCD = Content.Fields("作成会社CD")
			GinkoCD = Content.Fields("取引先CD")
			BunsyoNaiyoCD = Content.Fields("文書内容CD")
			IraiCD = Content.Fields("文書内容CD")
			UketsukeCD = ""
			'結果通知の場合は逆転
			If Kubun = "1" Then
				MoushikomiCD = Content.Fields("取引先CD")
				GinkoCD = Content.Fields("作成会社CD")
				IraiCD = Content.Fields("先方文書内容CD")
				UketsukeCD = Content.Fields("文書内容CD")
			End If

			TorihikiCnt = 0
			'If BunsyoSyuruiCD = "BA" Then
			If BunsyoSyuruiCD = "BA" And ShoriKubun <> "Gakumen" Then
				'取引のある口座開設は削除できないようにするための判定
				TorihikiCnt = 0
				Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & MoushikomiCD & "', '" & GinkoCD & "', '" & Content.Fields("口座区分") & "', ''"
'Response.Write(Query)
'Exit Sub
				Set ContentTorihiki = OpenQuery(Query)
				Do While Not(ContentTorihiki.BOF Or ContentTorihiki.EOF)
					If ContentTorihiki.Fields("処理時期区分") <> 0 Then
						TorihikiCnt = TorihikiCnt + 1
						If TorihikiCnt > 1 Then
							Exit Do
						End If
					End If
					ContentTorihiki.MoveNext
				Loop
			End If
'TorihikiCnt = 0

			If TorihikiCnt < 2 Then
				Response.Write("<TR ALIGN=""CENTER"" style=""cursor:pointer;"" onClick=""celsel(" & ii & ",'fm_enshucontrol06_bin.asp?EnshuCD=" & Content.Fields("演習CD") & "&GinkoCD=" & GinkoCD & "&MoushikomiCD=" & MoushikomiCD & "&BunsyoSyuruiCD=" & Content.Fields("文書種類CD") & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SeitoCD=" & SeitoCD & "&Kubun=" & Kubun & "&Kekka=" & Kekka & "&ShoriKubun=" & ShoriKubun & "')""")
				If BunsyoSyuruiCD <> "BA" Or ShoriKubun <> "Gakumen" Then
					Response.Write(" onDblClick=""syokaibtn()""")
				End If
				Response.Write(">" & vbCrLf)
				If GB_Admin => 1 Then
					Response.Write("<TD HEIGHT=""20"" ALIGN=""LEFT"" WIDTH=""140"">")
					If ConvEnshuKubun(EnshuCD) = "P" Then
						Response.Write(ConvGakuseiShimei(ConvKaisyaGakuseiNo(EnshuCD, MoushikomiCD)))
					Else
						Response.Write(MoushikomiCD)
					End If
					Response.Write("</TD>" & vbCrLf)
					Response.Write("<TD HEIGHT=""20"" WIDTH=""180"" ALIGN=""LEFT"">" & ConvKaisyaMeisyoDx(EnshuCD, MoushikomiCD) & "</TD>" & vbCrLf)
				End If
				Response.Write("<TD HEIGHT=""20"" WIDTH=""40"" ALIGN=""CENTER"" CLASS=""tx1214"">" & IraiCD & "</TD>" & vbCrLf)
				Response.Write("<TD HEIGHT=""20"" WIDTH=""82"" ALIGN=""CENTER"">" & Content.Fields("処理日") & "</TD>" & vbCrLf)
				Response.Write("<TD HEIGHT=""20"" ALIGN=""LEFT"">" & ConvKaisyaRyakuMeisyoDx(EnshuCD, GinkoCD) & "</TD>" & vbCrLf)
				If Kubun = "1" Then
					Response.Write("<TD HEIGHT=""23"" WIDTH=""40"" ALIGN=""CENTER"" CLASS=""tx1214"">" & UketsukeCD & "</TD>" & vbCrLf)
				End If
				Dim Kingaku
				Kingaku = Content.Fields("金額")
				'申込の場合は小切手・手形の番号・金額を取得
				Dim TegataNo
				If Kubun <> "1" And (BunsyoSyuruiCD = "BE" Or BunsyoSyuruiCD = "BF" Or BunsyoSyuruiCD = "BG") Then
					Query = "exec SPK手形取得 '" & GB_SystemCD & "'"
					Query = Query & ",'" & EnshuCD & "'"			'演習CD
					Query = Query & ",'" & Content.Fields("手形作成会社CD") & "'"	'会社CD
					Query = Query & ",'" & Content.Fields("手形作成会社CD") & "'"	'作成会社CD
					Query = Query & ",'" & Content.Fields("手形文書種類CD") & "'"
					Query = Query & ",'" & Content.Fields("手形文書内容CD") & "'"
					Set ContentTG = OpenQuery(Query)
					If Not(ContentTG.BOF Or ContentTG.EOF) Then
						TegataNo = ContentTG.Fields("手形番号")
						Kingaku = ContentTG.Fields("金額")
					End If
				End If
				Response.Write("<TD HEIGHT=""20"" WIDTH=""92"" ALIGN=""RIGHT"">")
				If BunsyoSyuruiCD = "BA" And ShoriKubun = "Gakumen" Then
					Response.Write("<input type=""text"" name=""Kingaku" & ii & """ value=""" & ConvIntToMoney(Kingaku, false, false) & """ class=""tbox5"" style=""margin:1px 2px;"" size=""12"" onKeyup=""FormStrFloat(this,10,0);"" onKeypress=""FormStrFloat(this,10,0);"" onBlur=""FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);"" onFocus=""FormStrCommaReplace(this);"">")
				Else
					Response.Write(SetMoney(Kingaku, false, true))
				End If
				Response.Write("</TD>" & vbCrLf)
				If BunsyoSyuruiCD = "BD" Then
					Response.Write("<TD HEIGHT=""20"" WIDTH=""75"" ALIGN=""LEFT"">" & ConvKaisyaRyakuMeisyoDx(EnshuCD, GetKozaShoyuKaishaCD(EnshuCD, Content.Fields("振込先銀行CD"), Content.Fields("振込先口座区分"), Content.Fields("振込先口座番号"))) & "</TD>" & vbCrLf)
				ElseIf BunsyoSyuruiCD = "BE" Or BunsyoSyuruiCD = "BF" Or BunsyoSyuruiCD = "BG" Then
					'Response.Write("<TD HEIGHT=""20"" WIDTH=""75"" ALIGN=""LEFT"">" & ConvKaisyaRyakuMeisyoDx(EnshuCD, GetKozaShoyuKaishaCD(EnshuCD, Content.Fields("手形小切手出金銀行CD"), Content.Fields("手形小切手出金口座区分"), Content.Fields("手形小切手出金口座番号"))) & "</TD>" & vbCrLf)
					Response.Write("<TD HEIGHT=""20"" WIDTH=""75"" ALIGN=""LEFT"">" & TegataNo & "</TD>" & vbCrLf)
				End If
				If Kubun = "1" Then
					Response.Write("<TD HEIGHT=""23"" WIDTH=""30"" ALIGN=""CENTER"">")
					If "" & Content.Fields("受付区分") = "Y" Then
						Response.Write("許可")
					Else
						Response.Write("不可")
					End If
					Response.Write("</TD>" & vbCrLf)
				End If
				If BunsyoSyuruiCD = "BA" And ShoriKubun = "Gakumen" Then
					Response.Write("<TD HEIGHT=""23"" WIDTH=""60"" ALIGN=""CENTER"">")
					Response.Write("<input type=""button"" id=""KingakuBtn" & ii & """ value=""保存"" class=""tx1416"" style=""cursor:pointer;"" onClick=""form1.Kingaku.value=form1.Kingaku" & ii & ".value;syokaibtn();"" disabled>")
					Response.Write("</TD>" & vbCrLf)
				End If
				Response.Write("</TR>" & vbCrLf)
				ii = ii + 1
			End If

		End If
		End If
		Content.MoveNext
	Loop

%>
							</TABLE>
						</DIV>
					</TD>
				</TR>
			</TABLE>
		</td>
	</tr>
</table>
</DIV>
</form>

</body>

<% = HtmlFooter %>
</html>
<SCRIPT LANGUAGE="JavaScript">

	function SubmitCheck() {
		if (form1.LimitDate.value == "") {
			alert("日付を入力してください ");
			form1.LimitDate.focus();
			return false;
		}
		if (!confirm("\n指定された日付までの手形取立・割引受付の満期処理(当座入出金)を行います。よろしいですか? \n\n(日付は会計期間外も指定出来ますので、西暦年の誤りにご注意ください) \n\n")) {
			return false;
		}
		SubmitReal(form1);
		return true;
	}

</script>

<%
End Sub
%>