' $System.Access Form
' $Command.Form.AccessModify $BS $RID
' $System.SetParameter BackURL "$Server?page=FormDocView&wid=$WID&bs=$BS&rid=$RID&dbid=$DBID&bpt=$BPT"
' If $System.IsPost
'  If $Mode = "Cancel"
'   $System.Redirect $BackURL
'   $Command.Form.DeleteDraft
'   Exit
'  EndIf
'  $Command.Form.SetDraft
'  If $Mode = "Submit"
'   $System.Redirect $Server?page=FormDocView&wid=$WID&bs=$BS&rid=$RID&dbid=$DBID&bpt=$BPT
'   $Command.Form.ModifyDocument
'  Else
'   $System.Redirect $Server?page=FormDocModify&wid=$WID&bs=$BS&rid=$RID&dbid=$DBID&did=$DID&bpt=$BPT
'   If $Mode = "Select"
'    $Command.Form.AddDraftCustomer
'   Elif $Mode = "Delete"
'    $Command.Form.RemoveDraftCustomer
'   Elif $Mode = "Add"
'    $Command.Form.AddDraftPerson
'   Elif $Mode = "Remove"
'    $Command.Form.RemoveDraftPerson
'   EndIf
'  EndIf
'  Exit
' EndIf
' $AppliName = $WorkSpace.Forms.$BS.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
<!--#include file="PartsFormDocSet.html"-->
' $System.SetParameter CaptionTitle "$AppliNameの変更"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter URLFormIndex "$Server?page=FormIndex&wid=$WID&bs=$BS&rid=$RID"
' Call cmHeader $CaptionTitle $URLFormIndex $AppliName $BackURL "$AppliNameの詳細"
' $System.CloseDatabase "mw"
' Set $FormProfile = $Command.Form.GetFormTop $BS
' If ! $DID
'  $DID = $Command.Form.InitDraft
' EndIf
' If $CID
'  $Command.Form.AddDraftCustomer
' EndIf
' Set $Draft = $Command.Form.GetDraft $BS $DID
' Call jsfDocSet $FormProfile $Draft
<form name="FormDoc" method="post" action="$Server?" enctype="multipart/form-data" onSubmit="return onSubmit( this );">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="FormDocModify">
<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="DID" value="$DID">
<input type="hidden" name="BPT" value="$BPT">
<input type="hidden" name="CID" value="">
<input type="hidden" name="Mode" value="">
$AppliNameの情報を入力してください。<br>
' Call formNote 1 1
' Call fdSet $BS $FormProfile $Draft "&bid=$BS&brid=$RID&bdbid=$DBID&did=$DID&bpt=$BPT"
' Call formCommit "変更する" "キャンセルする" "Mode.value='Submit';" "onCancel( this.form );"
</form>
' Call cmFooter $BackURL "$AppliNameの詳細へ"
</body>
</html>