<!-- #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>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 2;
-->
</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="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="FormStrLeftEdge(this,7,true,false);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="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);" onFocus="FormStrCommaReplace(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="FormStrLeftEdge(this,10,true,false);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="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);" onFocus="FormStrCommaReplace(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="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);" onFocus="FormStrCommaReplace(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="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);" onFocus="FormStrCommaReplace(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="FormStrFloatEdge(this,2,3,true);FormStrFloatCutoff(this);ChangeNyukinKingaku()" onFocus="FormStrCommaReplace(this);">％
手形金額<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="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this);ChangeNyukinKingaku()" onFocus="FormStrCommaReplace(this);">
<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
%>