<!-- #include file="../../include.asp" --> <% '<!-- '################################################ ' 名称 :損益分岐点分析 ' 作成日:2002/12/16 ' 作成者:山崎 ' 修正日:2003/03/04 ' 修正者:重松 ' 目的 :損益分岐点分析を表示する。 ' 概要 : ' <<表示>> ' 損益分岐点分析の画面 '################################################ '--> ' ' %> <% main() Sub main() Dim HyojiJyoken, EnshuCD, GakuseiNo, KaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD HyojiJyoken = Request("HyojiJyoken") EnshuCD = Request("EnshuCD") GakuseiNo = Request("GakuseiNo") KaisyaCD = Request("KaisyaCD") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Dim Kaishibi Dim Syuryobi Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") Dim Joken Joken = Request("Joken") Dim EnshuChange EnshuChange = Request("EnshuChange") If EnshuChange = "1" Then '演習が変更された場合は集計期間リセット Kaishibi = "" Syuryobi = "" End If Dim Query Dim Content If EnshuCD <> "" Then '運用管理は消費税設定を持たないので選択演習の消費税を取得 Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Session(HomeAlias & "Shohizei") = Content.Fields("消費税") GB_Shohizei = Content.Fields("消費税") 'Exit Sub End If End If %> <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="fm_tyohyo_main.asp?HyojiJyoken=<% = HyojiJyoken %>&EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = KaisyaCD %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>&Joken=<% = Joken %>&Kaishibi=<% = Kaishibi %>&Syuryobi=<% = Syuryobi %>&<% = TimeUniq() %>" scrolling="no" noresize> <frame name="printout" id="fm_tyohyo_print.asp?HyojiJyoken=<% = HyojiJyoken %>&EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = KaisyaCD %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>&Joken=<% = Joken %>&Kaishibi=<% = Kaishibi %>&Syuryobi=<% = Syuryobi %>&<% = TimeUniq() %>"> <noframes> <body onkeydown="if(ExitFlg==2)ExitFlg=3;"> <p>このページにはフレームが使用されていますが、お使いのブラウザではサポートされていません。</p> </body> </noframes> </frameset> </html> <% End Sub %>