...
ProdutoProducto: | TOTVS Backoffice |
---|---|
Linha Línea de Produtoproducto: | Linha Línea Protheus |
Segmento: | Backoffice |
Módulo: | SIGAFAT - FaturamentoFacturación |
FunçãoFunción: | MATA410 - Pedidos de Vendaventa |
...
Este ponto punto de entrada pertence à rotina pertenece a la rutina de Pedidos de Venda Venta - MATA410A(). Está localizado dentro da função ubicado dentro de la función A410TIPO9() e é usado y se utiliza para validar a Condição la Condición de Pagamento pago Tipo 9, permitindo a manipulação das parcelasesto permite manejar las cuotas.
Características da Condição de Pagamento de la condición de pago Tipo 9
Aviso | ||
---|---|---|
| ||
|
...
MT410PC( ) ---> nParcelas
...
O ponto El punto de entrada não possui parâmetros, apenas informações no tiene parámetros, solamente informaciones como aHeader e aCols com os Itens do Pedido de Venda y aCols con los ítems del pedido de venta (SC6) e a tabela y la tabla de Pedidos de Venda Venta (SC5) na memóriaen la memoria.
...
RetornoDevolución | Tipo | DescriçãoDescripción | ObrigatórioObligatorio |
---|---|---|---|
nParcelas | Númerica | Variável númerica indicando a quantidade de parcelas que será gerada. | SimSí |
Neste exemplo usamos um cenário En este ejemplo utilizamos un escenario de pedido de venda com um item, onde está sendo verificado se o risco do venta con un ítem, donde se está verificando si el riesgo del cliente está diferente de "A" para atribuir el 25% do del total do pedido de venda na primeira parcela a vista e 75% do valor para daqui 30 dias para a segunda parceladel pedido de venta en la primera cuota al contado y el 75% del valor para 30 días para la segunda cuota.
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 |