Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Facturación (SIGAFAT) - Ejemplo de punto de entrada A468RMFUT con manipulación de Items

Tiempo aproximado de lectura 1:00 min

Duda
¿Cuál es un ejemplo de uso del punto de entrada A468RMFUT con manipulación de ítems de pedido?

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

Solución
Sigue un ejemplo de uso del punto de entrada A468RMFUT con manipulación de ítems de pedido de venta SC6:

User Function A468RMFUT

    Local aCabPV   := PARAMIXB[1]
    Local aItemPV  := PARAMIXB[2]
    Local aAreaSC6 := SC6->(GetArea())    
    Local nLin

    aadd(aCabPV,{"C5_XTESTE",SC5->C5_XTESTE,Nil})
    aadd(aCabPV,{"C5_FECENT",SC5->C5_FECENT,Nil})

    For nLin := 1 To Len(aItemPV)
        DbSelectArea("SC6")
        dbSetOrder(1)
        MsSeek(xFilial("SC6")+aItemPV[nLin][1][2]+aItemPV[nLin][2][2])
        aadd(aItemPV[nLin],{"C6_XTESTE",SC6->C6_XTESTE,Nil})
        aadd(aItemPV[nLin],{"C6_ENTREG",SC5->C5_FECENT,Nil})
    Next nLin

    RestArea(aAreaSC6)
    
Return({aCabPV,aItemPV})

Conozca más
Para adquirir más conocimiento, acceda al siguiente enlace:
TDN: PE A468RMFUT - Carga de Remisión Futura