<!-- #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
%>