<!-- #include file="../../../include.asp" --> <!-- #include file="../../../user/bk/denpyo/fk_zairyoshiire_view_main_in.asp" --> <% '<!-- '################################################ ' 名称 :入金・出金伝票照会 '" & GB_SystemCD & "', ' 作成日:2002/8/25 ' 作成者:川崎 ' 目的 :入金・出金伝票画面を表示する。 ' 概要 : ' <<表示>> ' ・伝票番号の伝票を表示 ' 修正:2002/9/4:山崎:微調整の為、修正 ' 修正:2002/9/27:山崎:削除済みで無い場合、削除フラグ <> 1として処理 '################################################ '--> ' %> <% 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 %> <html> <% = HtmlHeader("") %> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 0; //印刷余白指定(ミリ指定) PrintTopMargin = 20; <% If GB_ShohizeiMode = 1 Then %> PrintLeftMargin = 10; <% Else %> PrintLeftMargin = 20; <% End If %> // PrintTopMargin = 0; // PrintLeftMargin = 0; --> </SCRIPT> <body onload="<% = PrintOnLoad %>" onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <% = PrintScriptX %> <% Dim AutoFlg If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <% = DenpyoZairyoShiire(EnshuCD, KaisyaCD, KaisyaCD, DenpyoKubun, DenpyoNo, AutoFlg, 1) %> </body> <% = HtmlFooter %> </html> <% End Sub %>