' $System.Access Admin
' If $System.IsPost
'  $Continue = $Command.Form.DeleteAll
'  If $Continue
'   $System.Redirect $Server?page=SystemFormDocDeleteAll&wid=$WID&id=$ID&span=$Span&setdate=$SetDate&enddate=$EndDate&continue=1
'  Else
'   $System.Redirect $Server?page=SystemAdmin&wid=$WID
'  EndIf
'  Exit
' EndIf
' $AppliName = $WorkSpace.Forms.$ID.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $System.SetParameter CaptionTitle "$AppliNameのデータ一括削除"
' If $Exec
'  $Continue = $Command.Form.DeleteAll
' EndIf
' If $Continue
<meta http-equiv="Refresh" content="0;URL=$Server?page=SystemFormDocDeleteAll&wid=$WID&id=$ID&span=$Span&setdate=$SetDate&enddate=$EndDate&exec=1&rw=customer">
' Elif $Exec
<meta http-equiv="Refresh" content="0;URL=$Server?page=SystemAdmin&wid=$WID">
' Else
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
	return confirm( "データを削除します。よろしいですか？" );
}
//-->
</script>
' EndIf
' Call cmHead $CaptionTitle
</head>
<body>
'' <!---------------------削除実行中----------------------------->
' If $Continue or $Exec
'  Call cmHeaderView
<b>$CaptionTitle</b><br>
<p>履歴データを削除しています。</p>
<p>※ ブラウザをそのままにしてお待ち下さい。<br>
　 ブラウザを閉じたり、中止ボタンや更新ボタンを押さないでください。<br>
　 (データベース破損などの原因になる場合があります)<br>
</p>
'  Call cmFooter
' Else
'' <!---------------------削除画面----------------------------->
'  $System.SetParameter BackURL "$Server?page=SystemAdmin&wid=$WID"
'  Call cmHeaderView 1 $CaptionTitle $BackURL "システム設定"
<form name="FormDeleteAll" method="post" action="$Server?" onSubmit="return onSubmit( this );">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemFormDocDeleteAll">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
'  Set $FormIndex = $Command.Form.GetFormIndex $ID
'  $Count = $FormIndex.Documents.Count
'  Init $Count = 0
<p>$AppliNameのデータを一括削除します。</p>
<p>
'  Call formRadio "Span" "全てのデータを削除する" 1 0 "All"
 (全 <b>$Count</b> 件)</p><p>
'  Call formRadio "Span" "指定した期間のデータを削除する" 0 1 "Span"
<blockquote>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td>期間</td>
<td style="white-space:nowrap;">
'  Call formDateSpan "SetDate" "EndDate" "FormDeleteAll" 0 "" "" "Span[1].checked=true;"
</td></tr>
</table>
</blockquote>
</p>
'  Call formCommit "削除する"
</form>
'  Call cmChildFooter $BackURL "システム設定へ"
' EndIf
</body>
</html>