<% ' ' ' %> <% 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 %>