<% If GB_Admin = 2 Then %>
<% End If %>
<% If PackageMode = 1 Then %>
<% Else %>
市場で絞り込む
全て表示
<%
Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Response.Write("" & Content.Fields("市場名称") & " " & vbCrLf)
Content.MoveNext
Loop
%>
<% End If %>
会社CD
<% Else %> WIDTH="246"<% End If %> HEIGHT="20" style="cursor:pointer;" onClick="tblbtn('fm_kaisya_ichiran.asp?ShijoCD=<% = ShijoCD %>&HyojiFlg=<% = HyojiFlg %>&SortMode=1');">会 社 名 称
<% If HyojiFlg <> "2" Then %>
会社略名称
<% ElseIf HyojiFlg = "2" Then %>
ログインID
<% End If %>
<% If PackageMode = "1" Then %>
<% Else %>
市場
業種
<% End If %>
<% If GB_Admin >= 1 Then %>
<% If PackageMode = "1" Then %>
<% Else %>
勘定
<% If Genkariyou <> "1" Then %>
繰越
<% Else %>
繰越
製勘
製繰
<% End If %>
<% End If %>
<% End If %>
<% If PackageMode = "1" Then %>
<% Else %>
住 所
TEL
FAX
<% End If %>
<%
Dim ii, jj
ii = 0
Dim iiDef '← スクロールポジション維持のための追加(080904小野)
iiDef = -1
If GB_Admin >= 1 Then
Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', " & HyojiFlg
Else
Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', 2"
End If
'ソート順可変のため生クエリ化(170428小野)
Query = ""
Query = Query & " "
Query = Query & " SELECT TDA会社M.*, 業種.区分名称 AS 業種名称, 市場.市場名称 "
Query = Query & " FROM TDA会社M "
Query = Query & " LEFT OUTER JOIN (SELECT * FROM TC9区分M WHERE システムCD = '" & GB_SystemCD & "' AND データ識別 = '業種CD') 業種 ON TDA会社M.システムCD = 業種.システムCD AND TDA会社M.業種CD = 業種.区分CD "
Query = Query & " LEFT OUTER JOIN (SELECT * FROM TDA市場M WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "') 市場 ON TDA会社M.システムCD = 市場.システムCD AND TDA会社M.演習CD = 市場.演習CD AND TDA会社M.市場CD = 市場.市場CD "
Query = Query & " WHERE TDA会社M.システムCD = '" & GB_SystemCD & "' "
Query = Query & " AND TDA会社M.演習CD = '" & EnshuCD & "' "
If GB_Admin >= 1 And HyojiFlg = "0" Then
Query = Query & " AND TDA会社M.学生番号 = '' "
End If
Query = Query & " ORDER BY CASE WHEN TDA会社M.学生番号 = '' OR TDA会社M.学生番号 IS NULL THEN 1 ELSE 0 END, TDA会社M.学生番号 "
'SortMode = "3"
If SortMode = "0" Or SortMode = "" Then
Query = Query & " , TDA会社M.会社CD, TDA会社M.会社名称, TDA会社M.会社略名称, TDA会社M.市場CD, TDA会社M.業種CD "
ElseIf SortMode = "1" Then
Query = Query & " , TDA会社M.会社名称, TDA会社M.会社CD, TDA会社M.会社略名称, TDA会社M.市場CD, TDA会社M.業種CD "
ElseIf SortMode = "2" Then
Query = Query & " , TDA会社M.会社略名称, TDA会社M.会社CD, TDA会社M.会社名称, TDA会社M.市場CD, TDA会社M.業種CD "
ElseIf SortMode = "3" Then
Query = Query & " , TDA会社M.市場CD, TDA会社M.会社CD, TDA会社M.会社名称, TDA会社M.会社略名称, TDA会社M.業種CD "
ElseIf SortMode = "4" Then
Query = Query & " , TDA会社M.業種CD, TDA会社M.会社CD, TDA会社M.会社名称, TDA会社M.会社略名称, TDA会社M.市場CD "
End If
Dim GakseiNo, KaisyaCD, KaisyaMeisyo, KaisyaRyakuMeisyo, ShijyoCD, GyosyuCD, ShijyoMeisyo, KitakuGaisyaCD, HyojiKaisyaCD
Dim Jusho, TEL, FAX
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If ShijoCD = "" Or "" & Content.Fields("市場CD") = ShijoCD Then
If TmpKaisyaCD = Content.Fields("会社CD") Then '← スクロールポジション維持のための追加(080904小野)
iiDef = ii
End If
GakseiNo = Content.Fields("学生番号")
KaisyaCD = Content.Fields("会社CD")
If GB_EnshuKubun = "P" And "" & Content.Fields("自社フラグ") <> "1" And "" & Content.Fields("学生番号") <> "" Then
HyojiKaisyaCD = Replace(KaisyaCD, "-" & GakseiNo, "")
Else
HyojiKaisyaCD = KaisyaCD
End If
KaisyaMeisyo = Content.Fields("会社名称")
KaisyaRyakuMeisyo = Content.Fields("会社略名称")
ShijyoCD =Content.Fields("市場CD")
GyosyuCD = Content.Fields("業種CD")
ShijyoMeisyo = Content.Fields("市場名称")
If GakseiNo = "" Then
GakseiNo = "(マスター)"
End If
If KaisyaCD = "" Then
KaisyaMeisyo = "(自社のマスター)"
End If
KitakuGaisyaCD = "" & Content.Fields("寄託会社CD")
Jusho = "〒" & Content.Fields("郵便番号") & " " & Content.Fields("住所1") & " " & Content.Fields("住所2")
TEL = "" & Content.Fields("TEL")
FAX = "" & Content.Fields("FAX")
If GB_Admin >= 1 Then
'期首残高一括コピー用追加(080326小野)銀行口座・寄託倉庫が必要か否かのフラグ
ReDim PreServe HitsuyoKaisya(ii + 1)
ReDim PreServe GinkoHitsuyo(ii + 1)
ReDim PreServe KitakuHitsuyo(ii + 1)
ReDim PreServe CopyMotoGyosyu(ii + 1)
HitsuyoKaisya(ii + 1) = KaisyaCD
GinkoHitsuyo(ii + 1) = 0
KitakuHitsuyo(ii + 1) = 0
CopyMotoGyosyu(ii + 1) = GyosyuCD
''''''''繰越金額を調べるここから
Dim Kingaku
Dim KurikoshiZandakaKingaku
Dim SeizobuKurikoshiZandakaKingaku
Dim GenkinKingaku, SyohinKingaku, GinkoKingaku
Dim SyohinSu
Dim ContentKoza
Dim ContentGenkin
Dim ContentKoza2
Dim ContentKanjyo
Dim ContentGinko
Dim NyusyukoBango, QueryNyusyuko, ContentNyusyuko
Dim QueryKoza
GenkinKingaku = 0
SyohinKingaku = 0
GinkoKingaku = 0
Query = "exec SPK現金入出金取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 0, 0"
Set ContentGenkin = OpenQuery(Query)
If Not(ContentGenkin.BOF Or ContentGenkin.EOF) Then
GenkinKingaku = ContentGenkin.Fields("金額")
End If
QueryNyusyuko = "exec SPD入出庫一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'SS'"
Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
If ContentNyusyuko.Fields("処理時期区分") = 0 Then
NyusyukoBango = ContentNyusyuko.Fields("文書内容CD")
End If
ContentNyusyuko.MoveNext
Loop
QueryNyusyuko = "exec SPD入出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'SS', '" & NyusyukoBango & "'"
Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
SyohinKingaku = SyohinKingaku + ContentNyusyuko.Fields("数量") * ContentNyusyuko.Fields("単価")
KitakuHitsuyo(ii + 1) = 1 '寄託倉庫必要フラグ
ContentNyusyuko.MoveNext
Loop
Dim KozaSonzai
KozaSonzai = 0
QueryKoza = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', ''"
Set ContentKoza = OpenQuery(QueryKoza)
Do While Not(ContentKoza.BOF Or ContentKoza.EOF)
KozaSonzai = 1
Dim MyGinkoCD, MyKozaKubun
MyGinkoCD = ""
MyKozaKubun = ""
If Not(ContentKoza.BOF Or ContentKoza.EOF) Then
MyGinkoCD = ContentKoza.Fields("銀行CD")
MyKozaKubun = ContentKoza.Fields("口座区分")
End If
Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MyGinkoCD & "', '" & MyKozaKubun & "', ''"
Set ContentKoza2 = OpenQuery(Query)
Do While Not(ContentKoza2.BOF Or ContentKoza2.EOF)
If ContentKoza2.Fields("処理時期区分") = 0 Then
Kingaku = ContentKoza2.Fields("金額")
GinkoHitsuyo(ii + 1) = 1 '銀行口座必要フラグ
End If
ContentKoza2.MoveNext
Loop
GinkoKingaku = GinkoKingaku + Kingaku
ContentKoza.MoveNext
Loop
KurikoshiZandakaKingaku = GenkinKingaku + SyohinKingaku + GinkoKingaku
'製造部
If Genkariyou = "1" Then
SyohinKingaku = 0
QueryNyusyuko = "exec SPD入出庫一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'ZS'"
Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
If ContentNyusyuko.Fields("処理時期区分") = 0 Then
NyusyukoBango = ContentNyusyuko.Fields("文書内容CD")
End If
ContentNyusyuko.MoveNext
Loop
QueryNyusyuko = "exec SPD入出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'ZS', '" & NyusyukoBango & "'"
Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
SyohinKingaku = SyohinKingaku + ContentNyusyuko.Fields("数量") * ContentNyusyuko.Fields("単価")
ContentNyusyuko.MoveNext
Loop
SeizobuKurikoshiZandakaKingaku = SyohinKingaku
End If
''''''''繰越金額を調べるここまで
''''''''勘定残高行数を調べるここから
Dim KanjyoZandakaShiwakeGyosu, KanjyoZandaka
Dim SeizobuKanjyoZandakaShiwakeGyosu, SeizobuKanjyoZandaka
KanjyoZandakaShiwakeGyosu = 0
SeizobuKanjyoZandakaShiwakeGyosu = 0
Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '0000000', '" & ConvKaisyaGyosyuKubun(KaisyaCD) & "'"
Set ContentKanjyo = OpenQuery(Query)
Do While Not(ContentKanjyo.BOF Or ContentKanjyo.EOF)
KanjyoZandakaShiwakeGyosu = KanjyoZandakaShiwakeGyosu + 1
KanjyoZandaka = KanjyoZandaka + ContentKanjyo.Fields("借方金額")
ContentKanjyo.MoveNext
Loop
'製造部
If Genkariyou = "1" Then
Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '0000000', 'G'"
Set ContentKanjyo = OpenQuery(Query)
Do While Not(ContentKanjyo.BOF Or ContentKanjyo.EOF)
SeizobuKanjyoZandakaShiwakeGyosu = SeizobuKanjyoZandakaShiwakeGyosu + 1
SeizobuKanjyoZandaka = SeizobuKanjyoZandaka + ContentKanjyo.Fields("借方金額")
ContentKanjyo.MoveNext
Loop
End If
''''''''勘定残高行数を調べるここまで
'同一市場に銀行が存在するか調べる
Query = "exec SPM会社市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & Content.Fields("学生番号") & "','" & ShijyoCD & "'"
Set ContentGinko = OpenQuery(Query)
Do While Not(ContentGinko.BOF Or ContentGinko.EOF)
If ContentGinko.Fields("業種CD") = "B" Then
Exit Do
End If
ContentGinko.MoveNext
Loop
If (ContentGinko.BOF Or ContentGinko.EOF) Then
If GyosyuCD = "S" Then
GinkoNothingS = GinkoNothingS & "「" & ShijyoMeisyo & "」"
ElseIf GyosyuCD = "K" Then
GinkoNothingK = GinkoNothingK & "「" & ShijyoMeisyo & "」"
ElseIf GyosyuCD = "U" Then
GinkoNothingU = GinkoNothingU & "「" & ShijyoMeisyo & "」"
End If
End If
'寄託会社が存在するか調べる
If GyosyuCD = "S" And Kitakuriyou = "1" And KitakuGaisyaCD = "" Then
KitakuNothing = KitakuNothing & "「" & KaisyaMeisyo & "」"
End If
End If
'同時同業→模擬実践で生じた同時同業生徒会社はゴミなので除く
If GB_EnshuKubun = "G" And "" & ConvKaisyaJisyaFlg(EnshuCD, Content.Fields("会社CD")) <> "1" And ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("会社CD")) <> "" Then
ElseIf GB_Admin >= 1 Or GB_EnshuKubun = "G" OR (GB_Admin = 0 And GB_GakuseiNo = Content.Fields("学生番号") ) Then
Response.Write("" & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write("" & HardWrap(HyojiKaisyaCD) & " " & vbCrLf)
Response.Write(" " & KaisyaMeisyo & " " & vbCrLf)
If HyojiFlg <> "2" Then
Response.Write(" " & KaisyaRyakuMeisyo & " " & vbCrLf)
ElseIf HyojiFlg = "2" Then
Response.Write("" & HardWrap(GakseiNo) & " " & vbCrLf)
End If
If PackageMode = 1 Then
Else
Response.Write(" " & ShijyoMeisyo & " " & vbCrLf)
If GyosyuCD = "U" Then
Response.Write("" & ConvKubunMeisyo("業種CD", GyosyuCD) & " " & vbCrLf)
Else
Response.Write(" " & ConvKubunMeisyo("業種CD", GyosyuCD) & " " & vbCrLf)
End If
End If
If GB_Admin >= 1 Then
If PackageMode = 1 Then
Else
Response.Write("")
If KanjyoZandakaShiwakeGyosu > 0 Then Response.Write("済 ") Else Response.Write("未") End If
Response.Write(" " & vbCrLf)
Response.Write("")
If GyosyuCD <> "B" Then
If KozaSonzai > 0 Then Response.Write("済 ") Else Response.Write("未") End If
Else
Response.Write("--")
End If
Response.Write(" " & vbCrLf)
If Genkariyou = "1" Then
Response.Write("")
If GyosyuCD = "S" Then
If SeizobuKanjyoZandakaShiwakeGyosu > 0 Then Response.Write("済 ") Else Response.Write("未") End If
Else
Response.Write("--")
End If
Response.Write(" " & vbCrLf)
Response.Write("")
If GyosyuCD = "S" Then
If SeizobuKurikoshiZandakaKingaku > 0 Then Response.Write("済 ") Else Response.Write("未") End If
Else
Response.Write("--")
End If
Response.Write(" " & vbCrLf)
End If
End If
End If
Response.Write(" ")
If PackageMode = 1 Then
Else
Response.Write("" & vbCrLf)
Response.Write("" & Jusho & " " & vbCrLf)
Response.Write("" & TEL & " " & vbCrLf)
Response.Write("" & FAX & " " & vbCrLf)
Response.Write(" " & vbCrLf)
End If
Response.Write("
" & vbCrLf)
Response.Write(" " & vbCrLf)
Response.Write(" ")
ii = ii + 1
End If
End If
Content.MoveNext
Loop
%>