' Set $FormProfile = $Command.Form.GetFormTop $TID
' If $Print
' Call cmLoadStyleSheet "std"
<p>$WorkSpace.Forms.$TID.Name - 期間別レポート
'  If $FormProfile.Total.Queries.$QID
( 集計条件：$FormProfile.Total.Queries.$QID.Name )
'  EndIf
</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;
'  Call cmLink "表示の設定" "write20.png" "$Server?page=ReportPersonalSet&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&st=$ST&date=$Date"
</td>
 <td align="right" nowrap>
<a href="$Server?page=ReportIndex&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&date=$SetDate.PrevWeek">&lt;&lt; 前の週へ</a> |
<a href="$Server?page=ReportIndex&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID">今日</a> |
<a href="$Server?page=ReportIndex&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&date=$SetDate.NextWeek">次の週へ &gt;&gt;</a>
 </td></tr>
</table>
' EndIf
' $TC = 0
' $CDate = $SetDate
' For $i = 1 to 7
'  $Count = $Command.Form.GetTotalCount $TID $QID $CDate
'  Init $Count = 0
'  Inc $TC $Count
'  $System.SetParameter TC$i $Count
'  $CDate = $CDate.NextDay
' Next
<table width="100%" border="1" cellspacing="0" cellpadding="2" nowrap bgcolor="#ffffff">
<tr class="header"><th width="20%" nowrap>日付</th><th colspan="2" width="80%" nowrap>作成件数</th></tr>
' Set $PersonalTotal = $Command.Personal.GetTotalObject $WID
' $System.SetParameter "Param" "Scale$TID"
' $Scale = $PersonalTotal.$Param
' $CDate = $SetDate
' For $i = 1 to 7
'  If $CDate.IsToday
'   $WColor = "#ccffcc"
'  Else
'   $WColor = $CDate.Color
'  EndIf
<tr><td bgcolor="$WColor" nowrap>$CDate.Year/$CDate.Month/$CDate.Day ($CDate.WDay)</td>
'  $Count = $System.GetParameter TC$i
'  Init $Count = 0
'  If $Scale
'   $Rate = $System.Rate $Count $Scale
'   If $Rate > 100
'    $Rate = 100
'   EndIf
'  Else
'   $Rate = $System.Rate $Count $TC
'  EndIf
<td align="right" nowrap>$Count</td>
<td width="80%"><table border="0" cellspacing="2" cellpadding="0" width="100%" 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>
'  $CDate = $CDate.NextDay
' Next
<tr bgcolor="#cccccc"><th nowrap>合計</th><th style="text-align:right;" nowrap>$TC</th><th><br></th></tr>
</table>