<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Dim EnshuName Dim Query Dim Content Dim TmpEnshuKubun TmpEnshuKubun = ConvEnshuKubun(EnshuCD) Dim SortMode SortMode = Request("SortMode") If SortMode = "" Then SortMode = "2" End If %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% Dim RowBreakNum, RowCount Dim Page RowCount = 0 RowBreakNum = 40 'ページングのためここで取得 Query = "exec SPM演習状況照会 '" & GB_SystemCD & "','" & EnshuCD & "','" & SortMode & "'" Set Content = OpenQuery(Query) For Page = 1 To MaxPage If Page <> 1 Then Response.Write(PageBreakBefore) End If %>

<% Response.Write(PrintHeader(0, "演習状況一覧")) %> <% If TmpEnshuKubun = "P" Then %> <% Else %> <% End If %> <% Dim ii, jj, wcol ii = 0 Dim rate1 Do While Not(Content.BOF Or Content.EOF) '同時同業マスター会社を除く If HyojiFlg = "1" And TmpEnshuKubun = "P" And ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("会社CD")) = "" Then '同時同業生徒会社のうち自社設定会社以外を除く ElseIf HyojiFlg <> "1" And TmpEnshuKubun = "P" And "" & ConvKaisyaJisyaFlg(EnshuCD, Content.Fields("会社CD")) <> "1" Then '同時同業→模擬実践で生じた同時同業生徒会社はゴミなので除く ElseIf TmpEnshuKubun = "G" And "" & ConvKaisyaJisyaFlg(EnshuCD, Content.Fields("会社CD")) <> "1" And ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("会社CD")) <> "" Then Else Dim KaisyaGakusei KaisyaGakusei = "" & ConvGakuseiShimei(ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("会社CD"))) '同時同業では削除されたユーザーの会社は表示しない If TmpEnshuKubun = "P" And KaisyaGakusei = "" Then Else RowCount = RowCount + 1 If Content.Fields("収益合計") = 0 Then rate1 = "-----" Else rate1 = FormatNumber(((Content.Fields("収益合計") - Content.Fields("費用合計")) * 100) / Content.Fields("収益合計"),1,-1,0,-1) End If Response.Write("" & vbCrLf) If TmpEnshuKubun = "P" Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") End If End If Content.MoveNext If RowCount > 0 And (RowCount Mod RowBreakNum = 0) Then '先頭行が表示除外されると行カウントが0になるのでその場合は改ページしない Exit Do End If Loop %> 学生氏名 会社コード 会社名称 総資産 収益合計 費用合計 純利益 利益率 伝票 " & KaisyaGakusei & " " & Content.Fields("会社CD") & " " & Content.Fields("会社名称") & " " & SetMoney(Content.Fields("資産合計"), false, true) & " " & SetMoney(Content.Fields("収益合計"), false, true) & " " & SetMoney(Content.Fields("費用合計"), false, true) & " " & SetMoney(Content.Fields("収益合計") - Content.Fields("費用合計"), false, true) & " " & rate1 & " " & Content.Fields("伝票枚数") & " <% Response.Write(PrintFooter()) %>

<% If (Content.BOF Or Content.EOF) Then Exit For End If Next %> <% = HtmlFooter %> <% End Sub %>