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