' $System.Access Customer
' Set $Company = $Command.Customer.GetCustomer $WID $CompanyID 0 $CompanyDB
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' $CaptionTitle = "部課の設定"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=CustomerView&wid=$WID&cid=$CID&dbid=$DBID&bpt=$BPT"
' $System.SetParameter URLCustomerIndex "$Server?page=CustomerIndex&wid=$WID"
' Call cmHeader $CaptionTitle $URLCustomerIndex $WorkSpace.Customer.Name $BackURL "会社の詳細"
<p>
<b>$Company.Name</b> に所属する部課・顧客の情報を設定します。
</p><p>
' If $WorkSpace.Customer.IsAccessCreate
'  Call cmLink "部課を追加する" "write20.png" "$Server?page=CustomerSectionAdd&wid=$WID&companyid=$CompanyID&companyDB=$CompanyDB&cid=$CID&dbid=$DBID&bpt=$BPT"
' EndIf
' If $WorkSpace.Customer.IsAccessModify
'  If $Company.Sections.Count > 1
'   $Disable = 0
'  Else
'   $Disable = 1
'  EndIf
'  Call cmLink "部課の順番変更" "order20.png" "$Server?page=CustomerSectionOrder&wid=$WID&companyID=$CompanyID&companyDB=$CompanyDB&cid=$CID&dbid=$DBID&bpt=$BPT" $Disable
&nbsp;
'  If $Company.Member.Count > 1
'   $Disable = 0
'  Else
'   $Disable = 1
'  EndIf
'  Call cmLink "会社直下に所属する顧客の順番変更" "order20.png" "$Server?page=CustomerPersonOrder&wid=$WID&companyID=$CompanyID&companyDB=$CompanyDB&cid=$CID&dbid=$DBID&bpt=$BPT" $Disable
' EndIf
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr bgcolor="#cccccc"><th width="200" nowrap>部課名</th><th width="400" nowrap>操作</th></tr>
' For Each $Section in $Company.Sections
<tr><td nowrap>$Section.Name</td><td nowrap>
'  If $WorkSpace.Customer.IsAccessModify
'   Call cmLink "変更する" "write20.png" "$Server?page=CustomerSectionModify&wid=$WID&sectionID=$Section.ID&companyID=$CompanyID&companyDB=$CompanyDB&cid=$CID&dbid=$DBID&bpt=$BPT"
'  EndIf
'  If $WorkSpace.Customer.IsAccessDelete
'   Call cmLink "削除する" "delete20.png" "$Server?page=CustomerSectionDelete&wid=$WID&sectionID=$Section.ID&companyID=$CompanyID&companyDB=$CompanyDB&cid=$CID&dbid=$DBID&bpt=$BPT"
'  EndIf
'  If $WorkSpace.Customer.IsAccessModify
&nbsp;
'   If $Section.Member.Count > 1
'    $Disable = 0
'   Else
'    $Disable = 1
'   EndIf
'   Call cmLink "所属する顧客の順番変更" "order20.png" "$Server?page=CustomerPersonOrder&wid=$WID&sectionID=$Section.ID&companyID=$CompanyID&companyDB=$CompanyDB&cid=$CID&dbid=$DBID&bpt=$BPT" $Disable
'  EndIf
</td></tr>
' Next
</table>
</p>
' $BS = -2
' Call cmFooter $BackURL "会社の詳細へ"
</body>
</html>