public function canDeleteRecord($record = null)
    {
        if ($this->dataPermControl == 'Y') {
            $svcObj = Openbizx::getService(OPENBIZ_DATAPERM_SERVICE);
            if (!$record) {
                $record = $this->getActiveRecord();
            }
            $result = $svcObj->checkDataPerm($record, 3, $this);
            if ($result == false) {
                return false;
            }
        }

        $result = $this->canDeleteRecordCondition();
        return $result;
    }