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