<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Kurikoshi Kurikoshi = Request("Kurikoshi") Dim Query Dim Content Dim InputHojyobo Dim RiyoDenpyoSu Dim KessanHoshiki Dim InputChobo Dim InputHojobo Dim KurikoshiEnshu InputChobo = 1 InputHojobo = 1 Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then InputHojyobo = Content.Fields("手動補助簿表示") RiyoDenpyoSu = Content.Fields("利用伝票数区分") KessanHoshiki = Content.Fields("整理記入精算表利用") KurikoshiEnshu = "" & Content.Fields("期末繰越先演習CD") If "" & Content.Fields("手動総勘定元帳表示") <> "1" And "" & Content.Fields("手動仕訳集計表表示") <> "1" And "" & Content.Fields("手動合計残高試算表表示") <> "1" And "" & Content.Fields("手動貸借対照表表示") <> "1" And "" & Content.Fields("手動損益計算書表示") <> "1" And "" & Content.Fields("手動8桁精算表表示") <> "1" _ And "" & Content.Fields("現金出納帳表示") <> "1" And "" & Content.Fields("当座預金出納帳表示") <> "1" And "" & Content.Fields("売上帳表示") <> "1" And "" & Content.Fields("仕入帳表示") <> "1" And "" & Content.Fields("売掛金元帳表示") <> "1" And "" & Content.Fields("買掛金元帳表示") <> "1" And "" & Content.Fields("受取手形記入帳表示") <> "1" And "" & Content.Fields("支払手形記入帳表示") <> "1" Then InputChobo = 0 End If If (RiyoDenpyoSu < 1 Or "" & Content.Fields("自動転記仕訳帳表示") <> "1") And "" & Content.Fields("自動転記仕訳集計表表示") <> "1" And "" & Content.Fields("自動転記合計残高試算表表示") <> "1" And "" & Content.Fields("自動転記総勘定元帳表示") <> "1" And "" & Content.Fields("自動転記貸借対照表表示") <> "1" And "" & Content.Fields("自動転記損益計算書表示") <> "1" And "" & Content.Fields("自動転記8桁精算表表示") <> "1" _ And "" & Content.Fields("自動転記現金出納帳表示") <> "1" And "" & Content.Fields("自動転記当座預金出納帳表示") <> "1" And "" & Content.Fields("自動転記売上帳表示") <> "1" And "" & Content.Fields("自動転記仕入帳表示") <> "1" And "" & Content.Fields("自動転記売掛金元帳表示") <> "1" And "" & Content.Fields("自動転記買掛金元帳表示") <> "1" And "" & Content.Fields("自動転記受取手形記入帳表示") <> "1" And "" & Content.Fields("自動転記支払手形記入帳表示") <> "1" And "" & Content.Fields("自動転記商品有高帳表示") <> "1" Then InputHojobo = 0 End If End If %> <% = HtmlHeader("") %> onLoad="alert('期末残高繰越処理を行い、繰越先の演習に移動しました。');"<% End If %>>

<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) Response.Write(HttpL2("メインメニュー" , "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("メインメニュー", "")) ' Response.Write(HttpL5("現金がマイナスになっている時点があります")) %>

【仕訳入力】

期首残高設定

<% If RiyoDenpyoSu < 1 Then %>

仕　　訳　　帳

<% Else %>

伝　票　仕　訳

<% End If %>

<% If KessanHoshiki = "1" Then %> <% ElseIf KessanHoshiki = "2" Then %>

<% Else %>

<% End If %>

決算整理仕訳

<% If KessanHoshiki = "1" Then %> <% ElseIf KessanHoshiki = "2" Then %>

<% Else %>

<% End If %>

決算振替仕訳

<% If InputChobo = 1 Or InputHojobo = 1 Then %>

【帳簿】

手入力帳簿

<% End If %>

【仕訳集計】

<% If InputHojobo = 1 Then %> <% End If %>

自動転記帳簿

財　務　諸　表

【マスター設定】

摘要マスター

会社マスター

勘定科目マスター

自社商品マスター

自社情報

<% If KurikoshiEnshu <> "" Then %>

期末残高繰越処理

<% End If %>

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