Histórico da Página

#-----------------------------------------#
 FUNCTION <programa>_before_input_browse()
#-----------------------------------------#
 DEFINE l_codigo            LIKE <tabela>.<coluna_codigo>
        l_descricao         CHAR(35),
        l_idx               INTEGER,
        l_browse_item_count INTEGER

 {Busca a quantidade total de registros encontrados na operação Listar}
 LET l_browse_item_count = _ADVPL_get_property(m_form_reference,"BROWSE_ITEM_COUNT")

 {Processa cada uma das linhas da grid que já se encontra carregada em memória ao acionar a operação Listar}
 FOR l_idx = 1 TO l_browse_item_count
    {Recupera o valor de uma determinada coluna de uma determinada linha da grid que será exibida na operação Listar}
    LET l_codigo = _ADVPL_get_property(m_form_reference,"BROWSE_VALUE","<tabela>","<coluna_codigo>",l_ind)

    LET l_descricao = NULL
    WHENEVER ERROR CONTINUE
    SELECT <tabela>.<coluna_descricao>
      INTO l_descricao
      FROM <tabela>
     WHERE <tabela>.<coluna_codigo> = l_codigo
    WHENEVER ERROR STOP

    {Preenche o valor para a coluna virtual de cada registro da grid que será exibida na operação Listar}
    CALL _ADVPL_set_property(m_form_reference,"BROWSE_VALUE","<tabela>","<coluna_virtual>",l_idx,l_descricao)
 END FOR

 RETURN TRUE
 END FUNCTION