<!-- #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 %>