Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Pontos de Entrada MTGRDVW

Produto:

Protheus ADVPL

Versões:

P11 e P12

Ocorrência:

 Não estou conseguindo incluir o registro no TBrowse da rotina ?

Ambiente:

todos

Passo a passo:

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

 


Observações: