Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Facturación (SIGAFAT) - Punto de Entrada para llenar ubicación en remito de devolución con base en remito de venta

Tiempo aproximado para lectura: 2:00 min

Duda
¿Cuál punto de entrada utilizar en la rutina MATA462DN para llenar automáticamente la ubicación de producto en la carga de un remito de devolución llamando al remito de venta como documento original?

Ambiente
Cross Segmentos - TOTVS BackOffice (Línea Protheus) MI - Facturación (SIGAFAT) – Versión 12

Solución
El punto de entrada LXDORIG permite modificar los ítems en un remito de devolución cuando es cargado a partir de un documento origen.

Para el punto de entrada LXDORIG se recomienda tener las siguientes consideraciones:

• El punto de entrada se detona por cada ítem del documento origen.
• El punto de entrada no recibe ningún parámetro y tampoco retorna algún valor.
• Para identificar el ítem que será modificado puede usar la función LEN(). Ejemplo: Len(aCols).

A continuación, se comparte un ejemplo del punto de entrada para llenar la ubicación en D1_LOCALIZ del Remito de Devolución con la ubicación informada en D2_LOCALIZ del Remito de Venta que se vincula:

#INCLUDE "PROTHEUS.CH"

USER FUNCTION LXDORIG()

    Local nPosLocali := aScan(aHeader,{|x| AllTrim(x[2]) == "D1_LOCALIZ"  } )
    IF (nPosLocali   > 0 ,aCols[Len(aCols),nPosLocali] := SD2->D2_LOCALIZ  ,)

RETURN