Estou com dificuldades para obter o valor total da cotação que está sendo analisada utilizando o PE PGCA020 em MVC
Estou fazendo o seguinte:
USER FUNCTION PGCA020()
Local aParam := PARAMIXB
continua…
oObj := aParam[1]
cIdPonto := aParam[2]
cIdModel := aParam[3]
continua…
If ( cIdPonto == ‘FORMPOS’ )
IF cIdModel == “SC8DETAIL”
continua…
For nCntItm := 1 To oObj:Length()
oObj:GoLine(nCntItm)
nTotCot += oObj:GetValue(“C8_TOTAL”)
Next nCntItm
Endif
EndIf
Return lRetPE
O problema é que a instrução oObj:Length() não retorna a quantidade de linhas da grid na cotação e mesmo que retornasse a instrução oObj:GoLine(nCntItm) não vai para a primeira linha.
Alguma ajuda?