%
'
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query
Dim Content
Dim EnshuCD
EnshuCD = Request("EnshuCD")
Dim SeitoCD
SeitoCD = Request("SeitoCD")
Dim Kubun
Kubun = Request("Kubun")
Dim Kekka
Kekka = Request("Kekka")
Dim ShoriKubun
ShoriKubun = Request("ShoriKubun")
Dim Kingaku
Kingaku = ConvMoneyToInt(Request("Kingaku"))
If Kingaku = "" Then
Kingaku = "0"
End If
Dim GinkoCD
GinkoCD = Request("GinkoCD")
Dim MoushikomiCD
MoushikomiCD = Request("MoushikomiCD")
Dim BunsyoSyuruiCD
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
Dim BunsyoNaiyoCD
BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
Dim KozaKubun
Dim KozaBango
Dim SenpoBunsyoSyuruiCD
Dim SenpoBunsyoNaiyoCD
Dim TegataSakuseikaisyaCD
Dim TegataBunsyoSyuruiCD
Dim TegataBunsyoNaiyoCD
'額面変更モード 口座開設依頼 口座開設結果通知書
If (BunsyoSyuruiCD = "BA" Or BunsyoSyuruiCD = "BN") And ShoriKubun = "Gakumen" Then
'Response.Write(Kingaku)
'Exit Sub
If BunsyoSyuruiCD = "BN" Then
'口座開設入金
Query = ""
Query = Query & " "
Query = Query & " UPDATE TGB銀行口座入出金TRN "
Query = Query & " SET 金額 = " & Kingaku & " "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
Query = Query & " AND 演習CD = '" & EnshuCD & "' "
Query = Query & " AND 銀行CD = '" & GinkoCD & "' "
Query = Query & " AND 結果通知銀行CD = '" & GinkoCD & "' "
Query = Query & " AND 結果通知種類CD = '" & BunsyoSyuruiCD & "' "
Query = Query & " AND 結果通知内容CD = '" & BunsyoNaiyoCD & "' "
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
'口座開設結果通知書
Query = ""
Query = Query & " "
Query = Query & " UPDATE TSB銀行取引申込書類F "
Query = Query & " SET 金額 = " & Kingaku & " "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
Query = Query & " AND 演習CD = '" & EnshuCD & "' "
Query = Query & " AND 作成会社CD = '" & GinkoCD & "' "
Query = Query & " AND 取引先CD = '" & MoushikomiCD & "' "
Query = Query & " AND 文書種類CD = '" & BunsyoSyuruiCD & "' "
Query = Query & " AND 文書内容CD = '" & BunsyoNaiyoCD & "' "
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
End If
BunsyoSyuruiCD = "BA"
'口座開設依頼書
Query = ""
Query = Query & " "
Query = Query & " UPDATE TSB銀行取引申込書類F "
Query = Query & " SET 金額 = " & Kingaku & " "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
Query = Query & " AND 演習CD = '" & EnshuCD & "' "
Query = Query & " AND 作成会社CD = '" & MoushikomiCD & "' "
Query = Query & " AND 取引先CD = '" & GinkoCD & "' "
Query = Query & " AND 文書種類CD = '" & BunsyoSyuruiCD & "' "
Query = Query & " AND 文書内容CD = '" & BunsyoNaiyoCD & "' "
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
Else
'入出金の組戻し
If Kubun = "1" Then
Query = "exec SPB銀行口座入出金組戻"
Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD
Query = Query & ",'" & GinkoCD & "'" '結果通知銀行CD
Query = Query & ",'" & BunsyoSyuruiCD & "'" '結果通知種類CD
Query = Query & ",'" & BunsyoNaiyoCD & "'" '結果通知内容CD
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
End If
'申込書類の文書種類・文書内容・口座情報・手形情報を取得
Query = "exec SPB銀行取引書類取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GinkoCD & "', '" & GinkoCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KozaKubun = Content.Fields("口座区分")
KozaBango = Content.Fields("口座番号")
SenpoBunsyoSyuruiCD = Content.Fields("先方文書種類CD")
SenpoBunsyoNaiyoCD = Content.Fields("先方文書内容CD")
TegataSakuseikaisyaCD = Content.Fields("手形作成会社CD")
TegataBunsyoSyuruiCD = Content.Fields("手形文書種類CD")
TegataBunsyoNaiyoCD = Content.Fields("手形文書内容CD")
'Response.Write(SenpoBunsyoSyuruiCD & ":" & SenpoBunsyoNaiyoCD)
'Exit Sub
Else '銀行側書類から取得できなければ会社側書類から取得(230531小野美)
Query = "exec SPB銀行取引書類取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GinkoCD & "', '" & MoushikomiCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KozaKubun = Content.Fields("口座区分")
KozaBango = Content.Fields("口座番号")
SenpoBunsyoSyuruiCD = Content.Fields("先方文書種類CD")
SenpoBunsyoNaiyoCD = Content.Fields("先方文書内容CD")
TegataSakuseikaisyaCD = Content.Fields("手形作成会社CD")
TegataBunsyoSyuruiCD = Content.Fields("手形文書種類CD")
TegataBunsyoNaiyoCD = Content.Fields("手形文書内容CD")
'Response.Write(SenpoBunsyoSyuruiCD & ":" & SenpoBunsyoNaiyoCD)
'Exit Sub
End If
End If
'Response.Write(TegataSakuseikaisyaCD & "
")
'Response.Write(TegataBunsyoSyuruiCD & "
")
'Response.Write(TegataBunsyoNaiyoCD & "
")
'Exit Sub
'申込会社銀行書類・受発信文書を削除
Query = "exec SPB銀行取引書類削除2"
Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD
Query = Query & ",'" & MoushikomiCD & "'" '会社CD
Query = Query & ",'" & GinkoCD & "'" '作成会社CD
Query = Query & ",'" & BunsyoSyuruiCD & "'"
Query = Query & ",'" & BunsyoNaiyoCD & "'"
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
'銀行側銀行書類・受発信文書を削除
Query = "exec SPB銀行取引書類削除2"
Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD
Query = Query & ",'" & GinkoCD & "'" '会社CD
Query = Query & ",'" & GinkoCD & "'" '作成会社CD
Query = Query & ",'" & BunsyoSyuruiCD & "'"
Query = Query & ",'" & BunsyoNaiyoCD & "'"
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
'銀行側受付書類・受発信文書を削除
Query = "exec SPB銀行取引書類削除2"
Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD
Query = Query & ",'" & GinkoCD & "'" '会社CD
Query = Query & ",'" & MoushikomiCD & "'" '作成会社CD
If SenpoBunsyoSyuruiCD <> "" Then
Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'"
Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'"
Else
Query = Query & ",'" & BunsyoSyuruiCD & "'"
Query = Query & ",'" & BunsyoNaiyoCD & "'"
End If
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
'申込会社申込書類・受発信文書を削除
Query = "exec SPB銀行取引書類削除2"
Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD
Query = Query & ",'" & MoushikomiCD & "'" '会社CD
Query = Query & ",'" & MoushikomiCD & "'" '作成会社CD
If SenpoBunsyoSyuruiCD <> "" Then
Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'"
Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'"
Else
Query = Query & ",'" & BunsyoSyuruiCD & "'"
Query = Query & ",'" & BunsyoNaiyoCD & "'"
End If
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
'手形・小切手の組戻し(小切手振込・小切手入金・手形取立・手形割引)
If TegataSakuseikaisyaCD <> "" And TegataBunsyoSyuruiCD <> "" And TegataBunsyoNaiyoCD <> "" Then
Query = "exec SPK手形組戻 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & TegataSakuseikaisyaCD & "', '" & TegataBunsyoSyuruiCD & "', '" & TegataBunsyoNaiyoCD & "'"
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
End If
'口座削除(口座開設)
If BunsyoSyuruiCD = "BN" Then
Query = "exec SPB銀行口座削除 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GinkoCD & "', '" & KozaKubun & "', '" & KozaBango & "'"
Set Content = OpenQuery(Query)
End If
End If
'戻り先の調整
If SenpoBunsyoSyuruiCD <> "" Then
BunsyoSyuruiCD = SenpoBunsyoSyuruiCD
End If
'############################################### 4.更新データをビューで表示
Response.Redirect("fm_enshucontrol06.asp?EnshuCD=" & EnshuCD & "&SeitoCD=" & SeitoCD & "&Kubun=" & Kubun & "&Kekka=" & Kekka & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&ShoriKubun=" & ShoriKubun)
End Sub
%>