<% Dim WK_Zandaka_KanjyoCD() Dim WK_Zandaka_KanjyoName() Dim WK_Zandaka_KariKingaku() Dim WK_Zandaka_KashiKingaku() Dim WK_Zandaka_KanjyoKubun() Dim WK_Zandaka_TaisyakuKubun() Dim WK_Zandaka_SyukeiCD() Dim ShowCount, MaxCount Dim CSVOutput ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim EnshuName, HyojiJyoken Dim Query Dim Content Dim ErrMsg Dim EnshuCD 'クエリから演習CDを取得する EnshuCD = Request("EnshuCD") 'クエリがNULLならセッションから演習CDを取得する If EnshuCD = "" Then EnshuCD = Session(HomeAlias & "EnshuCD") End If 'セッションに演習CDを代入する Session(HomeAlias & "EnshuCD") = EnshuCD Dim Joken Joken = Request("Joken") Dim Addr, AutoFlg Dim tmp Dim KaisyaCD, GakuseiNo, BunsyoSyuruiCD, BunsyoNaiyoCD Dim Param1, Param2 Dim KaisyaSelect KaisyaCD = Request("KaisyaCD") GakuseiNo = Request("GakuseiNo") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Dim SakuseiKaisyaCD Dim EnshuKubun Dim RiyoDenpyoSu Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuKubun = Content.Fields("演習区分") RiyoDenpyoSu = Content.Fields("利用伝票数区分") EnshuMeisyo = Content.Fields("演習名称") End If '演習参加ユーザー配列作成 Dim UserCnt Dim UserAry ReDim UserAry(0) Query = "exec SPM演習_参加ユーザー一覧2 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ReDim PreServe UserAry(UBound(UserAry) + 1) UserAry(UBound(UserAry)) = "" & Content.Fields("学生番号") Content.MoveNext Loop %> <% = PrintScriptX %> <% Dim RowBreakNum, RowCount Dim Page RowCount = 0 RowBreakNum = 40 'ページングのためここで取得 Query = "exec SPR書類集計一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & Joken & "'" 'プロシージャ側で条件による絞込みを行う Set Content = OpenQuery(Query) For Page = 1 To MaxPage If Page <> 1 Then Response.Write(PageBreakBefore) End If %>

対象演習名 <% = EnshuMeisyo %> <% If Joken = "1" Then %> 伝票 <% ElseIf Joken = "2" Then %> 入出庫 <% ElseIf Joken = "3" Then %> 仕入販売書類 <% ElseIf Joken = "4" Then %> 銀行取引書類 <% ElseIf Joken = "5" Then %> 手形・小切手 <% ElseIf Joken = "6" Then %> 領収書 <% ElseIf Joken = "7" Then %> 運送書類 <% Else %> 全ての書類 <% End If %> <% If EnshuKubun = "P" Then %> <% Else %> <% End If %> <% If PackageMode = 1 Then %> <% Else %> <% End If %> 学生氏名 会社コード 会社名 書類名 作成数 発信数 <% Dim ii, jj, iiDef ii = 0 iiDef = -1 Do While Not(Content.BOF Or Content.EOF) '利用伝票数での伝票除外条件 If (RiyoDenpyoSu < 3 And (Content.Fields("文書種類CD") = "D1" Or Content.Fields("文書種類CD") = "D2")) Or (RiyoDenpyoSu < 5 And (Content.Fields("文書種類CD") = "D3" Or Content.Fields("文書種類CD") = "D4")) Or (RiyoDenpyoSu < 1 And Content.Fields("文書種類CD") = "D5") Then Else '演習参加ユーザーに存在するユーザーのみ表示する For UserCnt = 1 To UBound(UserAry) '同時同業では参加グループから外れた生徒及び生徒マスタから削除された生徒のレコードを除外する If EnshuKubun <> "P" Or UCase(UserAry(UserCnt)) = UCase("" & Content.Fields("学生番号")) Then RowCount = RowCount + 1 If Content.Fields("文書種類CD") = BunsyoSyuruiCD And Content.Fields("学生番号") = GakuseiNo And Content.Fields("会社CD") = KaisyaCD Then iiDef = ii End If ' ↓文書種類にはカンマ区切りでAutoFlgを付加 Response.Write("" & vbCrLf) If EnshuKubun = "P" Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If PackageMode = 1 Then Else Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) ii = ii + 1 Exit For End If Next End If Content.MoveNext If RowCount > 0 And (RowCount Mod RowBreakNum = 0) Then '先頭行が表示除外されると行カウントが0になるのでその場合は改ページしない Exit Do End If Loop %>  " & Content.Fields("氏名") & "  " & Content.Fields("会社CD") & "  " & Content.Fields("会社名称") & "  " & Content.Fields("文書名称") & " " & Content.Fields("作成数") & " ") If "" & Content.Fields("発信数") <> "" Then Response.Write(Content.Fields("発信数")) Else Response.Write("--") End If Response.Write("

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