' $System.Access Customer
' $Command.Customer.AccessModify $WID $CompanyID
' If $System.IsPost
'  $System.Redirect $Server?page=CustomerOrder&wid=$WID&companyID=$CompanyID&companyDB=$CompanyDB&cid=$CID&dbid=$DBID&pid=$PID&bpt=$BPT
'  Set $Company = $Command.Customer.GetCustomer $WID $CompanyID 1 $CompanyDB
'  Set $Persons = $Company.Persons
'  If $Sort
'   $Command.Customer.SortPersons
'   $System.Redirect $Server?page=CustomerView&wid=$WID&cid=$CID&dbid=$DBID&bpt=$BPT
'   Exit
'  EndIf
'  If $PID
'   If $Top
'    $System.OrderTop $Persons $PID
'   Elif $Up
'    $System.OrderUp $Persons $PID
'   Elif $Down
'    $System.OrderDown $Persons $PID
'   Elif $Bottom
'    $System.OrderBottom $Persons $PID
'   EndIf
'  EndIf
'  Exit
' EndIf
' Set $Company = $Command.Customer.GetCustomer $WID $CompanyID 0 $CompanyDB
' Set $Persons = $Company.Persons
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "顧客の順番変更"
' $System.SetParameter BackURL "$Server?page=CustomerView&wid=$WID&cid=$CID&dbid=$DBID&bpt=$BPT"
' $System.SetParameter URLCustomerIndex "$Server?page=CustomerIndex&wid=$WID"
' Call cmHead $CaptionTitle
</head>
<body>
' Call cmHeader $CaptionTitle $URLCustomerIndex $WorkSpace.Customer.Name $BackURL "会社の詳細"
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="CustomerOrder">
<input type="hidden" name="WID" value="$WID">
<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">
<input type="hidden" name="BPT" value="$BPT">
<p>\\
' Call cmImage "company20.png"
<b>$Company.Name</b> に所属する顧客の順番を設定してください。</p>
<table border="0" cellspacing="0" cellpadding="2">
 <tr>
  <td align="middle">\\
' Call cmImageButton "" "order_top20.png" "Top"
<br><br>
' Call cmImageButton "" "order_up20.png" "Up"
<br><br>
' Call cmImageButton "" "order_down20.png" "Down"
<br><br>
' Call cmImageButton "" "order_bottom20.png" "Bottom"
</td>
  <td>
<select name="PID" size="10">
' For Each $p in $Persons
'  $PersonID = $p.CID
'  $Name = $CIndex.Cards.$PersonID.Name
'  If $p.ID = $PID
<option value="$p.ID" selected>$Name</option>
'  Else
<option value="$p.ID">$Name</option>
'  EndIf
' Next
<option value="">　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　</option>
</select>
</td></tr>
</table>
<ul><li>所属する顧客の順番を「よみ」順に \\
' Call formSubmit "Sort" "並べ替える"
</li></ul>
</form>
' $BS = -2
' Call cmFooter $BackURL "アドレスデータの詳細へ"
</body>
</html>