%
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
%>
<% = AppTitle %>
<% = 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("
" & Content.Fields("氏名") & "
" & vbCrLf)
Else
Response.Write("
" & Content.Fields("会社CD") & "
" & vbCrLf)
End If
Response.Write("
" & Content.Fields("会社名称") & "
" & vbCrLf)
Response.Write("
" & Content.Fields("文書名称") & "
" & vbCrLf)
Response.Write("
" & Content.Fields("作成数") & "
" & vbCrLf)
If PackageMode = 1 Then
Else
Response.Write("
")
If "" & Content.Fields("発信数") <> "" Then
Response.Write(Content.Fields("発信数"))
Else
Response.Write("--")
End If
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
%>
<%
If (Content.BOF Or Content.EOF) Then
Exit For
End If
Next
%>
<% = HtmlFooter %>
<%
End Sub
%>