' $System.Access Customer
' $Command.Customer.AccessCreate
' If $System.IsPost
'  Set $person = $Command.Customer.AddPerson
'  $CID = $person.ID
'  $DBID = $person.DBID
'  If $Company
'   $System.Redirect $Server?page=CustomerSelectCompany&wid=$WID&cid=$CID&dbid=$DBID&bpt=$BPT
'  Else
'   $System.Redirect $Server?page=CustomerView&wid=$WID&cid=$CID&dbid=$DBID&bpt=$BPT
'  EndIf
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibrarySelect.html"-->
<!--#include file="PartsCustomerSet.html"-->
' $CaptionTitle = "顧客の登録"
' Call cmHead $CaptionTitle
<script language="JavaScript" type="text/javascript"><!--
function onCommit( form )
{
' If ( ! $CompanyID ) and ( ! $Customer.NoCompany )
  if( confirm( '登録した顧客を会社に所属させます。\nよろしいですか？' ) )
  {
    form.Company.value = 1;
  }
' EndIf
  form.submit();
}
//-->
</script>
</head>
<body>
' If $CompanyID
'  $System.SetParameter BackURL "$Server?page=CustomerView&wid=$WID&cid=$CompanyID&dbid=$CompanyDB&bpt=$BPT"
'  $CaptionBackPage = "顧客の詳細へ"
' Else
'  $System.SetParameter BackURL "$Server?page=CustomerIndex&wid=$WID&cgid=$CGID"
'  $CaptionBackPage = "アドレスデータの一覧へ"
' EndIf
' $System.SetParameter URLCustomerIndex "$Server?page=CustomerIndex&wid=$WID&cgid=$CGID"
' 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="CustomerAddPerson">
<input type="hidden" name="WID" value="$WID">
' If $BPT
<input type="hidden" name="BPT" value="$BPT">
' EndIf
' If $CGID
<input type="hidden" name="CGID" value="$CGID">
' EndIf
<input type="hidden" name="Company" value="">
' If $CompanyID
<input type="hidden" name="CompanyID" value="$CompanyID">
<input type="hidden" name="CompanyDB" value="$CompanyDB">
'  Set $Company = $Command.Customer.GetCustomer $WID $CompanyID 0 $CompanyDB
<img src="$IMG_PATH/company20.png"><b>$Company.Name</b> に所属する
' EndIf
顧客の情報を入力してください。<br>
' Call formNote 1 1
<p>
' $SCGID = $CGID
<!--#include file="PartsCustomerAddPerson.html"-->
</p>
' Call jsOnSubmit
<p class="formCommit">
' Call cmButton "登録する" "if( onSubmit( this.form ) ){ onCommit( this.form ); }"
' Call cmButton "キャンセルする" "location.href='$BackURL.JSEscape';"
</p>
</form>
' $BS = -2
' Call cmFooter $BackURL $CaptionBackPage
</body>
</html>