Regra por processo 127 - Excluir Registro Imposto de Renda

DEFINIR NUMERO x;
DEFINIR NÚMERO vTotGrupos;
DEFINIR ALFA vGrupo;

vTotGrupos = RetornaQtdGrupos();
PARA (x = 1; x < = vTotGrupos; x ++)
INICIO
Se (vTotGrupos >=1)
Inicio
Mensagem (erro,"Não será possível executar a operação na tela de cadastro do Imposto de Renda Verifique Usuários.");
Cancela (1);
Orden;
FIM;