' $System.Access Customer
' $Command.Customer.AccessModify $WID $CID
' If $System.IsPost
'  $Command.Customer.ChangeCompany $WID $CID $CompanyID $CompanyDB $SectionID
'  If $cw
'   $System.ContentType
'  Else
'   $System.Redirect $Server?page=CustomerView&wid=$WID&cid=$CID&dbid=$DBID&bpt=$BPT
'   Exit
'  EndIf
' EndIf
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryForm.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";
    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
' $CaptionTitle = "所属する会社の変更"
' Call cmHead $CaptionTitle
</head>
<body>
' Set $c = $CIndex.Cards.$CID
' If $CompanyID
'  Set $Company = $Command.Customer.GetCustomer $WID $CompanyID 0 $CompanyDB
' EndIf
' If $cw
'  $System.SetParameter BackURL "$Server?page=CustomerSelectCompany&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&type=$Type&tid=$TID&cid=$CID&cw=1"
'  Call cmChildHeader $CaptionTitle
' Else
'  $System.SetParameter URLCustomerIndex "$Server?page=CustomerIndex&wid=$WID"
'  $System.SetParameter URLCustomerView "$Server?page=CustomerView&wid=$WID&cid=$CID&dbid=$DBID&bpt=$BPT"
'  $System.SetParameter BackURL "$Server?page=CustomerSelectCompany&wid=$WID&cid=$CID&dbid=$DBID&bpt=$BPT"
'  Call cmHeader $CaptionTitle $URLCustomerIndex $WorkSpace.Customer.Name $URLCustomerView "顧客の詳細" $BackURL "所属する会社の選択"
' EndIf
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="CustomerChangeCompany">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="CID" value="$CID">
<input type="hidden" name="DBID" value="$DBID">
<input type="hidden" name="CompanyID" value="$CompanyID">
<input type="hidden" name="CompanyDB" value="$CompanyDB">
' If $cw
<input type="hidden" name="CW" value="$CW">
<input type="hidden" name="MID" value="$MID">
<input type="hidden" name="Type" value="$Type">
<input type="hidden" name="TID" value="$TID">
' Else
<input type="hidden" name="BPT" value="$BPT">
' EndIf
<p>\\
' Call cmImage "person20.png"
<b>$c.Name</b> さんを\\
' If $CompanyID
'  Call cmImage "company20.png"
<b>$Company.Name</b> に所属させます。<br>
' Else
会社に所属しないようにします。<br>
' EndIf
よろしいですか？</p>
' If $Company.Sections.Count and ( ! $Customer.Person.Section.Disable )
<blockquote>
'  Call cmImage "item16.png"
部課
<select name="SectionID">
<option value="">----
'  Options $SectionID in $Company.Sections
</select>
</blockquote>
' EndIf
' $saBackURL = $Command.String.JSEncode $BackURL
' Call formCommit "はい" "いいえ" "" "location.href='$saBackURL';"
</form>
' If $cw
'  Call cmChildFooter $BackURL "所属する会社の選択へ"
' Else
'  $BS = -2
'  Call cmFooter $BackURL "所属する会社の選択へ"
' EndIf
</body>
</html>