' $System.Access Customer
' $Command.Customer.AccessModify $WID $CompanyID
' If $System.IsPost
'  $Command.Customer.DeleteSection
'  $System.Redirect $Server?page=CustomerSection&wid=$WID&companyID=$CompanyID&companyDB=$CompanyDB&cid=$CID&dbid=$DBID&bpt=$BPT
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryDelete.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="CustomerSectionDelete">
<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">
<input type="hidden" name="SectionID" value="$SectionID">
' If $BPT
<input type="hidden" name="BPT" value="$BPT">
' EndIf
' Set $Company = $Command.Customer.GetCustomer $WID $CompanyID 0 $CompanyDB
' Set $Section = $Company.Sections.$SectionID
' Call delConfirm "$Company.Name の部課" $Section.Name "部課を削除すると、所属する顧客は全て会社直下に配置されます。"
</form>
' $BS = -2
' Call cmFooter $BackURL "部課の設定へ"
</body>
</html>