Produto:

Protheus ADVPL

Passo a passo:

Ao utilizar o PE padrão das rotinas MVC, pode ser necessário acesso aos dados dentro do Grid da Rotina MVC em alguma customização.

Este Acesso pode ser realizado mediante ao exemplo abaixo( Este exemplo é da rotina MATA094, porém pode se utilizar como base para outras rotinas MVC)

#include 'protheus.ch'
#include 'parmtype.ch'

User Function MATA094()
Local aParam:=ParamIXB
Local oObj
Local cIdPonto
Local cIdModelo
Local xRetor:=.T.
Local nLinha:=0

If aParam<> Nil
oObj:=aParam[1]
cIdPonto:=aParam[2]
cIdModelo:=aParam[3]
If cIdPonto=="BUTTONBAR" .and. cIdModelo=="MATA094"
xRetor := {}

aAdd(xRetor,{"Hist.Produto", "Historico do Produto" , {|| u_HProdut()} } )
EndIf
EndIf

Return(xRetor)

User Function HProdut()
Local oModelx := FWModelActive()
Local oGridDoc
//Local nLinha

oGridDoc:=oModelx:GetModel('GridDoc')
nLinha:=oGridDoc:nLine
SB1->(dbSetOrder(1))
SB1->(dbSeek(xFilial("SB1")+oGridDoc:GetValue("C7_PRODUTO")))
MaComView(SB1->B1_COD)

Return()

Observações