<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim PageType Dim KozaKubun, KozaBango, BackGinkoCD BackGinkoCD = Request("BackGinkoCD") KozaKubun = Request("KozaKubun") KozaBango = Request("KozaBango") Dim GinkoCD If Left(GB_GyosyuKubun, 1) = "B" Then GinkoCD = KaisyaCD PageType = "口座入出金一覧" Else GinkoCD = Request("GinkoCD") PageType = "口座残高照会" End If %> <% = HtmlHeader("") %>
<% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) ElseIf InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HtmlDesign(2)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "経理部", "", "銀行窓口", "", PageType, "","", "", "", "")) ElseIf GB_Gyosyu = "B" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "銀行", "tblbtn( '/" & HomeAlias & "/user/bk/menu_b.asp')", "窓口業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_b2.asp')", PageType, "", "", "", "", "")) ElseIf GB_Gyosyu <> "B" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp?GinkoCD=" & GinkoCD & "')", PageType, "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo , "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "1.asp')", PageType, "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) '※削除機能を使うと残った行が再挿入されて書類との紐付けが切れてしまうので '※削除機能は封印する。今後一切使ってはダメ！組戻しを使うこと！（180528小野） ' If GinkoRollback > 0 Then ' Response.Write(HttpL3_1(" 選択行の削除 ", "TuchoDelete();", "印刷", "PrintoutReal()", "", "", "", "", "", "")) ' Else ' Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) ' End If Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("口座一覧", "tblbtn( 'fb_koza.asp?RouteType=" & RouteType & "&GinkoCD=" & BackGinkoCD & "&KozaBango=" & KozaBango & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType, ConvKubunMeisyo("口座区分", KozaKubun) & ":" & KozaBango )) %>
<% = HtmlFooter %> <% End Sub %>