Exemplo GVOrdFld

Produtos da Linha Protheus Sigafat - Faturamento - Backoffice
,
1

Alguém tem um exemplo do ponto de entrada GVOrdFld onde pego o conteúdo informado em um campo customizado na tela do portal de vendas do protheus para gravar no pedido de venda no protheus?

2 

> #Include 'TOTVS.CH'

User Function GVOrdFld()
    Local aHeader   := PARAMIXB[1] //Array com os campos e valores do cabeçalho que serão encaminhados para a gravação do Pedidos de Vendas.
    Local aItems    := PARAMIXB[2] //Array com os Itens e valores que serão encaminhados para a gravação do Pedidos de Vendas.
    Local nOpc      := PARAMIXB[3] //Número da Operação realizada (Inclusão, Alteração ou Exclusão).
    Local nX        := 1
    Local aRet      := {}

    //Validar a operação
    IF nOpc == 3 .Or. nOpc == 4
        //Adicionar campo customizado C5_XPGV no cabeçalho do Pedidos de Vendas com o valor "Reg. Op:3 Portal Gestão de Vendas"        
        Aadd( aHeader, { "C5_XPGV" , "Reg. Op:"+cValToChar(nOpc)+" Portal Gestão de Vendas", NIL } )

        //Percorrer todos os itens desse Pedido de Vendas
        For nX:= 1 To Len(aItems)
            //Adicionar campo customizado 'C6_XPGV' em todos os itens do Pedidos de Vendas com o valor "Reg. Op:3 Portal Gestão de Vendas"
             Aadd( aItems[nX], { "C6_XPGV" , "Reg. Op:"+cValToChar(nOpc)+" Portal Gestão de Vendas", NIL } )
        Next   
    EndIf

    aRet :={ aHeader, aItems }

Return aRet

https://tdn.totvs.com.br/pages/releaseview.action?pageId=709415592