<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim EnshuCD EnshuCD = Request("EnshuCD") Dim LimitDate LimitDate = Request("LimitDate") Dim SeitoCD SeitoCD = Request("SeitoCD") Dim CD Dim BunsyoNaiyoCD Dim GinkoCD, KozaKubun, Moshikomibi, Kingaku, AnsyoBango, Tekiyo Dim KozaBango, BunsyoSyuruiCD Dim FurikomisakiKozaBango, FurikomisakiGinkoCD, FurikomisakiKozaKubun, Tesuryo 'BD Dim TegataFuridashininCD, TegataSyuruiKubun, TegataNo Dim Query, Content Dim GinkoMoshikomiBunsyoNaiyoCD, GinkoBunsyoNaiyoCD Dim HenshinTekiyo, HenshinUketsukeKubun Dim tmp Dim TegataKozaBango, TegataGinkoCD, TegataShiharaiKijitsu Dim FurikomiTesuryoJiko1, FurikomiTesuryoJiko2, FurikomiTesuryoTako1, FurikomiTesuryoTako2, FurikomiTesuryoBorder Dim JidoGinkoWaribikiRiritsu Dim FurikomiTesuryoTozaFutanKubun, FurikomiTesuryoHiTozaFutanKubun Dim FurikomisakiKaisyaMeisyo Dim Tagata Dim TegataShiharaininCD, TegataHikiukeninCD Dim MoveKingaku Dim TegataKingaku Dim KodoRogu Dim Moushikomibi Dim NyukinCD Dim NyukinKoza Dim NyukinGaku '############################################### 1.データの引継ぎ Dim GinkoSyoriKubun Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then JidoGinkoWaribikiRiritsu = Content.Fields("手形割引率") End If Kingaku = "null" Dim SakuseiKaisyaCD HenshinUketsukeKubun = "Y" HenshinTekiyo = "満期" '銀行書類全取得 Dim ContentGS Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '', '', ''" Set ContentGS = OpenQuery(Query) Do While Not(ContentGS.BOF Or ContentGS.EOF) If (ContentGS.Fields("文書種類CD") = "BS" Or ContentGS.Fields("文書種類CD") = "BT") And "" & ContentGS.Fields("受付区分") = "Y" And "" & ContentGS.Fields("入出金フラグ") <> "1" And "" & ContentGS.Fields("削除フラグ") <> "1" Then '同時同業の場合は選択生徒のみ表示 If ConvEnshuKubun(EnshuCD) = "G" Or SeitoCD = "" Or "" & ConvKaisyaGakuseiNo(EnshuCD, ContentGS.Fields("作成会社CD")) = SeitoCD Then '必要なパラメータを変数に代入 GinkoCD = ContentGS.Fields("会社CD") NyukinGaku = ContentGS.Fields("取引先CD") KaisyaCD = ContentGS.Fields("作成会社CD") SakuseiKaisyaCD = ContentGS.Fields("作成会社CD") BunsyoSyuruiCD = ContentGS.Fields("文書種類CD") GinkoMoshikomiBunsyoNaiyoCD = ContentGS.Fields("文書内容CD") TegataFuridashininCD = ContentGS.Fields("手形作成会社CD") TegataSyuruiKubun = ContentGS.Fields("手形文書種類CD") TegataNo = ContentGS.Fields("手形文書内容CD") KozaKubun = ContentGS.Fields("口座区分") KozaBango = ContentGS.Fields("口座番号") AnsyoBango = ContentGS.Fields("暗証番号") Moushikomibi = ContentGS.Fields("処理日") NyukinGaku = ContentGS.Fields("振込入金金額") '手形から支払情報を取得(支払期日で区別するため先に取得) Query = "exec SPK手形取得" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ",'" & ContentGS.Fields("取引先CD") & "'" Query = Query & ",'" & ContentGS.Fields("手形作成会社CD") & "'" Query = Query & ",'" & ContentGS.Fields("手形文書種類CD") & "'" Query = Query & ",'" & ContentGS.Fields("手形文書内容CD") & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then TegataGinkoCD = Content.Fields("支払場所CD") MoveKingaku = Content.Fields("金額") Kingaku = Content.Fields("金額") TegataKingaku = Content.Fields("金額") TegataShiharaiKijitsu = Content.Fields("支払期日") TegataHikiukeninCD = Content.Fields("引受人CD") Else '手形が存在しない場合 TegataGinkoCD = ContentGS.Fields("手形小切手出金銀行CD") MoveKingaku = ContentGS.Fields("手形小切手出金金額") Kingaku = ContentGS.Fields("手形小切手出金金額") TegataKingaku = ContentGS.Fields("手形小切手出金金額") TegataShiharaiKijitsu = ContentGS.Fields("手形支払期日") TegataHikiukeninCD = GetKozaShoyuKaishaCD(EnshuCD, ContentGS.Fields("手形小切手出金銀行CD"), ContentGS.Fields("手形小切手出金口座区分"), ContentGS.Fields("手形小切手出金口座番号")) End If '支払人トグル If TegataSyuruiKubun = "TY" Or TegataSyuruiKubun = "TG" Then '約束手形or小切手 TegataShiharaininCD = TegataFuridashininCD Else TegataShiharaininCD = TegataHikiukeninCD End If '支払期日が指定日より前の手形のみ実行 ' If (BunsyoSyuruiCD = "BF" And DateDiff("d", TegataShiharaiKijitsu, LimitDate) > -1) Or (BunsyoSyuruiCD = "BG" And DateDiff("d", Moushikomibi, LimitDate) > -1) Then If DateDiff("d", TegataShiharaiKijitsu, LimitDate) > -1 Then '出金口座取得 Query = "exec SPB銀行口座一覧3 '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ",'" & TegataShiharaininCD & "'" '会社CD Query = Query & ",'" & TegataGinkoCD & "'" '銀行CD Query = Query & ",'T'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) THen TegataKozaBango = Content.Fields("口座番号") End If '入金口座取得(これは使っていない) Query = "exec SPB銀行口座一覧3 '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ",'" & NyukinCD & "'" '会社CD Query = Query & ",'" & GinkoCD & "'" '銀行CD Query = Query & ",'T'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) THen NyukinKoza = Content.Fields("口座番号") End If Dim HenshinSyoribi, HenshinWaribikiRiritsu, HenshinWaribikiRiritsuTekiyoNissu, HenshinWaribikiRisokuKingaku Dim TorihikisakiCD Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD , HenshinBunsyoSyuruiCD Dim GenkinTorihikiKubun TorihikisakiCD = KaisyaCD SenpoBunsyoNaiyoCD = GinkoMoshikomiBunsyoNaiyoCD SenpoBunsyoSyuruiCD = BunsyoSyuruiCD If BunsyoSyuruiCD = "BF" Then KodoRogu = "銀行口座に手形の取立をしました。" ElseIf BunsyoSyuruiCD = "BG" Then KodoRogu = "銀行口座に手形の割引をしました。" End If Dim GinkoTorihikiKubun If BunsyoSyuruiCD = "BS" Then '支払処理 ' If DateDiff("d", GB_KaikeiSyuryobi, TegataShiharaiKijitsu) <= 0 Then '会計終了日以後でも処理する? Query = "exec SPB銀行口座入出金挿入 '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ", '" & TegataGinkoCD & "'" '銀行CD Query = Query & ", 'T'" '口座区分 Query = Query & ", '" & TegataKozaBango & "'" '口座番号 Query = Query & ", 1" Query = Query & ", '" & TegataShiharaiKijitsu & "'" '処理日 Query = Query & ", " & MoveKingaku '金額 Query = Query & ", 'TS'" '銀行取引区分 Query = Query & ", '" & HenshinTekiyo & "'" '摘要 Query = Query & ", '" & GakuseiNo & "'" '学生番号 Query = Query & ",'" & GinkoCD & "'" '結果通知銀行CD Query = Query & ",'BS'" '結果通知種類CD Query = Query & ",'" & GinkoMoshikomiBunsyoNaiyoCD & "'" '結果通知内容CD Set Content = OpenQuery(Query) ' End If Query = "exec SPB銀行口座入出金挿入 '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ", '" & GinkoCD & "'" '銀行CD Query = Query & ", 'T'" '口座区分 Query = Query & ", '" & KozaBango & "'" '口座番号 Query = Query & ", 1" Query = Query & ", '" & TegataShiharaiKijitsu & "'" '処理日 Query = Query & ", " & NyukinGaku '金額(振込入金金額) Query = Query & ", 'TN'" '銀行取引区分 Query = Query & ", '" & HenshinTekiyo & "'" '摘要 Query = Query & ", '" & GakuseiNo & "'" '学生番号 Query = Query & ",'" & GinkoCD & "'" '結果通知銀行CD Query = Query & ",'BS'" '結果通知種類CD Query = Query & ",'" & GinkoMoshikomiBunsyoNaiyoCD & "'" '結果通知内容CD Set Content = OpenQuery(Query) ElseIf BunsyoSyuruiCD = "BT" Then '割引は受付時点で入金されてるので満期処理は出金のみ '支払処理 ' If DateDiff("d", GB_KaikeiSyuryobi, TegataShiharaiKijitsu) <= 0 Then '会計終了日以後でも処理する? Query = "exec SPB銀行口座入出金挿入 '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ", '" & TegataGinkoCD & "'" '銀行CD Query = Query & ", 'T'" '口座区分 Query = Query & ", '" & TegataKozaBango & "'" '口座番号 Query = Query & ", 1" Query = Query & ", '" & TegataShiharaiKijitsu & "'" '処理日 Query = Query & ", " & TegataKingaku '金額 Query = Query & ", 'TS'" '銀行取引区分 Query = Query & ", '" & HenshinTekiyo & "'" '摘要 Query = Query & ", '" & GakuseiNo & "'" '学生番号 Query = Query & ",'" & GinkoCD & "'" '結果通知銀行CD Query = Query & ",'BT'" '結果通知種類CD Query = Query & ",'" & GinkoMoshikomiBunsyoNaiyoCD & "'" '結果通知内容CD Set Content = OpenQuery(Query) ' End If End If Query = "exec SPB銀行取引書類入出金フラグ適用 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GinkoCD & "', '" & GinkoCD & "', '" & BunsyoSyuruiCD & "', '" & GinkoMoshikomiBunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) End If End If End If ContentGS.MoveNext Loop '############################################### 4.更新データをビューで表示 Response.Redirect("fm_enshucontrol04.asp?EnshuCD=" & EnshuCD & "&SeitoCD=" & SeitoCD & "&LimitDate=" & LimitDate) End Sub %>