<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = "安全性の分析" Dim Sonota, SonotaRyudoShisan, KoteiShisan, Shiire , JikoShihon, TanaoroshiShisan, TozaShisan, Uriage, HanbaiKanrihi, RyudoFusai Dim EigyogaiHiyo, EigyogaiSyueki Dim KoteiFusai Sonota = 0 SonotaRyudoShisan = 0 KoteiShisan = 0 Shiire = 0 JikoShihon = 0 TanaoroshiShisan = 0 TozaShisan = 0 Uriage = 0 HanbaiKanrihi = 0 RyudoFusai = 0 EigyogaiHiyo = 0 EigyogaiSyueki = 0 KoteiFusai = 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 Sonota = Content.Fields("金額") ElseIf Meisyo = "その他流動資産" Then SonotaRyudoShisan = Content.Fields("金額") ElseIf Meisyo = "固定資産" Then KoteiShisan = Content.Fields("金額") ElseIf Meisyo = "仕入" Then Shiire = Content.Fields("金額") ElseIf Meisyo = "自己資本" Then JikoShihon = Content.Fields("金額") * -1 ElseIf Meisyo = "棚卸資産" Then TanaoroshiShisan = Content.Fields("金額") ElseIf Meisyo = "当座資産" Then TozaShisan = Content.Fields("金額") ElseIf Meisyo = "売上" Then Uriage = Content.Fields("金額") * -1 ElseIf Meisyo = "販売管理費" Then HanbaiKanrihi = Content.Fields("金額") ElseIf Meisyo = "流動負債" Then RyudoFusai = Content.Fields("金額") * -1 ElseIf Meisyo = "営業外費用" Then EigyogaiHiyo = Content.Fields("金額") ElseIf Meisyo = "営業外収益" Then EigyogaiSyueki = Content.Fields("金額") * -1 End If Content.MoveNext Loop ''''''''棚卸金額 TanaoroshiShisan = KimatsuTanaoroshiKingaku(GB_KaikeiSyuryobi) ''''''''変動費 Dim UriageGenka UriageGenka = UriageGenkaSyutoku(GB_KaikeiSyuryobi) %> <% = AppTitle %> <% If PrintMarginControl > 0 Then %> <% = ScriptXObject() %> <% Else %> <% End If %> <% Response.Write(PrintHeader(0, PageType)) %>
貸借対照表
流動資産 <% = ConvIntToMoney(TozaShisan + TanaoroshiShisan + SonotaRyudoShisan, false, false) %> 流動負債 <% = ConvIntToMoney(RyudoFusai, false, false) %>
 当座資産 <% = ConvIntToMoney(TozaShisan, false, false) %> 固定負債 <% = ConvIntToMoney(KoteiFusai, false, false) %>
 棚卸資産 <% = ConvIntToMoney(TanaoroshiShisan, false, false) %> 負債計 <% = ConvIntToMoney(RyudoFusai + KoteiFusai, false, false) %> 
 その他 <% = ConvIntToMoney(SonotaRyudoShisan, false, false) %> 資本 <% = ConvIntToMoney(JikoShihon, false, false) %>
固定資産 <% = ConvIntToMoney(KoteiShisan, false, false) %> 未処分利益 <% = ConvIntToMoney(TozaShisan + TanaoroshiShisan + SonotaRyudoShisan + KoteiShisan - JikoShihon - RyudoFusai - KoteiFusai , false, false) %>
資産計 <% Dim SoShihon SoShihon = TozaShisan + TanaoroshiShisan + SonotaRyudoShisan + KoteiShisan Response.Write(ConvIntToMoney(SoShihon , false, false)) %> 負債・資本計 <% = ConvIntToMoney(SoShihon , false, false) %>
損益計算書
売上高 <% = ConvIntToMoney(Uriage, false, false) %>
売上原価 <% = ConvIntToMoney(UriageGenka, false, false) %>
 売上総利益 <% = ConvIntToMoney(Uriage - UriageGenka, false, false) %>
販売・管理費 <% = ConvIntToMoney(HanbaiKanrihi, false, false) %>
 営業利益 <% = ConvIntToMoney(Uriage - UriageGenka - HanbaiKanrihi, false, false) %>
営業外収益 <% = ConvIntToMoney(EigyogaiSyueki, false, false) %>
営業外費用 <% = ConvIntToMoney(EigyogaiHiyo, false, false) %>
経常利益 <% Dim KeijyoRieki KeijyoRieki = Uriage - UriageGenka - HanbaiKanrihi + EigyogaiSyueki - EigyogaiHiyo Response.Write(ConvIntToMoney(KeijyoRieki, false, false)) %>
項目 計算式 目標値 評価
流動比率(%)
流動資産  * 100
流動負債
=
<% = ConvIntToMoney(TozaShisan + TanaoroshiShisan + SonotaRyudoShisan, false, false) %>  * 100
<% = ConvIntToMoney(RyudoFusai, false, false) %>
= <% If RyudoFusai <> 0 Then Response.Write(Int((TozaShisan + TanaoroshiShisan + SonotaRyudoShisan) * 100 / RyudoFusai)) %>
200 % <% If RyudoFusai <> 0 Then If Int((TozaShisan + TanaoroshiShisan + SonotaRyudoShisan) * 100 / RyudoFusai) >= 200 Then Response.Write("OK") Else Response.Write("NG") End If End If %>
当座比率(%)
当座資産  * 100
流動負債
=
<% = ConvIntToMoney(TozaShisan, false, false) %>  * 100
<% = ConvIntToMoney(RyudoFusai, false, false) %>
= <% If RyudoFusai <> 0 Then Response.Write(Int(TozaShisan * 100 / RyudoFusai)) End If %>
100 % <% If RyudoFusai <> 0 Then If Int(TozaShisan * 100 / RyudoFusai) >= 100 Then Response.Write("OK") Else Response.Write("NG") End If End If %>
資本固定比率(%)
自己資本  * 100
固定資産
=
<% = ConvIntToMoney(JikoShihon, false, false) %>  * 100
<% = ConvIntToMoney(KoteiShisan, false, false) %>
= <% If KoteiShisan <> 0 Then Response.Write(Int(JikoShihon * 100 / KoteiShisan)) %>
100 % <% If KoteiShisan <> 0 Then If Int(JikoShihon * 100 / KoteiShisan) >= 100 Then Response.Write("OK") Else Response.Write("NG") End If End If %>
自己資本構成比率(%)
自己資本  * 100
総資本
=
<% = ConvIntToMoney(JikoShihon, false, false) %>  * 100
<% = ConvIntToMoney(SoShihon , false, false) %>
= <% If SoShihon <> 0 Then Response.Write(Int(JikoShihon* 100 / SoShihon)) End If %>
44.7 % <% If SoShihon <> 0 Then If Int(JikoShihon * 100 / SoShihon ) >= 44.7 Then Response.Write("OK") Else Response.Write("NG") End If End If %>
資本負債比率(%)
自己資本  * 100
負債合計
=
<% = ConvIntToMoney(JikoShihon, false, false) %>  * 100
<% = ConvIntToMoney(RyudoFusai + KoteiFusai, false, false) %>
= <% If (RyudoFusai + KoteiFusai) <> 0 Then Response.Write(Int(JikoShihon * 100 / (RyudoFusai + KoteiFusai))) End If %>
26.5 % <% If (RyudoFusai + KoteiFusai) <> 0 Then If Int(JikoShihon * 100 / (RyudoFusai + KoteiFusai)) / 100 <= 26.5 Then Response.Write("OK") Else Response.Write("NG") End If End If %>
自己資本回転率(回)
売上高
自己資本
=
<% = ConvIntToMoney(Uriage, false, false) %>
<% = ConvIntToMoney(JikoShihon, false, false) %>
= <% If JikoShihon <> 0 Then Response.Write(Int(Uriage * 100 / JikoShihon) / 100) End If %>
 1.6 回 <% If JikoShihon <> 0 Then If Int(Uriage * 100 / JikoShihon) / 100 >= 1.6 Then Response.Write("OK") Else Response.Write("NG") End If End If %>
目標値は中小企業の業種別指標より小売業平均を採用
<% Response.Write(PrintFooter()) %> <% = HtmlFooter %> <% End Sub %>