Depois de concluído esse processo pode se visualizar o funcionamento do perfil em ação. Deve ser executado por um usuário que não seja administrador do SOP para as validações funcionarem corretamente.

/*******************************************************************************
**   Programa..: validaestab.p
**   Objetivo..: Retorno Externo para propriedades Condicao/Lista Valores SOP
**   Data......: 01/10/2002
**   Notas.....: Programa de exemplo de retorno externo.
**               Contém o protótipo necessário para definicao de programas de
**               retorno externo e definição dos métodos
**               É possível adicionar novos métodos, conforme necessidade          
********************************************************************************/
  
/* +++ definicao da biblioteca de funcoes +++ */
{sop\solib001.i}
  
/* +++    prototipacao dos metodos existentes - apenas para consulta   +++ */
/* +++ FUNCTION getObjectHandle        RETURNS HANDLE (vAlias AS CHAR) +++ */
/* +++ FUNCTION getObjectName          RETURNS CHAR   (vAlias AS CHAR) +++ */
/* +++ FUNCTION getObjectValue         RETURNS CHAR   (vAlias AS CHAR) +++ */
/* +++ FUNCTION getCurrentObjectHandle RETURNS HANDLE (              ) +++ */
/* +++ FUNCTION getCurrentObjectName   RETURNS CHAR   (              ) +++ */
/* +++ FUNCTION getCurrentObjectValue  RETURNS CHAR   (              ) +++ */
  
/* +++ definicao de variaveis +++ */
DEF NEW GLOBAL SHARED VAR v_cod_usuar_corren AS CHAR NO-UNDO.
  
/*******************************************************************************
Procedure validaEstabData
Objetivo: Exemplo de validacao do estabelecimento atraves de tabela
e tambem da data
*******************************************************************************/
PROCEDURE validaEstabData:
    /* +++ parametros necessarios sop +++ */
    DEFINE OUTPUT PARAMETER pLogOk      AS LOGICAL   NO-UNDO.
    DEFINE OUTPUT PARAMETER pDesMessage AS CHARACTER NO-UNDO.
    
    /* +++ variaveis locais +++ */
    DEFINE VARIABLE estab     AS CHARACTER NO-UNDO.
    DEFINE VARIABLE valordata AS DATE      NO-UNDO.
    /* +++ codigo da validação +++ */
    ASSIGN estab = getCurrentObjectValue(). /* pegar o valor do campo cod-estabel */
    FIND FIRST usuar-estab NO-LOCK
       WHERE usuar-estab.cod-usuar = v_cod_usuar_corren
       AND   usuar-estab.cod-estab = estab NO-ERROR.
    IF NOT AVAIL usuar-estab THEN DO:
        ASSIGN pLogOk = NO
               pDesMessage = 'Estabelecimento inválido'.
        RETURN.
    END.
    valordata = DATE(getObjectValue('data')).
    
    IF valordata < (TODAY - 30) THEN DO:
        ASSIGN pLogOk = NO
               pDesMessage = 'Data de implantação não pode menor do que 30 dias atrás'.
        RETURN.
    END.
    ASSIGN pLogOk = YES.
    RETURN.
END PROCEDURE.
  
PROCEDURE validaValorBranco:
    /* +++ parametros necessarios sop +++ */
    DEFINE OUTPUT PARAMETER pLogOk      AS LOGICAL   NO-UNDO.
    DEFINE OUTPUT PARAMETER pDesMessage AS CHARACTER NO-UNDO.
    plogok = (getcurrentObjectValue() = '').
    RETURN.
  
END PROCEDURE.