<% ' ' %> <% main() Sub main() Dim DenpyoNo, RouteType, PageType RouteType = Request("RouteType") DenpyoNo = Request("DenpyoNo") PageType = Request("PageType") Dim title, DenpyoKubun title = "材料仕入伝票" DenpyoKubun = "D7" ' If PageType = "仕入伝票" Then ' title = "仕入伝票" ' DenpyoKubun = "D3" ' Else ' title = "売上伝票" ' DenpyoKubun = "D4" ' End If %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% Dim AutoFlg If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <% = DenpyoZairyoShiire(EnshuCD, KaisyaCD, KaisyaCD, DenpyoKubun, DenpyoNo, AutoFlg, 1) %> <% = HtmlFooter %> <% End Sub %>