' $System.Access Customer
' $Command.Customer.AccessCreate
'' <!---------------------バックページ定義開始----------------------------->
' If $MID
'  $System.SetParameter Arg "&BS=$BS&mid=$MID&dbid=$DBID&type=$Type&tid=$TID&select=$Select"
'  If $Select
'   If $CompanyID
'    $System.SetParameter BackURL "$Server?page=MailSelectPerson&wid=$WID&cid=$CompanyID$$Arg"
'   Else
'    $System.SetParameter BackURL "$Server?page=MailSelectCustomer&wid=$WID$$Arg"
'   EndIf
'  EndIf
' Else
'  $System.SetParameter Arg "&BS=$BS"
'  If $Select
'   $System.SetParameter BackURL "$Server?page=FormSelectCustomer&wid=$WID&bs=$BS&select=$Select&companyid=$CompanyID&companydb=$CompanyDB"
'  EndIf
' EndIf
'' <!---------------------バックページ定義終了----------------------------->
' If $System.IsPost
'  Set $person = $Command.Customer.AddPerson
'  $CID = $person.ID
'  If $MID
'   $Command.Mail.AccessModify $BS
'  EndIf
'  $System.SaveClose
'  If $MID
'   $Command.Mail.ChangeCustomer $BS $MID $DBID $Type $CID $TID
'  EndIf
'  If $Company
'   $System.Redirect $Server?page=CustomerSelectCompany&wid=$WID&cid=$CID&cw=1&continue=1$Arg
'   Exit
'  EndIf
'  $System.ContentType
' Elif $MID
'  If $Type = "Received"
'   Set $m = $Command.Mail.GetReceivedMailData $BS $MID $DBID
'   If $m.CID and ( ! $Select )
'    Set $c = $Command.Customer.GetCustomer $WID $m.CID 0 $m.CDBID
'    If $c
'     $Error = 22531
<!--#include file="MWError.html"-->
'     Exit
'    EndIf
'   EndIf
'   If $m
'    Set $dc = $Command.Mail.GetDefaultCustomer $m
'    If $dc
'     $Name = $dc.Name
'     $Yomi = $dc.Yomi
'     $Code = $dc.Code
'     $Tel = $dc.Tel
'    EndIf
'   EndIf
'   Init $Name = $m.FromName
'   If ! $Force
'    Init $Mail = $m.FromMail
'   EndIf
'  Else
'   Set $m = $Command.Mail.GetSentMailData $BS $MID $DBID
'   Set $mc = $m.Customers.$TID
'   If $mc.CID and ( ! $Select )
'    Set $c = $Command.Customer.GetCustomer $WID $mc.CID 0 $mc.CDBID
'    If $c
'     $Error = 22531
<!--#include file="MWError.html"-->
'     Exit
'    EndIf
'   EndIf
'   $Name = $mc.Name
'   If ! $Force
'    $Mail = $mc.Mail
'   EndIf
'  EndIf
'  $Command.Mail.CloseDatabase
'  If ! $Select
'   $CID = $CMailIndex.MailIndex.$Mail.CID
'   If $CID
<!--#include file="CustomerSetRelatedPerson.html"-->
'    Exit
'   EndIf
'  EndIf
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' Call cmLoadJavaScript "window"
' If $System.IsPost
<script language="JavaScript" type="text/javascript"><!--
if ( IsAliveWindow( window.parent.opener ) )
{
'  If $MID
'   If $BPT
'    Set $BP = $Command.Personal.GetBackPage $BPT
'   EndIf
'   If $BP.Page = "MailCustomerHistory"
'    Set $tmpc = $Command.Customer.GetTempCustomer $BP.Args.CTID $BP.Args.TDBID
'    If $tmpc
  window.parent.opener.location.reload();
'    Else
  var openerform = window.parent.opener.document.forms['MailView'];
  if( openerform )
  {
    openerform.elements['BPT'].value = "";
    if( openerform.elements['Comment'] )
    {
      openerform.elements['Comment'].value = "";
    }
    openerform.submit();
  }
'    EndIf
'   Else
  window.parent.opener.location.reload();
'   EndIf
'  Else
  var openerform = window.parent.opener.document.forms['FormDoc'];
  if( openerform )
  {
    openerform.elements['Mode'].value = "Select";
    openerform.elements['CID'].value = "$CID";
'   Set $FormProfile = $Command.Form.GetFormTop $BS
'   For Each $Item in $FormProfile.Items
'    If ( $Item.Type = "User" ) and $Item.Multiple
    var u = openerform.elements['Item$Item.ID'].options;
    for( i = 0 ; i < u.length - 1 ; i ++ )
    {
      u[i].selected = true;
    }
    u[i].selected = false;
'    EndIf
'   Next
    openerform.submit();
  }
'  EndIf
}
window.parent.close();
//-->
</script>
</head>
</html>
'  Exit
' EndIf
<!--#include file="LibrarySelect.html"-->
<!--#include file="PartsCustomerSet.html"-->
' $CaptionTitle = "顧客の登録"
' Call cmHead $CaptionTitle
<script language="JavaScript" type="text/javascript"><!--
function PreSubmit( form )
{
' If ( ! $CompanyID ) and ( ! $Customer.NoCompany )
  if( confirm( '登録した顧客を会社に所属させます。\nよろしいですか？' ) )
  {
    form.Company.value = 1;
  }
' EndIf
' If $MID
  if ( IsAliveWindow( window.parent.opener ) )
  {
    var openerform = window.parent.opener.document.forms['MailView'];
    if( openerform )
    {
      form.elements['BPT'].value = openerform.elements['BPT'].value;
    }
  }
' EndIf
}
function onCancel( form )
{
' If $Select
'  $saBackURL = $Command.String.JSEncode $BackURL
  location.href='$_saBackURL';
' Else
  window.parent.close();
' EndIf
}
//-->
</script>
</head>
<body>
' Call cmChildHeader $CaptionTitle
<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="CustomerSetAddPerson">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="Company" value="">
' If $MID
<input type="hidden" name="MID" value="$MID">
<input type="hidden" name="DBID" value="$DBID">
<input type="hidden" name="Type" value="$Type">
<input type="hidden" name="TID" value="$TID">
<input type="hidden" name="BPT" value="">
' EndIf
' If $Select
<input type="hidden" name="Select" value="$Select">
' EndIf
' If $CompanyID
<input type="hidden" name="CompanyID" value="$CompanyID">
<input type="hidden" name="CompanyDB" value="$CompanyDB">
'  Set $cmp = $CIndex.Cards.$CompanyID
<img src="$IMG_PATH/company20.png"><b>$cmp.Name</b> に所属する
' EndIf
顧客データを入力してください。<br>
' Call formNote 1 1
<p>
<!--#include file="PartsCustomerAddPerson.html"-->
</p>
' Call jsOnSubmit
<p class="formCommit">
' Call cmButton "登録する" "if( onSubmit( this.form ) ){ PreSubmit( this.form ); this.form.submit(); }"
' Call cmButton "キャンセルする" "onCancel( this.form );"
</p>
</form>
' Call cmChildFooter $BackURL "会社の選択へ"
</body>
</html>