<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = "損益計画" Dim Shihonkin, ShihonkinRiekiRitsu, KazeiRitsu, Koteihi, GenkaiRiekiRitsu Shihonkin = 0 ShihonkinRiekiRitsu = 0 KazeiRitsu = 0 Koteihi = 0 GenkaiRiekiRitsu = 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("売上高総利益率") End If %> <% = 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( '/" & 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, "")) %>
<% = HtmlFooter %> <% End Sub %>