DT PE GVOrdFld - Agregar nuevos campos en el procesamiento de grabación del Pedido de ventas del PGV

#Include 'TOTVS.CH'
 
User Function GVOrdFld()
    Local aHeader   := PARAMIXB[1] //Array con los campos y valores del encabezado que se encaminarán para la grabación de Pedidos de ventas.
    Local aItems    := PARAMIXB[2] //Array con los ítems y valores que se encaminarán para la grabación de Pedidos de ventas.
    Local nOpc      := PARAMIXB[3] //Número de la operación realizada (Inclusión, Modificación o Borrado).
    Local nX        := 1
    Local aRet      := {}
    
    //Validar la operación
    IF nOpc == 3 .Or. nOpc == 4
        //Agregar campo personalizado C5_XPGV en el encabezado del Pedido de ventas con el valor "Reg. Op:3 Portal Gestión de ventas"         
		Aadd( aHeader, { "C5_XPGV" , "Reg. Op:"+cValToChar(nOpc)+" Portal Gestión de ventas", NIL } )
    
        //Recorrer todos los ítems de este Pedido de ventas
        For nX:= 1 To Len(aItems)
            //Agregar campo personalizado 'C6_XPGV' en todos los ítems del Pedido de ventas con el valor "Reg. Op:3 Portal Gestión de ventas"
             Aadd( aItems[nX], { "C6_XPGV" , "Reg. Op:"+cValToChar(nOpc)+" Portal Gestión de ventas", NIL } )
        Next    
    EndIf
 
    aRet :={ aHeader, aItems }
     
Return aRet