' $System.Access Login
' $WorkSpace.AccessManage
' If $System.IsPost
'  $System.Redirect $Server?page=ManageCustomerGroup&wid=$WID&id=$ID
'  If $Company
'   $Command.Customer.ModifyCompanyGroup
'  Else
'   $Command.Customer.ModifyPersonGroup
'  EndIf
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' If $Company
'  $CName = "会社"
' Else
'  $CName = "顧客"
' EndIf
<!--#include file="PartsCustomerGroup.html"-->
' $CaptionTitle = "アドレスグループの変更"
' Call cmHead $CaptionTitle 1
</head>
<body>
' $System.SetParameter BackURL "$Server?page=ManageCustomerGroup&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=ManageAdmin&wid=$WID&id=$ID" "運用管理" $BackURL "アドレスグループの設定"
<form method="post" action="$Server?" onSubmit="return onSubmit( this );">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="ManageCustomerGroupModify">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<input type="hidden" name="CGID" value="$CGID">
<input type="hidden" name="Company" value="$Company">
<p>
' If $Company
変更する会社グループの情報を設定してください。
'  Set $Group = $Customer.Company.Groups.$CGID
' Else
変更する顧客グループの情報を設定してください。
'  Set $Group = $Customer.Person.Groups.$CGID
' EndIf
<br>
' Call formNote 1
</p>
' Call SetCustomerGroup $Group
' $escBackURL = $Command.String.JSEncode $BackURL
' Call formCommit "変更する" "" "" "location.href='$escBackURL'"
</form>
' Call cmChildFooter $BackURL "アドレスグループの設定へ"
</body>
</html>