' $System.Access WorkSpace
' Set $PersonalTotal = $Command.Personal.GetTotalObject $WID
' If $System.IsPost
'  If ( $TID != -2 ) and ( $Type != "t" )
'   $SpanOld = $PersonalTotal.Span
'   $SetDateOld = $PersonalTotal.SetDate
'   $EndDateOld = $PersonalTotal.EndDate
'   $Command.Personal.SetReportSpan
'   If $PersonalTotal.Span != $SpanOld
'    $SetSpan = 1
'   Elif $SpanOld = 6
'    If ( $PersonalTotal.SetDate != $SetDateOld ) or ( $PersonalTotal.EndDate != $EndDateOld )
'     $SetSpan = 1
'    EndIf
'   EndIf
'  EndIf
'  $Command.Personal.SetReportView
'  If ! $SetSpan
'   $System.SetParameter Args "&st=$ST"
'  EndIf
'  $System.Redirect $Server?page=ReportIndex&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&date=$Date&exec=1$Args
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
<!--#include file="LibraryReportSetSpan.html"-->
' If ( $TID != -2 ) and ( $Type != "t" )
'  $CaptionTitle = "集計の設定"
' Else
'  $CaptionTitle = "表示の設定"
' EndIf
' Call cmHead $CaptionTitle
<script language="JavaScript" type="text/javascript"><!--
function onCheck( form )
{
' If $Env.IsMSIE
	var e = document.getElementById( 'SCALE' );
	if( e && e.style )
	{
		if( form.SetView.checked == true )
		{
			e.style.display="";
		}
		else
		{
			e.style.display="none";
		}
	}

' EndIf
}
function onSubmit( form )
{
	if( form.SetView.checked == true )
	{
		if( ! form.Scale.value )
		{
			alert( "グラフのスケールを入力してください。" );
			return false;
		}
	}
	return true;
}
function initializeScale()
{
' If $Env.IsMSIE
	var form = document.forms["Report"];
	onCheck( form );
' EndIf
}
-->
</script>
</head>
<body onLoad="initializeScale()">
' $System.SetParameter BackURL "$Server?page=ReportIndex&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&st=$ST&date=$Date&exec=1"
' Call cmHeader $CaptionTitle $BackURL $WorkSpace.Report.Name
' $System.SetParameter "Param" "Scale$TID"
' $Scale = $PersonalTotal.$Param
<form name="Report" method="post" action="$Server">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="ReportPersonalSet">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="VID" value="$VID">
<input type="hidden" name="TID" value="$TID">
<input type="hidden" name="Type" value="$Type">
<input type="hidden" name="QID" value="$QID">
<input type="hidden" name="ST" value="$ST">
<input type="hidden" name="Date" value="$Date">
<p>$CaptionTitleをしてください。</p>
<table border="0" cellspacing="0" cellpadding="4">
' If ( $TID != -2 ) and ( $Type != "t" )
<tr><td valign="top" nowrap>期間</td><td nowrap>
'  Call SetTotalSpan "Report"
</td></tr>
' EndIf
<tr><td valign="top" nowrap>表示</td><td nowrap>
' If $TID = -2
'  $AppliName = $WorkSpace.Customer.Name
' Elif $WorkSpace.Mails.$TID
'  $AppliName = $WorkSpace.Mails.$TID.Name
' Elif $WorkSpace.Forms.$TID
'  $AppliName = $WorkSpace.Forms.$TID.Name
' EndIf
' Call formCheckBox "SetView" "$AppliNameの集計グラフのスケールを指定する" $Scale 1 "SetView" "onCheck( this.form );"
</td></tr>
<tr id="SCALE"\\
' If $Env.IsMSIE and ( ! $Scale )
 style="display:none;"\\
' EndIf
><td><br></td><td nowrap>
&nbsp;
' Call formText "Scale" $Scale 5 1
件を 100% としてグラフを表示する
</td></tr>
</table>
' Call formCommit "設定する"
</form>
' If $VID
'  Call cmChildFooter $BackURL "$WorkSpace.Report.Nameへ"
' Else
'  $BS = $TID
'  Call cmFooter $BackURL "$WorkSpace.Report.Nameへ"
' EndIf
</body>
</html>