' 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 $TotalItems = $Command.Form.GetTotalItems $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
'  Set $PersonalTotal = $Command.Personal.GetTotalObject $WID
'  $System.SetParameter "Param" "Scale$TID"
'  $Scale = $PersonalTotal.$Param
'  Sub RecordGraph $Name $Count $TC
<tr><td nowrap>$Name<br></td>
'   Init $Count = 0
'   If $Scale
'    $Rate = $System.Rate $Count $Scale
'    $DisplayRate = $System.Rate $Count $Scale 1
'    If $Rate > 100
'     $Rate = 100
'     $DisplayRate = 100.0
'    EndIf
'   Else
'    $Rate = $System.Rate $Count $TC
'    $DisplayRate = $System.Rate $Count $TC 1
'   EndIf
'   Init $Rate = 0
<td width="1%" align="right" nowrap>$Count</td>
<td width="1%" align="right" nowrap>$DisplayRate%</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>
'  EndSub
'  $First = 1
'  For Each $Item in $FormProfile.Items
'   If ( $Item.Type != "Select" ) and ( $Item.Type != "User" )
'    Continue
'   EndIf
'   $IID = $Item.ID
'   $First = 0
<table width="100%" border="0" cellspacing="0" cellpadding="2" nowrap>
<tr><td nowrap><img src="$IMG_PATH/pin.png"><b>$Item.Name</b> 項目の集計</td></tr>
</table>
<table width="100%" border="1" cellspacing="0" cellpadding="2" nowrap bgcolor="#ffffff">
<tr class="header"><th width="20%" nowrap>項目の値</th><th colspan="3" width="80%" nowrap>件数($TC件)</th></tr>
'   Set $Options = $TotalItems.$IID
'   If $Item.Type = "User"
'    For Each $u in $Users
'     $Exist = 0
'     For Each $Option in $Options
'      If $Option.Number = $u.ID
'       Call RecordGraph $u.Name $Option.Count $TC
'       $Exist = 1
'       Exit
'      EndIf
'     Next
'     If ! $Exist
'      Call RecordGraph $u.Name 0 $TC
'     EndIf
'    Next
'   Else
'    For Each $ItemOption in $Item.Options
'     $Exist = 0
'     For Each $Option in $Options
'      If $Option.Name = $ItemOption
'       Call RecordGraph $ItemOption $Option.Count $TC
'       $Exist = 1
'       Exit
'      EndIf
'     Next
'     If ! $Exist
'      Call RecordGraph $ItemOption 0 $TC
'     EndIf
'    Next
'   EndIf
</table><br>
'  Next
'  If $First
<p>集計対象の項目がありません。</p>
'  EndIf
' EndIf