<% ' ' ' %> <% main() Sub main() Dim PageType PageType = "決算整理仕訳" '決算振替にトグルするためのフラグ(081021小野) Dim Kimatsu Kimatsu = Request("Kimatsu") If Kimatsu = "Kurikoshi" Then PageType = "決算振替仕訳" End If Dim RouteType, DenpyoNo RouteType = Request("RouteType") DenpyoNo = Request("DenpyoNo") Dim DenpyoKubun ' DenpyoKubun = "D5" '伝票区分は非利用なので伝票処理区分に転用 If Kimatsu = "Kurikoshi" Then DenpyoKubun = "10" Else DenpyoKubun = "9" End If %> <% = HtmlHeader("sj3tyobored") %> <% = PrintScriptX %> <% Dim AutoFlg If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <% = KimatsuFurikaeDenpyo(EnshuCD, KaisyaCD, KaisyaCD, DenpyoKubun, DenpyoNo, AutoFlg, 1) %> <% = HtmlFooter %> <% End Sub %>