<% ' ' %> <% 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 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( '/sj4web/user/bk/menu_s_viewonly.asp')", "社長室・総務部", "", "財務集計", "", PageType, "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/sj4web/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/sj4web/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/sj4web/user/bk/menu_s4.asp')", "財務諸表", "tblbtn( '/sj4web/user/bk/menu_s41.asp')", PageType, "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType, "")) %> <% = HtmlFooter %> <% End Sub %>