<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim ID Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, SakuseiKaisyaCD, UketsukeKubun , Tekiyo Dim Query, Content Dim FurikomisakiGinkoCD, FurikomisakiKozaKubun, FurikomisakiKozaBango Dim BunsyoNaiyoCD, KozaKubun, Moshikomibi, AnsyoBango, Kingaku, SenpoTekiyo Dim KozaBango Dim Syoribi, BunsyoSyuruiCD Dim TegataFuridashininCD, TegataSyuruiKubun, TegataBunsyoNaiyoCD Dim WaribikiRiritsu, WaribikiRiritsuTekiyoNissu, WaribikiRisokuKingaku Dim HenshinTekiyo Dim NextPageParam '############################################### １．データの引継ぎ If Kingaku = "" Then Kingaku = "0" End If 'ヘッダ部 Dim ErrMsg UketsukeKubun = Request("UketsukeKubun") Tekiyo = Request("Tekiyo") Syoribi = Request("Syoribi") NextPageParam = Request("NextPageParam") Dim tmp1, tmp2 tmp1 = Split(NextPageParam, ";") Dim ii, jj For ii = 0 To UBound(tmp1) Tekiyo = "" tmp2 = Split(tmp1(ii), ",") If UBound(tmp2) >= 2 Then SakuseiKaisyaCD = tmp2(0) KozaKubun = tmp2(1) SenpoBunsyoSyuruiCD = tmp2(2) SenpoBunsyoNaiyoCD = tmp2(3) End If Query = "exec SPB銀行取引書類開封 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) Query = "exec SPB銀行取引書類取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then AnsyoBango = Content.Fields("暗証番号") Syoribi = Content.Fields("処理日") Kingaku = Content.Fields("金額") Moshikomibi = Content.Fields("処理日") End If WaribikiRiritsu = "null" WaribikiRiritsuTekiyoNissu = "null" WaribikiRisokuKingaku = "null" Query = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & SakuseiKaisyaCD & "', '" & KaisyaCD & "', '" & KozaKubun & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then UketsukeKubun = "N" ErrMsg = ErrMsg & ConvKaisyaRyakuMeisyoDx(EnshuCD, SakuseiKaisyaCD) & "の当座口座はすでに開設済みです" & vbCrLf Tekiyo = ConvKaisyaRyakuMeisyoDx(EnshuCD, SakuseiKaisyaCD) & "の当座口座はすでに開設済みです" Else UketsukeKubun = "Y" Query = "exec SPB銀行口座挿入" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ",'" & SakuseiKaisyaCD & "'" '会社CD Query = Query & ",'" & KaisyaCD & "'" '銀行CD Query = Query & ",'" & KozaKubun & "'" '口座区分 Query = Query & ",''" Query = Query & ",'" & Syoribi & "'" '処理日 Query = Query & ",'" & AnsyoBango & "'" '暗証番号 Query = Query & "," & Kingaku '金額 Query = Query & ",'" & Tekiyo & "'" '摘要 Query = Query & ",'" & GakuseiNo & "'" '学生番号 Response.Write(QUery) Response.Write("
" & vbCrLf) Set Content = OpenQuery(Query) While Not Content Is Nothing If Content.Fields.Count > 0 Then KozaBango = Content.Fields(0) End If Set Content = Content.NextRecordset Wend Query = "exec SPB銀行口座入出金挿入" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '銀行CD Query = Query & ",'" & KozaKubun & "'" '口座区分 Query = Query & ",'" & KozaBango & "'" '口座番号 Query = Query & ",1" Query = Query & ",'" & Syoribi & "'" '処理日 Query = Query & "," & Kingaku '金額 Query = Query & ",'GN'" '銀行取引区分 Query = Query & ",'" & HenshinTekiyo & "'" '摘要 Query = Query & ",'" & GakuseiNo & "'" '学生番号 Query = Query & ",'" & KaisyaCD & "'" '結果通知銀行CD Query = Query & ",'BN'" '結果通知種類CD Query = Query & ",'" & KozaBango & "'" '結果通知内容CDには仮に口座番号を入れておく（文書作成後に更新） Response.Write(QUery) Response.Write("
" & vbCrLf) Set Content = OpenQuery(Query) End If Query = "exec SPB銀行取引書類挿入" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & KaisyaCD & "'" '作成会社CD Query = Query & ",'BN'" Query = Query & ",''" Query = Query & ",'" & Syoribi & "'" '処理日 Query = Query & ",'" & SakuseiKaisyaCD & "'" '取引先CD Query = Query & ",'" & KozaKubun & "'" '口座区分 Query = Query & ",'" & KozaBango & "'" '口座番号 Query = Query & ", " & Kingaku '金額 Query = Query & ",'" & UketsukeKubun & "'" '受付区分 Query = Query & ",'" & AnsyoBango & "'" '暗証番号 Query = Query & ", '" & FurikomisakiGinkoCD & "'" '振込先銀行CD Query = Query & ", '" & FurikomisakiKozaKubun & "'" '振込先口座区分 Query = Query & ", '" & FurikomisakiKozaBango & "'" '振込先口座番号 Query = Query & ", 0" '振込先口座番号 Query = Query & ", '" & TegataFuridashininCD & "'" '手形振出人CD Query = Query & ", '" & TegataSyuruiKubun & "'" '文書種類CD Query = Query & ", '" & TegataBunsyoNaiyoCD & "'" '手形番号 Query = Query & ", " & WaribikiRiritsu '割引利率 Query = Query & ", " & WaribikiRiritsuTekiyoNissu '割引利率適用日数 Query = Query & ", " & WaribikiRisokuKingaku '割引利息金額 Query = Query & ",'" & Moshikomibi & "'" '処理日 Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'" '先方文書内容CD Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'" '先方文書種類CD Query = Query & ",'" & SenpoTekiyo & "'" '先方摘要 Query = Query & ",'" & Tekiyo & "'" '摘要 Query = Query & ",0,0,0" '各種フラグ Query = Query & ",'" & GakuseiNo & "'" '学生番号 Response.Write(QUery) Response.Write("
" & vbCrLf) '############################################### ？．ストアドプロシージャ-実行 Set Content = OpenQuery(Query) While Not Content Is Nothing If Content.Fields.Count > 0 Then ID = Content.Fields(0) End If Set Content = Content.NextRecordset Wend 'TGB銀行口座入出金TRNの結果通知内容CDを銀行側書類の文書内容CDに更新する Query = "" Query = Query & " UPDATE TGB銀行口座入出金TRN " Query = Query & " SET 結果通知内容CD = '" & ID & "' " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Query = Query & " AND 結果通知銀行CD = '" & KaisyaCD & "' " Query = Query & " AND 結果通知種類CD = 'BN' " Query = Query & " AND 結果通知内容CD = '" & KozaBango & "' " '入出金時点で仮に口座番号を入れてある Set Content = OpenQuery(Query) Query = "exec SPB銀行取引書類発信" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & KaisyaCD & "'" '作成会社CD ' Query = Query & ",'" & SakuseiKaisyaCD & "'" '作成会社CD Query = Query & ",'BN'" Query = Query & ",'" & ID & "'" Query = Query & ",'" & Moshikomibi & "'" '処理日 Query = Query & ",'" & GakuseiNo & "'" '学生番号 Response.Write(QUery) Response.Write("
" & vbCrLf) Set Content = OpenQuery(Query) Query = "exec SPB銀行取引書類返信済みフラグ適用" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & SakuseiKaisyaCD & "'" '作成会社CD Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'" Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'" Response.Write(QUery) Response.Write("
" & vbCrLf) Set Content = OpenQuery(Query) Next '############################################### ４．更新データをビューで表示 Response.Redirect("fb_uketsukesyori_ikkatsu.asp?BunsyoSyuruiCD=BN&SenpoBunsyoSyuruiCD=BA&Msg=一括受付完了しました") End Sub %>