' $System.Access Form
' $Command.Form.AccessCreate $BS
' If $WCH
'  Set $BP = $Command.Personal.SetBackPage $WCH "CustomerHistory"
'  $BP.Args.cid = $CID
'  $BP.Args.dbid = $DBID
'  $BP.Args.aid = $AID
'  $BP.Args.head = $Head
'  $BP.Args.hid = $HID
'  $BP.Args.haid = $HAID
'  $BP.Args.bpt = $BPT
'  $BP.Args.ctype = $CType
'  $BPT = $BP.TimeStamp
' Elif $WCV
'  Set $BP = $Command.Personal.SetBackPage $WCV "CustomerView"
'  $BP.Args.cid = $CID
'  $BP.Args.dbid = $DBID
'  $BP.Args.bpt = $BPT
'  $BP.Args.ctype = $CType
'  $BPT = $BP.TimeStamp
' EndIf
' If $BPT
'  Set $BP = $Command.Personal.GetBackPage $BPT
'  Init $CType = $BP.args.ctype
' EndIf
' If $CType = "company"
'  $CName = "会社"
' Else
'  $CName = "顧客"
' EndIf
' $AppliName = $WorkSpace.Forms.$BS.Name
'' <!---------------------バックページ設定開始----------------------------->
' If $BP.Page = "CustomerView"
'  $System.SetParameter CaptionBackPage "$CName$の詳細へ"
'  $System.SetParameter BackURL "$Server?page=$BP.Page&wid=$WID$$BP.Param"
' Elif $BP.Page = "CustomerHistory"
'  $System.SetParameter CaptionBackPage "$CName$の履歴一覧へ"
'  $System.SetParameter BackURL "$Server?page=$BP.Page&wid=$WID$$BP.Param"
' Else
'  $System.SetParameter CaptionBackPage "$AppliNameの一覧へ"
'  $System.SetParameter BackURL "$Server?page=FormIndex&wid=$WID&bs=$BS"
' EndIf
'' <!---------------------バックページ設定終了----------------------------->
' If $System.IsPost
'  If $Mode = "Cancel"
'   $System.Redirect $BackURL
'   $Command.Form.DeleteDraft
'   Exit
'  EndIf
'  $Command.Form.SetDraft
'  If $Mode = "Submit"
'   Set $d = $Command.Form.AddDocument
'   $System.Redirect $Server?page=FormDocView&wid=$WID&bs=$BS&rid=$d.ID&dbid=$d.DBID&bpt=$BPT
'  Else
'   $System.Redirect $Server?page=FormDocAdd&wid=$WID&bs=$BS&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
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="PartsFormDocSet.html"-->
' $System.SetParameter CaptionTitle "$AppliNameの作成"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter URLFormIndex "$Server?page=FormIndex&wid=$WID&bs=$BS"
' Call cmHeader $CaptionTitle $URLFormIndex $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
' If $RID
'  $Draft.SetDate = $Date
'  $Draft.EndDate = $Date
'  $Draft.SetTime = $TimeStamp.Time
'  $Draft.EndTime = $TimeStamp.Time
' EndIf
' 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="FormDocAdd">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="DID" value="$DID">
<input type="hidden" name="CID" value="">
<input type="hidden" name="Mode" value="">
<input type="hidden" name="BPT" value="$BPT">
$AppliNameの情報を入力してください。<br>
' Call formNote 1 1
' Call fdSet $BS $FormProfile $Draft "&bid=$BS&did=$DID&bpt=$BPT"
' Call formCommit "作成する" "キャンセルする" "Mode.value='Submit';" "onCancel( this.form );"
</form>
' Call cmFooter $BackURL $CaptionBackPage
</body>
</html>