<% ' %> <% 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 %> <% = AppTitle %> <% = 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 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 %>