<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Cnt Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = "損益計画" Dim Shihonkin, ShihonkinRiekiRitsu, KazeiRitsu, Koteihi, GenkaiRiekiRitsu Dim UriagedakaRiekiRitsu Shihonkin = 0 ShihonkinRiekiRitsu = 0 KazeiRitsu = 0 Koteihi = 0 GenkaiRiekiRitsu = 0 UriagedakaRiekiRitsu = 0 Dim Query, Content Query = "exec SPR分析_損益計画取得" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Shihonkin = Content.Fields("資本金") ShihonkinRiekiRitsu = Content.Fields("資本金純利益率") KazeiRitsu = Content.Fields("課税率") Koteihi = Content.Fields("固定費") GenkaiRiekiRitsu = Content.Fields("売上高総利益率") UriagedakaRiekiRitsu = Content.Fields("売上高総利益率") End If '****************************************** Dim Shihonkin1, Jyunriekigaku,Jyunriekigaku1, ZeibikimaeRieki, ZeibikimaeRieki1 Dim MokuhyoUriageDaka, UriagedakaRiekiRitsu1, Koteihi1, SonekiBunkitenUriage,SonekiBunkitenUriage1 Dim MokuhyoUriageDaka1, SoriekiHi,Sorieki, UriageGenka,Koteihi2,ZeibikimaeRieki2,UriageGenkaHi Dim UriagedakaHi,KoteihiHi,ZeibikimaeRiekiHi UriagedakaHi=100 'KoteihiHi=0 Shihonkin1= ConvIntToMoney(ConvMoneyToInt(Shihonkin), false, false) Jyunriekigaku = ConvIntToMoney(ConvMoneyToInt(Shihonkin1) * ShihonkinRiekiRitsu, false, false) Jyunriekigaku1 = Jyunriekigaku if(KazeiRitsu <> "1") Then 'ZeibikimaeRieki = ConvIntToMoney(Math.floor(ConvMoneyToInt( Jyunriekigaku1 ) / ( 1 - KazeiRitsu )), false, false) ZeibikimaeRieki = ConvIntToMoney(Int(ConvMoneyToInt( Jyunriekigaku1 ) / ( 1 - KazeiRitsu )), false, false) ZeibikimaeRieki1 = ZeibikimaeRieki if( UriagedakaRiekiRitsu <> "0" and UriagedakaRiekiRitsu <> "") Then MokuhyoUriageDaka = ConvIntToMoney(Int((ConvMoneyToInt( Koteihi ) + ConvMoneyToInt( ZeibikimaeRieki1 )) / UriagedakaRiekiRitsu ), false, false) else MokuhyoUriageDaka = "0" End If UriagedakaRiekiRitsu1 = UriagedakaRiekiRitsu Koteihi1 = Koteihi if( UriagedakaRiekiRitsu <> "0" and UriagedakaRiekiRitsu <> "") Then 'SonekiBunkitenUriage = ConvIntToMoney(Math.floor(ConvMoneyToInt( Koteihi1 ) / UriagedakaRiekiRitsu ), false, false) SonekiBunkitenUriage = ConvIntToMoney(Int(ConvMoneyToInt( Koteihi1 ) / UriagedakaRiekiRitsu ), false, false) else SonekiBunkitenUriage = "0" End If MokuhyoUriageDaka1 = MokuhyoUriageDaka SoriekiHi = UriagedakaRiekiRitsu * 100 UriageGenkaHi = 100 - SoriekiHi if(ConvMoneyToInt( MokuhyoUriageDaka ) <> 0) Then KoteihiHi = ConvIntToMoney(Int(ConvMoneyToInt( Koteihi ) * 100 / ConvMoneyToInt( MokuhyoUriageDaka )), false, false) ZeibikimaeRiekiHi = SoriekiHi - KoteihiHi Sorieki = ConvIntToMoney(ConvMoneyToInt( Koteihi ) + ConvMoneyToInt( ZeibikimaeRieki ), false, false) UriageGenka = ConvIntToMoney(ConvMoneyToInt( MokuhyoUriageDaka ) - ConvMoneyToInt( Sorieki ), false, false) Koteihi2 = ConvIntToMoney(Koteihi, false, false) ZeibikimaeRieki2 = ZeibikimaeRieki End If End If '****************************************** %> <% = HtmlHeader("Chart") %>

<% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "社長室・総務部", "", "財務集計", "", PageType, "", "", "", "", "")) ElseIf PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "財務諸表", "tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac5.asp')", PageType, "", "", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "財務諸表", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s41.asp')", "損益計画", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("照会", "tblbtn( '/" & HomeAlias & "/user/bk/bunseki/fk_sonekikeikaku_view.asp')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType, "")) %>

<% If GB_IEmode <> "1" Then %> <% If Shihonkin > 0 Then %> <% End If %> <% End If %>

<% = Spacer(1,14) %>

資本金

＝

<% = Spacer(1,14) %>

目標純利益額

＝

	×		＝
資本金		資本金純利益率

目標税引前利益額

＝

	÷ ( 1 －		) ＝
目標純利益額		課税率

目標売上高

＝

(		＋		) ÷		＝
	固定費		目標税引前利益額		限界利益率

損益分岐点売上

＝

	÷		＝
固定費		限界利益率

<% = Spacer(1,14) %>

変動費率

＝

変動費

売上高

限界利益率

＝

1 －変動費率

損益分岐点

＝

固定費率

1 －変動費率

＝

固定費

限界利益率

項目			金額	構成比（％）
目標売上高
	変動費
	限界利益
		固定費
		経常利益

<% If GB_IEmode = "1" Then %>

<% Else %> 損益分岐点売上高　<% = SonekiBunkitenUriage %> 円 <% End If %>

　費用・収益 / 売上高

<% If GB_IEmode <> "1" Then %> <% Dim MaxValue Dim HendouhiRitsu Dim GaugeTani Dim GaugeCnt If Shihonkin > 0 Then MaxValue = ConvMoneyToInt(MokuhyoUriageDaka) If ConvMoneyToInt(SonekiBunkitenUriage) > ConvMoneyToInt(MokuhyoUriageDaka) Then MaxValue = ConvMoneyToInt(SonekiBunkitenUriage) End If MaxValue = MaxValue * 4 / 3 If MaxValue < 1000000 Then MaxValue = 1000000 End If If UriageGenka = "" Or MokuhyoUriageDaka = "" Or UriageGenka = "0" Or MokuhyoUriageDaka = "0" Then HendouhiRitsu = 0 Else HendouhiRitsu = ConvMoneyToInt(UriageGenka) / ConvMoneyToInt(MokuhyoUriageDaka) '売上高に対する変動費の割合 End If GaugeTani = 1000000 'x軸の目盛りごとの値（y軸は自動） If Fix(MaxValue / GaugeTani) > 20 Then GaugeTani = 2500000 ElseIf Fix(MaxValue / GaugeTani) > 10 Then GaugeTani = 2000000 End If GaugeCnt = Fix(MaxValue / GaugeTani) 'x軸の目盛りの数 End If %> <% Else %> <% End If %> <% = HtmlFooter %> <% End Sub %>