対象演習名 |
<% If GB_Admin = 2 Then %>
<% = EnshuMeisyo %>
<% Else %>
<% End If %>
|
ソート基準 |
|
<% If TmpEnshuKubun = "P" Then %>
学生氏名 |
<% Else %>
会社コード |
<% End If %>
会社名称 |
総資産 |
収益合計 |
費用合計 |
純利益 |
利益率 |
伝票 |
<%
If TmpEnshuKubun = "P" Then
GB_CSVOutput = GB_CSVOutput & "学生氏名"
Else
GB_CSVOutput = GB_CSVOutput & "会社コード"
End If
GB_CSVOutput = GB_CSVOutput & ",会社名称"
GB_CSVOutput = GB_CSVOutput & ",総資産"
GB_CSVOutput = GB_CSVOutput & ",収益合計"
GB_CSVOutput = GB_CSVOutput & ",費用合計"
GB_CSVOutput = GB_CSVOutput & ",純利益"
GB_CSVOutput = GB_CSVOutput & ",利益率"
GB_CSVOutput = GB_CSVOutput & ",伝票"
GB_CSVOutput = GB_CSVOutput & "kaigyooygiakaigyooygiakaigyooygiakaigyooygiak"
%>
|
|
<%
Dim ii, jj, wcol
ii = 0
Dim rate1
Query = "exec SPM演習状況照会 '" & GB_SystemCD & "','" & EnshuCD & "','" & SortMode & "'"
Set Content = OpenQuery(Query)
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")))
KaisyaGakusei = "" & Content.Fields("氏名")
'同時同業では削除されたユーザーの会社は表示しない
If TmpEnshuKubun = "P" And KaisyaGakusei = "" Then
Else
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("" & KaisyaGakusei & " | " & vbCrLf)
Else
Response.Write("" & Content.Fields("会社CD") & " | " & vbCrLf)
End If
Response.Write("" & Content.Fields("会社名称") & " | " & vbCrLf)
Response.Write("" & SetMoney(Content.Fields("資産合計"), false, true) & " | " & vbCrLf)
Response.Write("" & SetMoney(Content.Fields("収益合計"), false, true) & " | " & vbCrLf)
Response.Write("" & SetMoney(Content.Fields("費用合計"), false, true) & " | " & vbCrLf)
Response.Write("" & SetMoney(Content.Fields("純利益"), false, true) & " | " & vbCrLf)
'Response.Write("" & SetMoney(Content.Fields("収益合計") - Content.Fields("費用合計"), false, true) & " | " & vbCrLf)
Response.Write("" & rate1 & " | " & vbCrLf)
Response.Write("" & Content.Fields("伝票枚数") & " | " & vbCrLf)
Response.Write(" ")
If TmpEnshuKubun = "P" Then
GB_CSVOutput = GB_CSVOutput & "" & KaisyaGakusei
Else
GB_CSVOutput = GB_CSVOutput & "" & Content.Fields("会社CD")
End If
GB_CSVOutput = GB_CSVOutput & "," & Content.Fields("会社名称")
GB_CSVOutput = GB_CSVOutput & "," & Content.Fields("資産合計")
GB_CSVOutput = GB_CSVOutput & "," & Content.Fields("収益合計")
GB_CSVOutput = GB_CSVOutput & "," & Content.Fields("費用合計")
GB_CSVOutput = GB_CSVOutput & "," & Content.Fields("純利益")
GB_CSVOutput = GB_CSVOutput & "," & rate1
GB_CSVOutput = GB_CSVOutput & "," & Content.Fields("伝票枚数")
GB_CSVOutput = GB_CSVOutput & "kaigyooygiakaigyooygiakaigyooygiakaigyooygiak"
End If
End If
Content.MoveNext
Loop
%>
|
|