Cross Segmento - TOTVS Backoffice Linha Protheus - ADVPL - Ponto de entrada MTGRDVW

Dúvida
Não estou conseguindo incluir o registro no TBrowse da rotina, como proceder?

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - ADVPL – Todas versões

Solução

Segue exemplo de customização do ponto MTGRDVW

#include "protheus.ch"

User Function MTGRDVW()
Local ExpA1 := PARAMIXB[1]
Local ExpO1 := PARAMIXB[2]
Local ExpO2 := PARAMIXB[3]

local aRet := {}
local i

for i := 1 to len(ExpO1:AHEADERS)
  aAdd(aRet, ExpO1:AHEADERS[i])
next i

aAdd(aRet, "Teste")

for i := 1 to len(ExpA1)
  aAdd(ExpA1[i],"teste " + cValToChar(i))
next i

for i := 1 to len(aRet)
  ExpO1:AddColumn(TCColumn():New(aRet[i],{||retCont(ExpO1,ExpA1)},,,,"LEFT",,.F.,.F.,,,,.F.,))
next i

Return

static function retCont(ExpO1,ExpA1)

if type("nCont") == "U"
  public nCont := 0
endIf

if procname(1) == "{ ||RETCONT(EXPO1,EXPA1)}"
  if nCont == len(ExpA1[ExpO1:NAT])
     nCont := 1
  else
    nCont++
  endIf
endIf

return ExpA1[ExpO1:NAT][iif(nCont = 0, 1,nCont)]

Com a tecla F4 da rotina de cadastro de produto é possível visualizar o o exemplo.

Saiba mais
ADV0033 Ponto de entrada MTGRDVW
MTGRDVW - Inclui campos na tela de Consulta ao estoque