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