<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
' 	名称	:仕入売上書類表示親ウィンドウ
' 	作成日:2003/02/13
' 	作成者:山崎 貴史
' 	目的 :仕入売上書類画面を表示する。
' 	概要	:
' 	 <<表示>>
'################################################
'-->
'
%>

<% 
main()

Sub main()

	Dim Kaishibi
	Dim Syuryobi
	
	Kaishibi = Request("Kaishibi")
	Syuryobi = Request("Syuryobi")
	
	If Kaishibi = "" Then
		Kaishibi = GB_KaikeiKaishibi
	End If
	IF Syuryobi = "" Then
		Syuryobi = GB_KaikeiSyuryobi
	End If
	
	Dim PageType, RouteType, SenpoBunsyoNaiyoCD, SenpoFlg, BunsyoNaiyoCD, BunsyoSyuruiCD, SenpoBunsyoSyuruiCD, SakuseiKaisyaCD, BinType, SojyushinKubun
	PageType = Request("PageType")
	RouteType = Request("RouteType")
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")
	SenpoFlg = Request("SenpoFlg")
	BinType = Request("BinType")


	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	SojyushinKubun = Request("SojyushinKubun")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")

	Dim KaisyaCD1
	KaisyaCD1 = Request("KaisyaCD1")

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


<frameset rows="*,0" framespacing="0" border="0" frameborder="0">

  <frame name="main" src="fd_syorui_view_main.asp?PageType=<% = PageType %>&SojyushinKubun=<% = SojyushinKubun %>&RouteType=<% = RouteType %>&SakuseiKaisyaCD=<% = SakuseiKaisyaCD %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>&SenpoBunsyoSyuruiCD=<% = SenpoBunsyoSyuruiCD %>&SenpoBunsyoNaiyoCD=<% = SenpoBunsyoNaiyoCD %>&KaisyaCD1=<% = KaisyaCD1 %>&BinType=<% = BinType %>&<% = TimeUniq() %>" scrolling="no" noresize >
  <frame name="printout" id="fd_syorui_view_print.asp?PageType=<% = PageType %>&SojyushinKubun=<% = SojyushinKubun %>&RouteType=<% = RouteType %>&SakuseiKaisyaCD=<% = SakuseiKaisyaCD %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>&SenpoBunsyoSyuruiCD=<% = SenpoBunsyoSyuruiCD %>&SenpoBunsyoNaiyoCD=<% = SenpoBunsyoNaiyoCD %>&KaisyaCD1=<% = KaisyaCD1 %>&<% = TimeUniq() %>">
  <noframes>
  <body onkeydown="if(ExitFlg==2)ExitFlg=3;">

  <p>このページにはフレームが使用されていますが、お使いのブラウザではサポートされていません。</p>

  </body>
  </noframes>
</frameset>

</html>
<%
End Sub
%>