' $System.Access Form
' $Command.Form.AccessDelete $BS $RID
' If $System.IsPost
'  If $BPT
'   Set $BP = $Command.Personal.GetBackPage $BPT
'  EndIf
'  If ( $BP.Page = "CustomerHistory" ) or ( $BP.Page = "CustomerSearchIndex" ) or ( $BP.Page = "CustomerView" )
'   $System.Redirect $Server?page=$BP.Page&wid=$WID$$BP.Param
'  Elif $BP.Page
'   $System.Redirect $Server?page=$BP.Page&wid=$WID&bs=$BS$$BP.Param&reset=1
'  Else
'   $System.Redirect $Server?page=FormIndex&wid=$WID&bs=$BS
'  EndIf
'  $Command.Form.DeleteDocument
'  Exit
' EndIf
' $AppliName = $WorkSpace.Forms.$BS.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryDelete.html"-->
' $System.SetParameter CaptionTitle "$AppliNameの削除"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter URLFormIndex "$Server?page=FormIndex&wid=$WID&bs=$BS&rid=$RID"
' $System.SetParameter BackURL "$Server?page=FormDocView&wid=$WID&bs=$BS&rid=$RID&dbid=$DBID&bpt=$BPT"
' Call cmHeader $CaptionTitle $URLFormIndex $AppliName $BackURL "$AppliNameの詳細"
' $System.CloseDatabase "mw"
' Set $d = $Command.Form.GetFormData $BS $RID $DBID
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="FormDocDelete">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="RID" value="$RID">
<input type="hidden" name="DBID" value="$DBID">
<input type="hidden" name="BPT" value="$BPT">
' Call delConfirm $AppliName $d.Subject
</form>
' Call cmFooter $BackURL "$AppliNameの詳細へ"
</body>
</html>