Caso exista a necessidade de utilizar métodos parecidos para Condição e lista de valores (exemplo: validar apenas se o usuário possui permissão para o estabelecimento), pode ser utilizado uma regra para condição diferente (<>) do retorno externo, no zoom de condições do objeto. Dessa forma, para ambas as propriedades podem ser utilizadas um único método.

/********************************************************************************
** Copyright DATASUL S.A. (1997)
** Todos os Direitos Reservados.
**
** Este fonte e de propriedade exclusiva da DATASUL, sua reproducao
** parcial ou total por qualquer meio, so podera ser feita mediante
** autorizacao expressa.
*******************************************************************************/
/*******************************************************************************
**   Programa..: soexp001.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 exampleMethod01
Objetivo: Exemplo de validacao do usuario corrente
*******************************************************************************/
PROCEDURE exampleMethod01:
    DEF OUTPUT PARAM pLogReturn  AS LOGICAL   NO-UNDO.
    DEF OUTPUT PARAM pDesMessage AS CHARACTER NO-UNDO.
 
    MESSAGE getCurrentObjectHandle() SKIP
            getCurrentObjectName  () SKIP
            getCurrentObjectValue () SKIP
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
 
    IF v_cod_usuar_corren <> getCurrentObjectValue() THEN
        ASSIGN pLogReturn  = NO
               pDesMessage = "Usuário inválido. O usuário corrente deve ser "
                           + v_cod_usuar_corren.
    ELSE
        ASSIGN pLogReturn  = YES.  
    RETURN.
END PROCEDURE.
 
/*******************************************************************************
Procedure exampleMethod02
Objetivo: Exemplo de condicao para botao conforme usuario / data
*******************************************************************************/
PROCEDURE exampleMethod02:
    DEF OUTPUT PARAM pLogReturn  AS LOGICAL   NO-UNDO.
    DEF OUTPUT PARAM pDesMessage AS CHARACTER NO-UNDO.
 
    MESSAGE getCurrentObjectHandle() SKIP getObjectHandle("data-atual") SKIP
            getCurrentObjectName  () SKIP getObjectName  ("data-atual") SKIP
            getCurrentObjectValue () SKIP getObjectValue ("data-atual") SKIP
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
 
    /* +++ condicao para desabilitar/esconder botao +++ */
    IF v_cod_usuar_corren <> getCurrentObjectValue()
        OR DATE(getObjectValue("data-atual")) <> TODAY THEN
        /* +++ desabilita o botao +++ */
        ASSIGN pLogReturn  = YES.
    ELSE
        /* +++ botao permanece no seu estado atual +++ */
        ASSIGN pLogReturn  = NO.   
    RETURN.
END PROCEDURE.
 
/*******************************************************************************
Procedure exampleMethod03
Objetivo: Exemplo de Valor Inicial para um objeto
*******************************************************************************/
PROCEDURE exampleMethod03:
    DEF OUTPUT PARAM pDesReturn  AS CHARACTER NO-UNDO.
 
    MESSAGE getCurrentObjectHandle() SKIP
            getCurrentObjectName  () SKIP
            getCurrentObjectValue () SKIP
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
 
    /* +++ verifica qual o usuario +++ */
    IF v_cod_usuar_corren <> getCurrentObjectValue() THEN
        ASSIGN pDesReturn  = "12345".
    ELSE
        ASSIGN pDesReturn  = "55555".
   
    RETURN.
END PROCEDURE.

Dica - Para verificar os valores dos objetos da tela, é possível mostrar uma mensagem na tela dos resultados obtidos pelas funções para verificação.

MESSAGE getCurrentObjectHandle() SKIP getObjectHandle("<Apelido>") SKIP
            getCurrentObjectName  () SKIP getObjectName  ("<Apelido>") SKIP
            getCurrentObjectValue () SKIP getObjectValue ("<Apelido>") SKIP
        VIEW-AS ALERT-BOX INFO BUTTONS OK.

Dica - Para métodos utilizados na lista de valores, é possível retornar uma mensagem ao usuário caso ocorra erros de validação.

Assign pDesMessage = "Data inválida. A data de ser maior que "
                       + string(getObjectValue ("data-atual")).

Dica - Eventualmente pode ser construído um método de retorno externo para lista de valores e para condição que tenham o mesmo objetivo ou a mesma codificação. Mas como a lista de valores deve retornar YES para OK e a propriedade condição tem que retornar YES para desabilitar, no zoom de condição pode ser criada uma regra utilizando o mesmo método de validação, apenas com o tipo diferente (<>). Dessa forma, se o retorno externo for NO, o objeto é desabilitado ou escondido.

Dica - Existe um programa já definido que pode servir de exemplo para utilização da construção do programa de retorno externo. O mesmo encontra-se no diretório FONTES/SOP/SOEXP001.ZIP. Aconselha-se ao usuário administrador abrir esse programa e efetuar a opção “Salvar Como” para criar um programa de retorno externo, conforme nomenclatura desejada pelo usuário administrador.