Cross Segmentos - TOTVS Backoffice (Linea Protheus) - MI - Facturación (SIGAFAT) - Cuál es el funcionamiento del punto de entrada MT410PC en los pedidos de venta

Tiempo aproximado de lectura 00:05:00 min

Duda
¿Cuál es el funcionamiento del punto de entrada MT410PC en los pedidos de venta?

Entorno
Cross Segmentos - TOTVS Backoffice (Linea Protheus) - MI - Facturación (SIGAFAT) - A partir de la versión 12.1.2410

Solución
Este punto de entrada pertenece a la rutina Pedidos de venta - MATA410A(). Se encuentra dentro de la función A410TIPO9() y se utiliza para validar la condición de pago de tipo 9, lo que permite la gestión de los plazos de pago.

El punto de entrada no tiene parámetros, solo contiene información como «aHeader» y «aCols» con los artículos del pedido de venta (SC6) y la tabla de pedidos de venta (SC5) en la memoria.

En este ejemplo utilizamos un escenario de pedido de venta con un artículo, en el que se comprueba si el riesgo del cliente es distinto de «A» para asignar el 25 % del total del pedido de venta al primer pago al contado y el 75 % del importe a 30 días para el segundo pago.

#INCLUDE 'PROTHEUS.CH'

User Function MT410PC ()

    Local nPValor   := aScan(aHeader,{|x| AllTrim(x[2]) == "C6_VALOR"})
     
    SA1->(DbSetOrder( 1 ))
    SA1->(DbSeek( xFilial("SA1") + M->C5_CLIENTE + M->C5_LOJACLI ))

    If SA1->A1_RISCO <> 'A'
        M->C5_PARC1 := aCols[n][nPValor] * 0.25
        M->C5_DATA1 := DataValida(dDatabase, .T.)

        M->C5_PARC2 := aCols[n][nPValor] * 0.75
        M->C5_DATA2 := DataValida(dDatabase + 30, .T.)

        nParcelas := 2
    EndIf

Return nParcelas