public function ExeDelete($PerfilId)
 {
     $this->Perfil = (int) $PerfilId;
     $ReadPerfil = new WsPerfil();
     $ReadPerfil->setPerfil_id($this->Perfil);
     $ReadPerfil->Execute()->find();
     if (!$ReadPerfil->Execute()->getResult()) {
         $this->Error = ['O perfil que você tentou deletar não existe no sistema!', WS_ERROR];
         $this->Result = false;
     } else {
         $WsUsers = new WsUsers();
         $WsUsers->setPerfil_id($this->Perfil);
         $WsUsers->Execute()->find();
         $PerfilDelete = $ReadPerfil->Execute()->getResult();
         $ReadPerfil->setThis($PerfilDelete);
         if ($WsUsers->Execute()->getResult()) {
             $this->Error = ["<b>{$ReadPerfil->getPerfil_title()}</b> não pode ser deletado, pois esta sendo utilizado!", WS_ERROR];
             $this->Result = false;
         } else {
             $ReadPerfil->Execute()->delete();
             $this->Error = ["<b>{$PerfilDelete->perfil_title}</b> foi removido com sucesso do sistema!", WS_ACCEPT];
         }
     }
 }