<!-- #include file="../../../include.asp" -->
<!-- #include file="../../../user/bk/hakushityohyo/rn_unsohoken_main_in.asp" -->

<%
'<!--
'################################################
'	名称	:仕入売上書類表示
'	作成日:2002/9/10
'	作成者:山崎 貴史
'	目的 :仕入売上書類画面を表示する。
'	概要	:
'	 <<表示>>
'################################################
'-->
'
%>

<%
main()

Sub main()


	Dim BunsyoSyuruiCD, SyoruiMei, SyoriMongon
	BunsyoSyuruiCD = Left(Request("BunsyoSyuruiCD"), 2) '何故か「undifined」が付加されてしまうため力技

	Dim RouteType
	RouteType = Request("RouteType")

    Dim Title
    Title = Request("Title")

%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 0;

	//印刷余白指定(ミリ指定)
	PrintTopMargin = 20;
	PrintLeftMargin = 20;
//	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 %>

<%
		Response.Write(PrintHeader(AutoFlg, ""))

Dim AutoFlg
If RouteType = "Hakushi" Then
	AutoFlg = -1
Else
	AutoFlg = 0
End If
%>
<% = Unsohoken(BunsyoSyuruiCD, SyoruiMei, SyoriMongon, AutoFlg, 1) %>
<%
		Response.Write(PrintFooter())
%>
</body>
<% = HtmlFooter %>
<%
End Sub
%>