% ' ' %> <% 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 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 %>