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