diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index d1c800ec4..c76d61d32 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -19797,15 +19797,17 @@ Partial Class Ventas
                                 Serie:=If(DIVCod.Visible, TxtCodigoSerie.Text.Trim, ""), TiempoEntrega:=TxtTiempoEntrega.Text, CuentaPredial:=TxtCuentaPredial.Text.Trim, RegeneraIEPS:=ClienteDesglosaIEPS, CvePromocionDetalle:=ObjDescuento.CvePromocionDetalle,
                                 ImporteProntoPago:=ObjDescuento.ImporteProntoPago, ObjDescuento:=ObjDescuento, CvePrecioLista:=CvePrecioListaPS, PrecioLista:=PrecioListaPS, NumTurnos:=NumTurnos, Costo:=Costo)
 
+                'CALCULA EN BASE AL ULTIMO AGREGADO
+                If TmpDT.Rows.Count > 0 Then
+                    CalculaPSPromocionFiltrosLubricantes(TmpDT.Rows(TmpDT.Rows.Count - 1))
+                End If
+
                 CalculaUsados()
 
                 If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso ListaDescuentos IsNot Nothing AndAlso ObjDescuento IsNot Nothing Then
                     ListaDescuentos.Add(ObjDescuento)
                 End If
 
-                'CALCULA EN BASE AL ULTIMO AGREGADO
-                CalculaPSPromocionFiltrosLubricantes(TmpDT.Rows(TmpDT.Rows.Count - 1))
-
                 CalculaTotalesVenta()
 
                 LimpiaAgregar()