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

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

<% 
main()

Sub main()

	Dim SakuseiKaisyaCD                            '作成会社CD
	Dim BunsyoSyuruiCD                             '文書種類CD
	Dim BunsyoNaiyoCD                              '文書内容CD
	Dim SenpoBunsyoSyuruiCD                        '先方文書種類CD
	Dim SenpoBunsyoNaiyoCD                         '先方文書内容CD
	Dim SojyushinKubun                             '送受信区分
	Dim PageType
	Dim RouteType
	Dim SenpoFlg
	Dim BinType
	Dim Kaishibi
	Dim Syuryobi
	Dim KaisyaCD1
	
	Kaishibi = Request("Kaishibi")
	Syuryobi = Request("Syuryobi")
	
	If Kaishibi = "" Then
		Kaishibi = GB_KaikeiKaishibi
	End If
	IF Syuryobi = "" Then
		Syuryobi = GB_KaikeiSyuryobi
	End If
	
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")             '作成会社CD
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")               '文書種類CD
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")                 '文書内容CD
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")     '先方文書種類CD
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")       '先方文書内容CD
	SojyushinKubun = Request("SojyushinKubun")               '送受信区分
	PageType = Request("PageType")
	RouteType = Request("RouteType")
	SenpoFlg = Request("SenpoFlg")
	BinType = Request("BinType")
	
	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_kitaku_syukko_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_kitaku_syukko_view_print.asp?PageType=<% = PageType %>&SojyushinKubun=<% = SojyushinKubun %>&RouteType=<% = RouteType %>&SakuseiKaisyaCD=<% = SakuseiKaisyaCD %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>&SenpoBunsyoSyuruiCD=<% = SenpoBunsyoSyuruiCD %>&SenpoBunsyoNaiyoCD=<% = SenpoBunsyoNaiyoCD %>&KaisyaCD1=<% = KaisyaCD1 %>&BinType=<% =BinType %>&<% = TimeUniq() %>">
  <noframes>
  <body onkeydown="if(ExitFlg==2)ExitFlg=3;">

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

<%
'	If InStr(RouteType, "Mail") > 0 And GB_Gyosyu = "U" Then
'		Response.Redirect("/" & HomeAlias & "/user/bk/unso/syuko/fu_kitaku_syukko_view.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&RouteType=" & RouteType & "&PageType=" & PageType)
'	End If
%>

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

</html>
<%
End Sub
%>