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 é possivel visualizar o o exemplo.

Image Modified