% ' ' ' %> <% 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 %>