PEX - Validação de Campos

Validar Campo Data ao Sair do Formulário 

 Neste tópico veremos como validar um campo de data ao sair do formulário utilizando PEX. 

 Exemplo de Código 

 if aoFormularios.GetJSON('ID_DO_CAMPO').GetDt('TEXTO') = 0 then begin aoMensagem.SetStr('MENSAGEM', 'O campo de data é obrigatório!'); AbortarOperacao; end; 

 No exemplo acima, o código verifica se o campo de data está vazio (igual a 0) e, caso esteja, exibe uma mensagem e aborta a operação. 

 Validar Campo Somente Leitura 

 Neste tópico veremos como validar um campo que está como somente leitura, mas que é obrigatório no processo. 

 Quando um campo é configurado como somente leitura, o usuário não consegue preenchê-lo manualmente, mas pode ser necessário garantir que ele esteja preenchido por algum evento ou processo automático. 

 Exemplo de código 

 1if aoFormularios.GetJSON('ID_DO_CAMPO').GetStr('TEXTO') = '' then begin aoMensagem.SetStr('MENSAGEM', 'O campo obrigatório não foi preenchido!'); AbortarOperacao; end; 

 No exemplo acima, o código verifica se o campo está vazio e, caso esteja, exibe uma mensagem e aborta a operação. 

 Validar Campos ou Dados via PEX 

 Este tópico tem a finalidade de abordar os principais validadores presentes no PEX, como bem sabemos, o PEX nas versões maiores que 12 possuem um assistente PEX, no PEX existem também muitas rotinas e/ou funções publicadas que podem ser acessadas via menu de contexto, conforme imagem abaixo: 

 As funções abordadas serão: 

 TSTR.Testa_CNPJ(Codigo); TSTR.Testa_CPF(Codigo); TSTR.of_IsNotNullEMA(asText); TSTR.of_IsNullEMA(asText); TSTR.of_VerificaEmail(asTexto, abVerificaNull); TSTR.of_TemNumero(s); TSTR.of_TemTexto(s, abValida); TSTR.of_UFValido(asUF); TSTR.of_IsCodigoBarra(Codigo); 

 Valida CNPJ 

 Esta função deve ser utilizada com uma variável do PEX, variável do processo e/ou formulário do processo afim de validar um CPNJ, retornando False (Booleana) no caso de digitado um CPNJ inválido por engano ou algo do gênero. 

 var CNPJ : string; Resposta : Boolean; begin CPNJ := '07297774000175'; //CNPOJ Informado em um formulario e/ou variavel do tipo texto Resposta := TSTR.Testa_CNPJ(CNPJ); -- Retorna True ou False para varaivel boleana end;