<%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim GinkoCD, BunsyoSyuruiCD, BunsyoNaiyoCD
Dim Syoribi, AnsyoBango, Tekiyo , SenpoTekiyo
Dim TouzaKarikoshiKingaku
Dim SenpoFlg, TorihikisakiCD, SenpoBunsyoSyuruiCD, SenpoBunsyoNaiyoCD
Dim KozaKubun, Kingaku
Dim KozaBango
Dim FurikomisakiKozaBango, FurikomisakiGinkoCD, FurikomisakiKozaKubun, Tesuryo 'BD
Dim RouteType
Dim TegataFuridashininCD, TegataSyuruiKubun, TegataNo
Dim TegataShiharaiKijitsu
Dim WaribikiRiritsu, WaribikiRiritsuTekiyoNissu, WaribikiRisokuKingaku
Dim SenpoSyoribi
Dim UketsukeKubun
Dim FurikomisakiKoza
Dim Tegata
Dim SakujyoFlg
Dim PageType
Dim SakuseiKaisyaCD
PageType = Request("PageType")
RouteType = Request("RouteType")
GinkoCD = Request("GinkoCD")
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
TorihikisakiCD = Request("TorihikisakiCD")
SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
Dim KaisyaCD1
Dim AdminMailFlag
AdminMailFlag = 0
'メール管理機能から開いた場合はKaisyaCD1からKaisyaCDを取得
if Request("KaisyaCD1") <> "" then
AdminMailFlag = 1
KaisyaCD = Request("KaisyaCD1")
end if
' SenpoFlg = Request("SenpoFlg")
If KaisyaCD <> SakuseiKaisyaCD Then
SenpoFlg = "1"
Else
SenpoFlg = "0"
End If
If SakuseiKaisyaCD = "" Then
SakuseiKaisyaCD = KaisyaCD
End If
Dim Title
If BunsyoSyuruiCD= "BA" Then
Title = "口座開設"
ElseIf BunsyoSyuruiCD= "BB" Then
Title = "預入"
ElseIf BunsyoSyuruiCD= "BC" Then
Title = "引出"
ElseIf BunsyoSyuruiCD= "BD" Then
Title = "振込"
ElseIf BunsyoSyuruiCD= "BE" Then
Title = "小切手入金"
ElseIf BunsyoSyuruiCD= "BF" Then
Title = "手形取立"
ElseIf BunsyoSyuruiCD= "BG" Then
Title = "手形割引"
ElseIf BunsyoSyuruiCD= "BH" Then
Title = "残高証明"
End If
Dim Query
Dim Content
'2段階モードの場合のパラメータ取得（180220小野）
Dim HakkoFlg
Dim TegataBunsyoNaiyoCD
Query = "exec SPB銀行取引書類取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
HakkoFlg = "" & Content.Fields("発行フラグ")
KozaKubun = Content.Fields("口座区分")
Kingaku = Content.Fields("金額")
TegataBunsyoNaiyoCD = Content.Fields("手形文書内容CD")
End If
%>
<% = HtmlHeader("") %>
<% = HtmlFooter %>
<%
End Sub
%>