<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim PageType '期中口座開設の有無を確認するフラグ Dim KichuKaisetsu KichuKaisetsu = false 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 = "口座一覧" PageType = "預金通帳" Else GinkoCD = Request("GinkoCD") PageType = "預金通帳" End If Dim TsutyoSyudoSyusei TsutyoSyudoSyusei = GetEnshuParam(EnshuCD, "通帳手動修正") If BackGinkoCD <> GinkoCD Then TsutyoSyudoSyusei = "0" 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_" & GB_Gyosyu & "1.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("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If TsutyoSyudoSyusei = "1" Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の挿入", "SpreadInsertItem(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の削除", "SpreadDelItem(document.vaSpread1);")) Else Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) End If If GB_Gyosyu = "B" Then Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("口座一覧", "tblbtn( 'fb_koza.asp?RouteType=" & RouteType & "&GinkoCD=" & BackGinkoCD & "&KozaBango=" & KozaBango & "')", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4(PageType, ConvKubunMeisyo("口座区分", KozaKubun) & ":" & KozaBango )) %>
<% = HtmlFooter %> <% End Sub %>