<% End If %> <% If 0=0 Or EnshuCD <> "" Then %> <% If 0=1 And GenkaKaikeiRiyo = "1" Then %> <% End If %> <% If PackageMode = 1 Then %> <% Else %> <% If ShohizeiMode = 1 Then %> <% End If %> <% If ExchangeRateRiyo = "1" Then %> <% End If %> <% If 0=1 And GenkaKaikeiRiyo = "1" Then %> <% End If %> <% If 0=1 And GenkaKaikeiRiyo = "1" Then %> <% End If %> <% End If %> <% If 0=1 And GenkaKaikeiRiyo = "1" Then %> <% End If %> 対象演習 <% If GB_Admin = 2 Then %> <% = EnshuMeisyo %> <% Else %> ＜＜ 対象演習を選択して下さい ＞＞ <% Dim Query Dim Content Dim ii, jj ii = 0 Query = "exec SPM演習一覧 '" & GB_SystemCD & "', 4" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If (PackageMode = 1 And "" & Content.Fields("パッケージ区分") = "CA") Or (PackageMode = 0 And "" & Content.Fields("パッケージ区分") <> "CA") Then '工業簿記演習は5以上で表示 If "" & Content.Fields("演習CD") <> "SYS00006" Or MajorVersion >= 5 Then Response.Write("" & Content.Fields("演習名称") & "" & vbCrLf) End If End If Content.MoveNext Loop %> <% End If %> <% End If %> <% If ExchangeRateRiyo = "1" Then %> <% End If %> <% Else %> 会　社 マスター 商　品 マスター <% If PackageMode = 1 Then %> 勘定科目 マスター <% If ShohizeiMode = 1 Then %> 消費税率 マスター 為替レート マスター 市　場 マスター <% End If %> 表記名称 マスター 材　料 マスター 勘定科目 マスター 銀　行 勘定科目 マスター 消費税率 マスター 為替レート マスター 製造原価 勘定科目 マスター 製造原価            報告書 集計マスター 損益計算書 集計マスター 貸借対照表 集計マスター 株主資本等     変動計算書 集計マスター キャッシュ      フロー計算書 集計マスター 製造原価             報告書 集計マスター