CodLocIns

/* Esta regra verifica se a quantidade de caracteres de CodLoc (incluindo pontos) é maior que 5. Se for maior, pedirá se deseja continuar e incluir ou cancelar o cadastro. */

definir alfa xLocal;
definir numero xTamanho;
xLocal = CodLocIns;

@- pega a quantidade de caracteres de xLocal -@
TamanhoAlfa(xLocal, xTamanho);

Se (xTamanho > 5)
  Inicio
    Retorna = Mensagem(Retorna, "Local maior que 5 dígitos! [&Continuar,&Parar]");
    Se (Retorna = 1)
    Cancel(1);
  Fim;