<!-- #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>
<% 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>
取引状態
<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>
<% 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
%>