SXB LookUps - Customização das consultas de usuarios

Boa noite,

Você deverá criar a sua função que exiba a sua consulta de usuário, essa tela pode ser da forma que você desejar, essa função deve ter um retorno booleano, conforme o usuário ter confirmado ou não a consulta.

Em caso de confirmar, você deve ter uma forma de retornar o valor que o usuário selecionou, podendo ser uma outra função, como muitos fazem.

Por exemplo:

#include "protheus.ch"

static __cUserF3 as char

user function pesqUser()
local lRet as logical

//Regra de negócio e tela deve ser feita aqui

__cUserF3 := "000000" //Valor que o usuário selecionou conforme a regra e tela
lRet := .T. //Somente caso o usuário tenha confirmado a tela de consulta

return lRet

user function getUsrF3()
return __cUserF3

Com esse fonte criado e compilado, entre no configurador e crie sua consulta padrão da seguinte forma:

Boa tarde, Daniel! Tentei utilizar o exemplo que você forneceu para criar uma consulta padrão, mas estou tendo problemas. O sistema não está chamando a função de retorno, no caso a getUsrF3.

Chamei a consulta padrão depurando, a tela e regra de negócio é criada normalmente, mas a função de retorno nunca é chamada e a consulta sempre retorna vazio.

Teria alguma ideia do que pode ser? Segue trechos:

Static __cRet       := ''

User Function ELFATC05
Local lRet          := .T.
Local oModal        := Nil
Local aCoors         := FwGetDialogSize()
Private aBrwData    := {}
Private aBrwModel   := {}
Private aBrwCol     := {}
Private aBrwSeek    := {}
Private oBrowse     := Nil

    fLoadData()

    oModal := FwDialogModal():New()

        oModal:SetEscClose(.F.)
        oModal:SetSize(aCoors[3] / 2.5, aCoors[4] / 2.7)
        oModal:CreateDialog()

        oModal:EnableFormBar(.T.)
        oModal:CreateFormBar()

        oBrowse := FwBrowse():New()
        oBrowse:SetDataArray()
        oBrowse:SetArray(aBrwData)
        oBrowse:SetColumns(aBrwCol)
        oBrowse:SetSeek(, aBrwSeek)
        oBrowse:SetOwner(oModal:GetPanelMain())
        oBrowse:SetDoubleClick({ || lRet := .T., __cRet := aBrwData[oBrowse:nAt,2], oModal:DeActivate()    })
        oBrowse:Activate()

        oModal:AddButton('Ok'        , { || lRet := .T., __cRet := aBrwData[oBrowse:nAt,2], oModal:DeActivate()    }, 'Ok'         ,,.T.,.F.,.T.,)
        oModal:AddButton('Cancelar'    , { || lRet := .F., oModal:DeActivate()                                        }, 'Cancelar'    ,,.T.,.F.,.T.,)

    oModal:Activate()

Return(lRet)

User Function FATC05RT

Return(__cRet)