Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

01. DATOS GENERALES

Producto:

TOTVS Backoffice

Línea de producto:

Línea Protheus

Segmento:

Backoffice

Módulo:SIGAFAT - Facturación
Función:MATA410 - Pedidos de venta

02. DESCRIPCIÓN

Este punto de entrada pertenece a la rutina de Pedidos de Venta - MATA410A(). Está ubicado dentro de la función A410TIPO9() y se utiliza para validar la Condición de pago Tipo 9, esto permite manejar las cuotas.

Características de la condición de pago Tipo 9


Importante

  • Asegúrese de que la suma de las cuotas generadas por el punto de entrada esté igual al valor total del pedido de venta.
  • La cantidad de cuotas generadas por el punto de entrada no debe ser superior al contenido del parámetro MV_NUMPARC.
  • La cantidad total de cuotas que poden ser generadas por el punto de entrada, depende de la cantidad de campos C5_PARCx y C5_DATAx que existen en la tabla SC5.

03. SINTAXIS

MT410PC( ) ---> nParcelas

04. PARÁMETROS

El punto de entrada no tiene parámetros, solamente informaciones como aHeader y aCols con los ítems del pedido de venta (SC6) y la tabla de Pedidos de Venta (SC5) en la memoria.

05. DEVOLUCIÓN

Devolución

Tipo

Descripción

Obligatorio

nParcelasNúmerica

Variável númerica indicando a quantidade de parcelas que será gerada.

Sí

06. EXEMPLO

En este ejemplo utilizamos un escenario de pedido de venta con un ítem, donde se está verificando si el riesgo del cliente está diferente de "A" para atribuir el 25% del total del pedido de venta en la primera cuota al contado y el 75% del valor para 30 días para la segunda cuota.

MT410PC
#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