' If $Confirm
<!--#include file="LibraryReportSetSpan.html"-->
<!--#include file="LibraryForm.html"-->
<p>
履歴の作成者の集計をおこないます。<br>
履歴の件数が多いため、集計には時間がかかる可能性がありますが、よろしいですか？
</p>
<blockquote>
<table border="0" cellspacing="0" cellpadding="4">
'  Set $FormProfile = $Command.Form.GetFormTop $TID
'  If $FormProfile.Total.Queries.Count
<tr><td nowrap>集計条件</td><td nowrap>
<select name="QID">
<option value="">----
'   Options $QID in $FormProfile.Total.Queries
</select>
</td></tr>
'  EndIf
<tr><td valign="top" nowrap>期間</td><td nowrap>
'  Call SetTotalSpan "Report"
</td></tr>
</table>
</blockquote>
<p>
'  Call formSubmit "Submit" "集計を実行する"
</p>
' Else
'  Set $TotalUsers = $Command.Form.GetTotalUsers $TID $ST
'  $TC = $FormSearch.Count
'  Init $TC = 0
'  $SetDate = $FormSearch.SetDate
'  $EndDate = $FormSearch.EndDate
'  Set $FormProfile = $Command.Form.GetFormTop $TID
'  Sub ViewSpan
'   If $SetDate or $EndDate
'    If $SetDate
$SetDate.Year/$SetDate.Month/$SetDate.Day
'    EndIf
～
'    If $EndDate
$EndDate.Year/$EndDate.Month/$EndDate.Day
'    EndIf
'   Else
(全て)
'   EndIf
'  EndSub
'  If $Print
' Call cmLoadStyleSheet "std"
<p>$WorkSpace.Forms.$TID.Name - 作成者別の件数 (
'   If $FormProfile.Total.Queries.$QID
集計条件：$FormProfile.Total.Queries.$QID.Name ,
'   EndIf
期間：
'   Call ViewSpan
)</p>
'  Else
<table class="active" width="100%" border="0" cellspacing="0" cellpadding="4">
<tr><td nowrap>集計条件
<select name="QID" onChange="this.form.submit();">
<option value="">----
'   Options $QID in $FormProfile.Total.Queries
</select>
&nbsp;
期間 <b>
'   Call ViewSpan
</b>
&nbsp;
'   Call cmLink "集計の設定" "write20.png" "$Server?page=ReportPersonalSet&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&st=$ST"
</td></tr>
</table>
'  EndIf
 <table width="100%" border="1" cellspacing="0" cellpadding="2" nowrap bgcolor="#ffffff">
 <tr class="header" width="20%"><th nowrap>名前</th>
 <th width="80%" colspan="2" nowrap>件数($TC件)</th></tr>
'  Set $PersonalTotal = $Command.Personal.GetTotalObject $WID
'  $System.SetParameter "Param" "Scale$TID"
'  $Scale = $PersonalTotal.$Param
'  For Each $u in $Users
'   $UID = $u.ID
'   $UC = $TotalUsers.$UID.Count
'   If ! $UC
'    Continue
'   EndIf
'   If $Scale
'    $Rate = $System.Rate $UC $Scale
'    If $Rate > 100
'     $Rate = 100
'    EndIf
'   Else
'    $Rate = $System.Rate $UC $TC
'   EndIf
 <tr><td nowrap>$u.Name</td>
 <td width="1%" align="right" nowrap>$UC</td>
 <td>
  <table border="0" width="100%" cellspacing="2" cellpadding="0" bgcolor="#ffffff"><tr>
'   If $Rate
  <td width="$Rate%"><img src="$IMG_PATH/graph_r.gif" width="100%" height="18"></td>
'   EndIf
  <td><img src="$IMG_PATH/spacer.gif"></td>
  </tr></table>
 </td></tr>
'  Next
 </table>
' EndIf