<% ' ' %> <% 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)) %>
<% If GB_IEmode <> "1" Then %> <% End If %>
項目 金額 構成比(%)
売上高 <% = 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 %>
　費用・収益 / 売上高 Copyright (c) 2014-<% = Year(Now) %> Chart.js Contributors
<% 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 %>