<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If '振替記入にトグルするためのフラグ（081021小野） Dim Kimatsu Kimatsu = Request("Kimatsu") Dim Param2 Param2 = "" If Kimatsu = "Kurikoshi" Then Param2 = "1" End If Dim Kaishibi Dim Syuryobi Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim Query Dim Content Dim ii, jj Dim PageType PageType = "精算表整理記入" If Kimatsu = "Kurikoshi" Then PageType = "精算表振替記入" End If Dim RouteType RouteType = Request("RouteType") %> <% = HtmlHeader("sj3tyobored11") %>
<% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If PackageMode = 1 Then Response.Write(HttpL2("メインメニュー", "tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", PageType, "", "", "", "", "", "", "", "", "")) 'ElseIf RouteType = "Ginko" Then 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_b1.asp')", PageType, "", "", "", "", "")) Else Response.Write(HttpL2("会社選択", "tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", PageType, "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("入力", "tblbtn('fk_seisanhyo.asp?Kimatsu=" & Kimatsu & "&RouteType=" & RouteType & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType, "")) %>
<% = HtmlFooter %> <% End Sub %>