' $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
'   $System.SetParameter BackURL "$Server?page=MailSelectCustomer&wid=$WID$$Arg"
'  Else
'   $System.SetParameter BackURL "$Server?page=CustomerSelectCompany&wid=$WID&cid=$PersonID&cw=1$Arg"
'  EndIf
' Else
'  If $Select
'   $System.SetParameter BackURL "$Server?page=FormSelectCustomer&wid=$WID&bs=$BS&select=$Select"
'  EndIf
' EndIf
'' <!---------------------バックページ定義終了----------------------------->
' If $System.IsPost
'  Set $company = $Command.Customer.AddCompany
'  $CompanyID = $company.ID
'  $CompanyDB = $company.DBID
'  $System.SaveClose
'  If $PersonID
'   $Command.Customer.ChangeCompany $WID $PersonID $CompanyID $CompanyDB
'  EndIf
'  If $Select and $MID
'   $System.Redirect $Server?page=MailSelectPerson&wid=$WID&cid=$CompanyID$$Arg
'   Exit
'  Else
'   $System.ContentType
'  EndIf
' EndIf
' $SCGID = $CGID
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' If $System.IsPost
' Call cmLoadJavaScript "window"
<script language="JavaScript" type="text/javascript"><!--
if ( IsAliveWindow( window.parent.opener ) )
{
' If $MID
  window.parent.opener.location.reload();
' Else
  var openerform = window.parent.opener.document.forms['FormDoc'];
  if( openerform )
  {
    openerform.elements['Mode'].value = "Select";
'  If $PersonID
    openerform.elements['CID'].value = "$PersonID";
'  Else
    openerform.elements['CID'].value = "$CompanyID";
'  EndIf
'  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 = "会社の登録"
' If $MID and ( ! $Select )
'  $CaptionBackPage = "所属する会社の選択へ"
' Else
'  $CaptionBackPage = "顧客の選択へ"
' EndIf
' Call cmHead $CaptionTitle
<script language="JavaScript" type="text/javascript"><!--
function onCancel( form )
{
' If $BackURL
'  $saBackURL = $Command.String.JSEncode $BackURL
  location.href='$_saBackURL';
' Else
  window.parent.close();
' EndIf
}
//-->
</script>
</head>
<body>
' Init $BS = "c"
' 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="CustomerSetAddCompany">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
' If $PersonID
<input type="hidden" name="PersonID" value="$PersonID">
<input type="hidden" name="PersonDB" value="$PersonDB">
' EndIf
' If $Select
<input type="hidden" name="Select" value="$Select">
' EndIf
' 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">
' EndIf
' If $CGID
<input type="hidden" name="CGID" value="$CGID">
' EndIf
会社の情報を入力してください。<br>
' Call formNote 1 1
<p>
<!--#include file="PartsCustomerAddCompany.html"-->
</p>
' Call jsOnSubmit 1
<p class="formCommit">
' Call cmButton "登録する" "if( onSubmit( this.form ) ){ this.form.submit(); }"
' Call cmButton "キャンセルする" "onCancel( this.form );"
</p>
</form>
' Call cmChildFooter $BackURL $CaptionBackPage
</body>
</html>