' $System.Access Customer
' $Command.Customer.AccessModify $WID $CompanyID
<!--#include file="LibraryListBox.html"-->
' If $System.IsPost
'  Set $Company = $Command.Customer.GetCustomer $WID $CompanyID 1 $CompanyDB
'  If $SectionID
'   Set $Persons = $Company.Sections.$SectionID.Member
'  Else
'   Set $Persons = $Company.Member
'  EndIf
'  If $Sort
'   $Command.Customer.SortPersons
'   $System.Redirect $Server?page=CustomerPersonOrder&wid=$WID&sectionID=$SectionID&companyID=$CompanyID&companyDB=$CompanyDB&cid=$CID&dbid=$DBID&bpt=$BPT
'   Exit
'  EndIf
'  Call lbFuncPost $PID $Persons "" "" "" "page=CustomerPersonOrder&wid=$WID&pid=$PID&sectionID=$SectionID&companyID=$CompanyID&companyDB=$CompanyDB&cid=$CID&dbid=$DBID&bpt=$BPT"
'  Exit
' EndIf
' Set $c = $CIndex.Cards.$CompanyID
' If ! $CompanyDB
'  $CompanyDB = $c.DBID
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "所属する顧客の順番変更"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=CustomerSection&wid=$WID&companyID=$CompanyID&companyDB=$CompanyDB&cid=$CID&dbid=$DBID&bpt=$BPT"
' $System.SetParameter URLCustomerView "$Server?page=CustomerView&wid=$WID&cid=$CID&dbid=$DBID&bpt=$BPT"
' $System.SetParameter URLCustomerIndex "$Server?page=CustomerIndex&wid=$WID&cgid=$CGID"
' Call cmHeader $CaptionTitle $URLCustomerIndex $WorkSpace.Customer.Name $URLCustomerView "顧客の詳細" $BackURL "部課の設定"
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="CustomerPersonOrder">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="CompanyID" value="$CompanyID">
<input type="hidden" name="CompanyDB" value="$CompanyDB">
<input type="hidden" name="CID" value="$CID">
<input type="hidden" name="DBID" value="$DBID">
' If $BPT
<input type="hidden" name="BPT" value="$BPT">
' EndIf
' Set $Company = $Command.Customer.GetCustomer $WID $CompanyID 0 $CompanyDB
' If $SectionID
<input type="hidden" name="SectionID" value="$SectionID">
'  Set $Section = $Company.Sections.$SectionID
'  Set $Persons = $Section.Member
<p>部課「$Section.Name」に所属する顧客の順番を設定してください。</p>
' Else
'  Set $Persons = $Company.Member
<p>会社直下に所属する顧客の順番を設定してください。</p>
' EndIf
<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>