<% ' ' ' %> <% 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 PageType PageType = "精算表整理記入" If Kimatsu = "Kurikoshi" Then PageType = "精算表振替記入" End If Dim RouteType RouteType = Request("RouteType") Dim Url Url = Request.ServerVariables("URL") 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 %> <% = HtmlHeader("sj3tyoboredPRT09") %> <% = PrintScriptX %> <% Response.Write(TyoboHachiketaSeisanhyo(EnshuCD, KaisyaCD, KaisyaCD, "LG", "", 1, 1, Syuryobi, Param2, RouteType)) %> <% End Sub %>