<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = "損益分岐点分析" Dim JissekiSonekiBunkitenUriage, JissekiUriagedakaRiekiRitsu Dim JissekiMokuhyoUriageDaka, JissekiUriagedakaHi, JissekiUriageGenka, JissekiUriageGenkaHi, JissekiGenkaiRieki, JissekiGenkaiRiekiHi, JissekiKoteihiHi, JissekiZeibikimaeRieki, JissekiZeibikimaeRiekiHi, JissekiKoteihi JissekiMokuhyoUriageDaka = 0 JissekiUriagedakaHi = 0 JissekiUriageGenka = 0 JissekiUriageGenkaHi = 0 JissekiGenkaiRieki = 0 JissekiGenkaiRiekiHi = 0 JissekiKoteihi = 0 JissekiKoteihiHi = 0 JissekiZeibikimaeRieki = 0 JissekiZeibikimaeRiekiHi = 0 Dim TmpHendohi 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 JissekiKoteihi = Content.Fields("金額") ElseIf Meisyo = "変動費" Then JissekiUriageGenka = UriageGenkaSyutoku(GB_KaikeiSyuryobi) + Content.Fields("金額") TmpHendohi = Content.Fields("金額") ElseIf Meisyo = "売上高" Then JissekiMokuhyoUriageDaka = Content.Fields("金額") ElseIf Meisyo = "変動費" Then End If Content.MoveNext Loop JissekiGenkaiRieki = JissekiMokuhyoUriageDaka - JissekiUriageGenka JissekiZeibikimaeRieki = JissekiGenkaiRieki - JissekiKoteihi JissekiUriagedakaHi = 100 If JissekiMokuhyoUriageDaka <> 0 Then JissekiUriageGenkaHi = Int(JissekiUriageGenka * 100 / JissekiMokuhyoUriageDaka) JissekiGenkaiRiekiHi = Int(JissekiGenkaiRieki * 100 / JissekiMokuhyoUriageDaka) JissekiKoteihiHi = Int(JissekiKoteihi * 100 / JissekiMokuhyoUriageDaka) JissekiZeibikimaeRiekiHi = Int(JissekiZeibikimaeRieki * 100 / JissekiMokuhyoUriageDaka) JissekiUriagedakaRiekiRitsu = 1 - (JissekiUriageGenka / JissekiMokuhyoUriageDaka) End If If JissekiUriagedakaRiekiRitsu <> 0 Then JissekiSonekiBunkitenUriage = Int(JissekiKoteihi / JissekiUriagedakaRiekiRitsu) 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')", PageType, "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("印刷", "PrintOpenWindow=1;PrintoutReal();", "", "", "", "", "", "", "", "")) '裏だとChartが印刷されないので別ウィンドウ固定 Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType, "")) %>
<% = HtmlFooter %> <% End Sub %>