From 568e2855570514a24ea1b922f6989b8d2e6acba4 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 11 Apr 2024 13:13:57 -0700 Subject: [PATCH] --FIX, Amortizacion de pago con descuento, con descuentos aplicados. --Precio de lista fijo para cierto cliente --- Ventas/Ventas.aspx.vb | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index a45c309e2..1e85a60b2 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -15256,7 +15256,8 @@ Partial Class Ventas importeMovimiento = 0 Case 103 'Descuento - If ObjFactura.Descuento <> 0 AndAlso Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso (DdlTipoAmortizacionAnticipo.SelectedValue = "-1" OrElse UsuarioActual.CveEmpresa.Contiene(140, 141)) Then + If ObjFactura.Descuento <> 0 AndAlso Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso + (DdlTipoAmortizacionAnticipo.SelectedValue = "-1" OrElse UsuarioActual.CveEmpresa.Contiene(140, 141, 190)) Then importeMovimiento = ObjFactura.Descuento * Multiplicador * ValorMultiplicador importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador * ValorMultiplicador @@ -17697,12 +17698,21 @@ Partial Class Ventas End If If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then + 'ES CREDITO, DEBE TOMAR LA LISTA DE PRECIOS DE CREDITO If RBLPago.SelectedValue = "1" Then Dim CvePrecioListaCredito = GlobalDTPrecioListas(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "ISNULL(Credito,False) = True").ToEntero() If CvePrecioListaCredito > 0 Then CvePrecioListaPS = CvePrecioListaCredito End If End If + + 'ESTE CLIENTE DEBE TENER PRIORIDAD SU LISTA DE PRECIO, SEA CREDITO O CONTADO + If CveCliente = 888648 Then + If Me.CvePrecioListaCliente > 0 Then + CvePrecioListaPS = Me.CvePrecioListaCliente + End If + End If + End If If CvePrecioListaPS > 0 Then