<% ' ' ' %> <% Dim TyohyoHeader, TableHeader, TableFooter Dim Sakuseibi Dim EnshuName Dim RowCount, RowBreakNum , PageCount main() Sub main() Dim Content Dim Query Dim i RowBreakNum = 10 RowCount = 0 PageCount = 0 Sakuseibi = SetDate(Date(), 2) Dim Genkariyou Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then '演習名称GET EnshuName = Content.Fields("演習名称") Genkariyou = "" & Content.Fields("原価会計利用") End If Dim HyojiFlg HyojiFlg = Request("HyojiFlg") If HyojiFlg = "" Then HyojiFlg = "0" End If Dim SortMode SortMode = Request("SortMode") If SortMode = "" Then SortMode = "0" '会社CD End If Dim ShijoCD ShijoCD = Request("ShijoCD") %> <% = HtmlHeader("") %> <% = PrintScriptX %>
<% Response.Write(PrintHeader(0, "会社マスター")) %>
" HEIGHT="20" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" CLASS="tx1214" STYLE="border-collapse: collapse"> <% Else %> WIDTH="190"<% End If %> HEIGHT="20">会 社 名 称 <% If HyojiFlg <> "2" Then %> <% ElseIf HyojiFlg = "2" Then %> <% 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 %> <% End If %> <% Dim ii, jj ii = 0 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, 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 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 Jusho = "〒" & Content.Fields("郵便番号") & " " & Content.Fields("住所1") & " " & Content.Fields("住所2") TEL = "" & Content.Fields("TEL") FAX = "" & Content.Fields("FAX") If GB_Admin >= 1 Then ''''''''繰越金額を調べるここから Dim Kingaku Dim KurikoshiZandakaKingaku Dim SeizobuKurikoshiZandakaKingaku Dim GenkinKingaku, SyohinKingaku, GinkoKingaku Dim SyohinSu Dim ContentKoza Dim ContentGenkin Dim ContentKoza2 Dim ContentKanjyo 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("単価") 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("金額") 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 ''''''''勘定残高行数を調べるここまで 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(" " & KaisyaMeisyo & "" & vbCrLf) If HyojiFlg <> "2" Then Response.Write("" & vbCrLf) ElseIf HyojiFlg = "2" Then Response.Write("" & vbCrLf) End If If PackageMode = 1 Then Else Response.Write("" & vbCrLf) If GyosyuCD = "U" Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If End If If GB_Admin >= 1 Then If PackageMode = 1 Then Else Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If Genkariyou = "1" Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If End If End If Response.Write("") If PackageMode = 1 Then Else Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If ii = ii + 1 End if End If Content.MoveNext Loop Dim SpaceCnt SpaceCnt = 18 If PackageMode = 1 Then SpaceCnt = 36 End If For jj = ii To SpaceCnt Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If PackageMode = 1 Then Else Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If If GB_Admin >= 1 Then If PackageMode = 1 Then Else Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If Genkariyou = "1" Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If End If End If Response.Write("") If PackageMode = 1 Then Else Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") End If Next %>
会社CD 会社略名称ログインID市場 業種勘定繰越繰越 製勘 製繰
住 所 TEL FAX
" & HyojiKaisyaCD & " " & KaisyaRyakuMeisyo & "" & GakseiNo & " " & ShijyoMeisyo & "" & ConvKubunMeisyo("業種CD", GyosyuCD) & " " & ConvKubunMeisyo("業種CD", GyosyuCD) & "") If KanjyoZandakaShiwakeGyosu > 0 Then Response.Write("") Else Response.Write("未") End If Response.Write("") If GyosyuCD <> "B" Then If KozaSonzai > 0 Then Response.Write("") Else Response.Write("未") End If Else Response.Write("--") End If Response.Write("") If GyosyuCD = "S" Then If SeizobuKanjyoZandakaShiwakeGyosu > 0 Then Response.Write("") Else Response.Write("未") End If Else Response.Write("--") End If Response.Write("") If GyosyuCD = "S" Then If SeizobuKurikoshiZandakaKingaku > 0 Then Response.Write("") Else Response.Write("未") End If Else Response.Write("--") End If Response.Write("
" & Jusho & "" & TEL & "" & FAX & "
<% Response.Write(PrintFooter()) %>
<% End Sub %>