% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Content2 Dim Content3 Dim Torihikibi Dim TozaHikidashiFurikomiKogitteHituyo Dim GinkoCD , BunsyoSyuruiCD, BunsyoNaiyoCD Dim JidoBangoShiireUriageSyorui Dim title, GenkinTitle Dim TenmatsuKubun GinkoCD = Request("GinkoCD") If GB_Gyosyu = "B" Then GinkoCD = KaisyaCD End If BunsyoSyuruiCD = Request("BunsyoSyuruiCD") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Dim KozaKubun Dim Moshikomibi Dim AnsyoBango Dim Kingaku Dim Tekiyo Dim KozaBango Dim FurikomisakiKozaBango Dim TegataNo Dim SyoribiLabel Dim TorihikibiLabel KozaKubun = Request("KozaKubun") Moshikomibi = Request("Moshikomibi") AnsyoBango = Request("AnsyoBango") Kingaku = Request("Kingaku") Tekiyo = Request("Tekiyo") KozaBango = Request("KozaBango") FurikomisakiKozaBango = Request("FurikomisakiKozaBango") TegataNo = Request("TegataNo") SyoribiLabel = "申込日" TorihikibiLabel = "取引日" If BunsyoSyuruiCD= "BA" Then title = "口座開設" ElseIf BunsyoSyuruiCD= "BB" Then title = "預入" GenkinTitle = "出金" ElseIf BunsyoSyuruiCD= "BC" Then title = "引出" GenkinTitle = "入金" TorihikibiLabel = "振出日" ElseIf BunsyoSyuruiCD= "BD" Then title = "振込" TorihikibiLabel = "振出日" ElseIf BunsyoSyuruiCD= "BE" Then title = "小切手入金" TenmatsuKubun = "TG" TorihikibiLabel = "振出日" ElseIf BunsyoSyuruiCD= "BF" Then title = "手形取立" TenmatsuKubun = "TT" TorihikibiLabel = "振出日" ElseIf BunsyoSyuruiCD= "BG" Then title = "手形割引" TenmatsuKubun = "TW" TorihikibiLabel = "振出日" ElseIf BunsyoSyuruiCD= "BH" Then title = "残高証明" End If '自社銀行口座への処理の場合 If GB_Gyosyu = "B" Then SyoribiLabel = title & "日" End If Dim Jissenbi Jissenbi = "" Dim GinkoIraiHozon 'フラグ取得 Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then JidoBangoShiireUriageSyorui = Content.Fields("自動番号銀行書類") TozaHikidashiFurikomiKogitteHituyo = Content.Fields("当座引出振込小切手必要") Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日")) GinkoIraiHozon = "" & Content.Fields("銀行窓口依頼保存") End If If GB_Gyosyu = "B" Then '自社銀行口座の場合は小切手不要 TozaHikidashiFurikomiKogitteHituyo = "0" End If ' JidoBangoShiireUriageSyorui = GetEnshuParam(EnshuCD, "自動番号銀行書類") ' TozaHikidashiFurikomiKogitteHituyo = GetEnshuParam(EnshuCD, "当座引出振込小切手必要") ' Dim Query1, Content1, Shihonkin ' Query1 = "exec SPV会社情報取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "','" & KaisyaCD & "'" ' Set Content1 = OpenQuery(Query1) ' If Not (Content1.BOF Or Content1.EOF) Then ' Shihonkin = Content1.Fields("資本金") ' End If ' If IsNull(Shihonkin) Then ' Shihonkin = 0 ' End If '振込先口座配列作成 Dim KaishaCDA Dim KaishaNameA Dim KaishaShijoA ReDim KaishaCDA(0) ReDim KaishaNameA(0) ReDim KaishaShijoA(0) Query = "exec SPB銀行口座一覧2 '" & GB_SystemCD & "', '" & EnshuCD & "', '', '', '', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If GB_Gyosyu <> "B" Or Content.Fields("会社CD") <> KaisyaCD Then '銀行自社口座を除外 ReDim PreServe KaishaCDA(UBound(KaishaCDA) + 1) '配列数+1 ReDim PreServe KaishaNameA(UBound(KaishaCDA)) ReDim PreServe KaishaShijoA(UBound(KaishaCDA)) KaishaCDA(UBound(KaishaCDA)) = Content.Fields("銀行CD") & "_" & Content.Fields("口座区分") & "_" & Content.Fields("口座番号") KaishaNameA(UBound(KaishaCDA)) = Content.Fields("会社略名称") & " (" & ConvKubunMeisyo("口座区分", Content.Fields("口座区分")) & ":" & Content.Fields("銀行略名称") & ")" KaishaShijoA(UBound(KaishaCDA)) = "" & Content.Fields("市場CD") End If Content.MoveNext Loop ReDim PreServe KaishaCDA(UBound(KaishaCDA) + 1) '配列数+1 ReDim PreServe KaishaNameA(UBound(KaishaCDA)) ReDim PreServe KaishaShijoA(UBound(KaishaCDA)) KaishaCDA(UBound(KaishaCDA)) = "etc" KaishaNameA(UBound(KaishaCDA)) = "その他" KaishaShijoA(UBound(KaishaCDA)) = "" Dim KozaCnt '口座数確認用 KozaCnt = 0 %> <% = HtmlHeader("") %>
<% = HtmlFooter %> <% End Sub %>