<% ' ' ' %> <% main() Sub main() Dim RouteType, DenpyoNo RouteType = Request("RouteType") DenpyoNo = Request("DenpyoNo") Dim Mode Mode = Request("Mode") Dim Title If Mode = "Seizo" Then Title = "製造部" End If Dim DenpyoKubun If Mode = "Seizo" Then '製造部 DenpyoKubun = "D8" '伝票区分 8:製造部振替伝票  Else DenpyoKubun = "D5" '伝票区分 5:振替伝票  End If %> <% = AppTitle %> <% = PrintScriptX %> <% Dim AutoFlg If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <% = DenpyoFurikae(EnshuCD, KaisyaCD, KaisyaCD, DenpyoKubun, DenpyoNo, AutoFlg, 1) %> <% = HtmlFooter %> <% End Sub %>