Bom dia Gustavo,
Conheço essas maneiras abaixo. Espero que ajude!
Enviando por parâmetro o objeto da view ,ficaria algo próximo disso:
...
oView:AddUserButton('Reenviar Email para Vendedor','', { |oView| Processa( {|| ReenviaEmail(oView)}, "Aguarde..."), , , , .T.})
Return
Static Function ReenviaEmail(oView)
Local cVend := FwFldGet("ZCM_VEND")
...
Return
Se a informação que você precisa usar está em um objeto de grid, e o cursor está posicionado na linha. Pode ser desta forma:
...
oView:AddUserButton('Reenviar Email para Vendedor','', { |oView| Processa( {|| ReenviaEmail(oView)}, "Aguarde..."), , , , .T.})
Return
Static Function ReenviaEmail(oView)
Local oModel := FwModelActive()
Local oModelZCM := oModel:GetModel('ZCMDETAIL')
Local cVend := oModelZCM :GetValue('ZCM_VEND')
...
Return