PEX - Validar campo de data ao sair do formulário

Em algumas situações, é necessário que um campo de data seja validado ao sair de uma atividade. Uma data de nascimento, por exemplo, precisaríamos fazer um tratamento para não aceitar datas posteriores a data atual.

Exemplo

Neste exemplo, o usuário informa o nome e a data de nascimento de uma pessoa e ao sair da atividade, o processo verifica se a data é maior que a data atual. Se essa condição for verdadeira, o usuário não conseguirá confirmar o processo.

Fluxo: 

Pra começar é necessário criar em seu processo, uma atividade com os campos dissertativos "Nome" e "Data".

Ainda na aba Eventos, criar um evento PEX ao sair que será o responsável por definir que a data de nascimento não seja maior que a data atual, e se for, mostrar uma mensagem de erro, abortando assim, o processo iniciado. Confira na imagem abaixo

begin
     if aoFormularios.GetJSON('2').GetDt('TEXTO') > Date then // Condição se a data for maior que a data atual        
     begin
          aoMensagem.SetStr('MENSAGEM', 'Erro! Data não pode ser maior que data atual'); // mostra erro na tela
          aoMensagem.SetStr('TIPO', 'ERRO');                                    
          aoMensagem.SetBol('ABORTA', True); // aborta ação do botão de "confirmar" a atividade
     end;
end;