<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query, Content Dim InputShiwaketyo, InputShiwakeShukeihyo, InputGokeiZandakaShisanhyo, InputSokanjyoMototyo Dim InputTaisyakuTaisyohyo, InputSonekiKeisansyo, InputHachiketaSeisanhyo Dim AutoShiwaketyo, AutoShiwakeShukeihyo, AutoGokeiZandakaShisanhyo, AutoSokanjyoMototyo Dim AutoTaisyakuTaisyohyo, AutoSonekiKeisansyo, AutoHachiketaSeisanhyo Dim RiyoDenpyoSu Dim AutoStockholderEquity Dim ZaimuTaishaku Dim ZaimuSoneki Dim ZaimuCashflow Dim ZaimuStockholder Dim BunsekiSonekijisseki Dim BunsekiAnzensei Dim BunsekiShuekisei Dim BunsekiSonekibunki Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then RiyoDenpyoSu = Content.Fields("利用伝票数区分") InputShiwaketyo = Content.Fields("手動仕訳帳表示") InputShiwakeShukeihyo = Content.Fields("手動仕訳集計表表示") InputGokeiZandakaShisanhyo = Content.Fields("手動合計残高試算表表示") InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示") InputTaisyakuTaisyohyo = Content.Fields("手動貸借対照表表示") InputSonekiKeisansyo = Content.Fields("手動損益計算書表示") InputHachiketaSeisanhyo = Content.Fields("手動8桁精算表表示") AutoShiwaketyo = Content.Fields("自動転記仕訳帳表示") AutoShiwakeShukeihyo = Content.Fields("自動転記仕訳集計表表示") AutoGokeiZandakaShisanhyo = Content.Fields("自動転記合計残高試算表表示") AutoSokanjyoMototyo = Content.Fields("自動転記総勘定元帳表示") AutoTaisyakuTaisyohyo = Content.Fields("自動転記貸借対照表表示") AutoSonekiKeisansyo = Content.Fields("自動転記損益計算書表示") AutoHachiketaSeisanhyo = Content.Fields("自動転記8桁精算表表示") AutoStockholderEquity = Content.Fields("自動転記株主資本等変動計算書表示") ZaimuTaishaku = "" & Content.Fields("財務諸表貸借対照表表示") ZaimuSoneki = "" & Content.Fields("財務諸表損益計算書表示") ZaimuCashflow = "" & Content.Fields("財務諸表キャッシュフロー計算書表示") ZaimuStockholder = "" & Content.Fields("財務諸表株主資本等変動計算書表示") BunsekiSonekijisseki = "" & Content.Fields("財務分析損益実績表示") BunsekiAnzensei = "" & Content.Fields("財務分析収益性表示") BunsekiShuekisei = "" & Content.Fields("財務分析安全性表示") BunsekiSonekibunki = "" & Content.Fields("財務分析損益分岐点表示") End If '演習会社ログイン時は全てON 演習管理者は管理演習でのみ全てON ※151217の改修で照会集計側が無効になってしまっていたのでこの機能は廃止（200612） If 0=1 And Session(HomeAlias & "AutoLoginButton") = "1" And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then ZaimuTaishaku = "1" ZaimuSoneki = "1" ZaimuCashflow = "1" ZaimuStockholder = "1" BunsekiSonekijisseki = "1" BunsekiAnzensei = "1" BunsekiShuekisei = "1" BunsekiSonekibunki = "1" End If %> <% = HtmlHeader("") %> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "財務諸表", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("財務諸表", "")) %>

　

【財務諸表】

　

　

<% If ShachoZaimu = 1 Then %> <% ElseIf GB_Gyosyu <> "B" Then %> <% Else '銀行 %> <% End If %> <% If GB_Gyosyu = "B" Then '銀行 %> <% End If %> <% If GB_Gyosyu = "B" Then '銀行 %> <% End If %>

<% If AutoShiwaketyo = "1" Then %>

仕訳帳

<% End If %>

<% If AutoShiwakeShukeihyo = "1" Then %>

仕訳集計表

<% End If %>

<% If AutoGokeiZandakaShisanhyo = "1" Then %>

合計残高
試算表

<% End If %>

<% If AutoSokanjyoMototyo = "1" Then %>

総勘定元帳

<% End If %>

<% If AutoHachiketaSeisanhyo = "1" Then %>

8桁精算表

<% End If %>

<% If AutoTaisyakuTaisyohyo = "1" Then %>

貸借対照表

<% End If %>

<% If AutoSonekiKeisansyo = "1" Then %>

損益計算書

<% End If %>

<% If AutoTaisyakuTaisyohyo = "1" Then %>

貸借対照表
(報告書形式)

<% End If %>

<% If AutoSonekiKeisansyo = "1" Then %>

損益計算書
(報告書形式)

<% End If %>

<% If ZaimuTaishaku = "1" Then %>

貸借対照表

<% End If %>

<% If ZaimuSoneki = "1" Then %>

損益計算書

<% End If %>

<% If ZaimuStockholder = "1" Then %>

株主資本等
変動計算書

<% End If %>

<% If ZaimuCashflow = "1" Then %>

キャッシュ
フロー計算書

<% End If %>

　

　

　

　

　

【財務分析】

　

　

損益計画

<% If BunsekiSonekijisseki = "1" Then %>

損益実績

<% End If %>

<% If BunsekiShuekisei = "1" Then %>

収益性の
分析

<% End If %>

<% If BunsekiAnzensei = "1" Then %>

安全性の
分析

<% End If %>

<% If BunsekiSonekibunki = "1" Then %>

損益分岐点
分析

<% End If %>

　

　

　

　

<% = HtmlFooter %> <% End Sub %>