Regra por processo 125 - Inserir 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;