<!-- #include file="../../../include.asp" --> <!-- #include file="../../../user/bk/denpyo/fk_shiireuriage_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 If PageType = "Shiire" Then title = "仕入伝票" DenpyoKubun = "D3" Else title = "売上伝票" DenpyoKubun = "D4" End If %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=shift_jis"> <meta http-equiv="Pragma" content="no-cache"> <meta http-equiv="Cache-Control" content="no-cache"> <meta http-equiv="Expires" content="-1"> <link href="../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css"> <title><% = AppTitle %></title> <script language="JScript" src="../../../include.js?<% = TimeUniq() %>"></script> <script language="JScript" src="../../../includesj.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../../include_enc.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../../includesj_enc.js?<% = TimeUniq() %>"></script> <script type=""text/javascript"" src="../../../javascript.js?<% = TimeUniq() %>"></script> </head> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 0; //印刷余白指定(ミリ指定) PrintTopMargin = 20; <% If GB_ShohizeiMode = 1 Then %> PrintLeftMargin = 11; <% Else %> PrintLeftMargin = 18; <% 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 %> <% = DenpyoShiireUriage(EnshuCD, KaisyaCD, KaisyaCD, DenpyoKubun, DenpyoNo, AutoFlg, 1) %> </body> <% = HtmlFooter %> </html> <% End Sub %>