' $System.Access Customer
' $Command.Customer.AccessCreate
' If $System.IsPost
'  Set $company = $Command.Customer.AddCompany
'  $CID = $company.ID
'  $DBID = $company.DBID
'  If $PersonID
'   $System.Redirect $Server?page=CustomerChangeCompany&wid=$WID&cid=$PersonID&dbid=$PersonDB&companyID=$CID&companyDB=$DBID&bpt=$BPT
'  Else
'   $System.Redirect $Server?page=CustomerView&wid=$WID&cid=$CID&dbid=$DBID&wci=$Login.ID&bpt=$BPT
'  EndIf
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibrarySelect.html"-->
<!--#include file="PartsCustomerSet.html"-->
' $CaptionTitle = "会社の登録"
' Call cmHead $CaptionTitle
</head>
<body>
' If $PersonID
'  $System.SetParameter BackURL "$Server?page=CustomerSelectCompany&wid=$WID&cid=$PersonID&dbid=$PersonDB&bpt=$BPT"
'  $CaptionBackPage = "所属する会社の選択へ"
' Else
'  $System.SetParameter BackURL "$Server?page=CustomerIndex&wid=$WID&cgid=$CGID"
'  $CaptionBackPage = "アドレスデータの一覧へ"
' EndIf
' $System.SetParameter URLCustomerIndex "$Server?page=CustomerIndex&wid=$WID"
' Call cmHeader $CaptionTitle $URLCustomerIndex $WorkSpace.Customer.Name
<form name="CustomerAdd" method="post" action="$Server?" enctype="multipart/form-data">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="CustomerAddCompany">
<input type="hidden" name="WID" value="$WID">
' If $BPT
<input type="hidden" name="BPT" value="$BPT">
' EndIf
' If $PersonID
<input type="hidden" name="PersonID" value="$PersonID">
<input type="hidden" name="PersonDB" value="$PersonDB">
' EndIf
' If $CGID
<input type="hidden" name="CGID" value="$CGID">
' EndIf
会社の情報を入力してください。<br>
' Call formNote 1 1
<p>
' $SCGID = $CGID
<!--#include file="PartsCustomerAddCompany.html"-->
</p>
' Call jsOnSubmit 1
<p class="formCommit">
' Call cmButton "登録する" "if( onSubmit( this.form ) ){ this.form.submit(); }"
' Call cmButton "キャンセルする" "location.href='$BackURL.JSEscape';"
</p>
</form>
' $BS = -2
' Call cmFooter $BackURL $CaptionBackPage
</body>
</html>