Histórico da Página

não inclui campos na interface do sistema.

#Include 'TOTVS.CH'
 
User Function GVOrdFld()
    Local aHeader   := PARAMIXB[1] //Array com os os campos e todosvalores os dados do cabeçalho que serão encaminhados para a gravação do PedidoPedidos de VendaVendas.
    Local aItems    := PARAMIXB[2] //Array com os dados dos Itens e todos os dadosvalores que serão encaminhados para a gravação do PedidoPedidos de VendaVendas.
    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 Pedido
Pedidos de Vendas com o valor "Reg. Op:3 Aadd(Portal aHeaderGestão de Vendas"               
		Aadd( aHeader, { "C5_XPGV" , "Incluido peloReg. 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 notodos itemos 1itens do Pedido
         Pedidos de Vendas com o valor "Reg. Op:3 Portal Gestão de Vendas"
             Aadd( aItems[ aItems[1] ] nX], { "C6_XPGV" , "Incluido peloReg. Op:"+cValToChar(nOpc)+" Portal Gestão de Vendas", NIL } )
        Next    
    EndIf
 
    aRet :={ aHeader, aItems }
     
Return aRet