' $System.Access Login
' $WorkSpace.AccessManage
<!--#include file="LibraryListBox.html"-->
' If $Company
'  Set $CustomerGroups = $Customer.Company.Groups
' Else
'  Set $CustomerGroups = $Customer.Person.Groups
' EndIf
' If $System.IsPost
'  Call lbFuncPost $CGID $CustomerGroups "" "" "" "page=ManageCustomerGroupOrder&wid=$WID&id=$ID&cgid=$CGID&company=$Company"
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' $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?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="ManageCustomerGroupOrder">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<input type="hidden" name="Company" value="$Company">
<p>\\
' If $Company
会社\\
' Else
顧客\\
' EndIf
グループの順番を設定してください。</p>
<p>
' Call ListBox "CGID" $CustomerGroups $CGID 1
</p>
</form>
' Call cmChildFooter $BackURL "アドレスグループの設定へ"
</body>
</html>