%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Cnt
Dim RouteType
RouteType = Request("RouteType")
Dim PageType
PageType = "損益分岐点分析"
Dim JissekiSonekiBunkitenUriage, JissekiUriagedakaRiekiRitsu
Dim JissekiMokuhyoUriageDaka, JissekiUriagedakaHi, JissekiUriageGenka, JissekiUriageGenkaHi, JissekiGenkaiRieki, JissekiGenkaiRiekiHi, JissekiKoteihiHi, JissekiZeibikimaeRieki, JissekiZeibikimaeRiekiHi, JissekiKoteihi
JissekiMokuhyoUriageDaka = 0
JissekiUriagedakaHi = 0
JissekiUriageGenka = 0
JissekiUriageGenkaHi = 0
JissekiGenkaiRieki = 0
JissekiGenkaiRiekiHi = 0
JissekiKoteihi = 0
JissekiKoteihiHi = 0
JissekiZeibikimaeRieki = 0
JissekiZeibikimaeRiekiHi = 0
Dim Query, Content
Query = "exec SPR分析_損益実績取得"
Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD
Query = Query & ",'" & KaisyaCD & "'" '会社CD
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Dim Meisyo
Meisyo = Content.Fields("名称")
If Meisyo = "固定費" Then
JissekiKoteihi = Content.Fields("金額")
ElseIf Meisyo = "変動費" Then
JissekiUriageGenka = UriageGenkaSyutoku(GB_KaikeiSyuryobi) + Content.Fields("金額")
ElseIf Meisyo = "売上高" Then
JissekiMokuhyoUriageDaka = Content.Fields("金額")
ElseIf Meisyo = "変動費" Then
End If
Content.MoveNext
Loop
JissekiGenkaiRieki = JissekiMokuhyoUriageDaka - JissekiUriageGenka
JissekiZeibikimaeRieki = JissekiGenkaiRieki - JissekiKoteihi
JissekiUriagedakaHi = 100
If JissekiMokuhyoUriageDaka <> 0 Then
JissekiUriageGenkaHi = Int(JissekiUriageGenka * 100 / JissekiMokuhyoUriageDaka)
JissekiGenkaiRiekiHi = Int(JissekiGenkaiRieki * 100 / JissekiMokuhyoUriageDaka)
JissekiKoteihiHi = Int(JissekiKoteihi * 100 / JissekiMokuhyoUriageDaka)
JissekiZeibikimaeRiekiHi = Int(JissekiZeibikimaeRieki * 100 / JissekiMokuhyoUriageDaka)
JissekiUriagedakaRiekiRitsu = 1 - (JissekiUriageGenka / JissekiMokuhyoUriageDaka)
End If
If JissekiUriagedakaRiekiRitsu <> 0 Then
JissekiSonekiBunkitenUriage = Int(JissekiKoteihi / JissekiUriagedakaRiekiRitsu)
End If
%>
<% = HtmlHeader("Chart") %>
<% = PrintScriptX %>
<%
Response.Write(PrintHeader(0, PageType))
%>
項目
金額
構成比(%)
売上高
<% = ConvIntToMoney(JissekiMokuhyoUriageDaka, false, false) %>
100
変動費
<% = ConvIntToMoney(JissekiUriageGenka, false, false) %>
<% = JissekiUriageGenkaHi %>
限界利益
<% = ConvIntToMoney(JissekiGenkaiRieki, false, false) %>
<% = JissekiGenkaiRiekiHi %>
固定費
<% = ConvIntToMoney(JissekiKoteihi, false, false) %>
<% = JissekiKoteihiHi %>
経常利益
<% = ConvIntToMoney(JissekiZeibikimaeRieki, false, false) %>
<% = JissekiZeibikimaeRiekiHi %>
<% If GB_IEmode = "1" Then %>
<% Else %>
損益分岐点売上高 <% = ConvIntToMoney(JissekiSonekiBunkitenUriage, false, false) %> 円
<% End If %>
<% If GB_IEmode <> "1" Then %>
費用・収益 / 売上高
Copyright (c) 2014-<% = Year(Now) %> Chart.js Contributors
<% End If %>
<%
Response.Write(PrintFooter())
%>
<% If GB_IEmode <> "1" Then %>
<%
Dim MaxValue
MaxValue = JissekiMokuhyoUriageDaka
If JissekiSonekiBunkitenUriage > JissekiMokuhyoUriageDaka Then
MaxValue = JissekiSonekiBunkitenUriage
End If
MaxValue = MaxValue * 4 / 3
If MaxValue < 1000000 Then
MaxValue = 1000000
End If
Dim HendouhiRitsu
HendouhiRitsu = JissekiUriageGenka / JissekiMokuhyoUriageDaka '売上高に対する変動費の割合
Dim GaugeTani
GaugeTani = 1000000 'x軸の目盛りごとの値(y軸は自動)
If Fix(MaxValue / GaugeTani) > 20 Then
GaugeTani = 2500000
ElseIf Fix(MaxValue / GaugeTani) > 10 Then
GaugeTani = 2000000
End If
Dim GaugeCnt
GaugeCnt = Fix(MaxValue / GaugeTani) 'x軸の目盛りの数
%>
<% Else %>
<% End If %>
<% = HtmlFooter %>
<%
End Sub
%>