Regra por processo 125 - Inserir Registro Imposto de Renda

DEFINIR NUMERO x;
DEFINIR NUMERO 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.");
        Cancel(1);
        Fim;
FIM;