<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim PageType PageType = "窓口業務" Dim Query Dim Content Dim GinkoTegataToriWari Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then GinkoTegataToriWari = "" & Content.Fields("銀行手形取立割引手動") End If %> <% = HtmlHeader("") %> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "銀行", "tblbtn( '/" & HomeAlias & "/user/bk/menu_b.asp')", PageType, "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType, "")) %>

【受付処理】

<% If GinkoTegataToriWari = "1" Then %> <% End If %> <% If MajorVersion >= 5 Then %> <% End If %>

口座開設

預入

払戻
（引出）

一括
口座開設

振込

小切手入金

手形取立

手形割引

手形取立
・割引の
満期処理

残高証明書

【照会】

口座一覧

<% = HtmlFooter %> <% End Sub %>