diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index dba31cbce..a430a226b 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -510,7 +510,7 @@ Public Class ClsVentas
                                  Optional TipoDocto As String = "Cot", Optional Vigencia As Date = MinFecha, Optional CondicionesPago As Integer = -1,
                                  Optional AtencionA As String = "-1", Optional PedidoContrato As String = "-1", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1,
                                  Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1,
-                                 Optional RetISR As Double = -1, Optional Kilometraje As Double = 0, Optional CveUsoCFDi As Integer = -1, Optional ServicioDomicilio As Boolean = False) As Boolean
+                                 Optional RetISR As Double = -1, Optional Kilometraje As Double = 0, Optional CveUsoCFDi As Integer = -1, Optional ServicioDomicilio As Boolean = False, Optional CveVendedor As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasUpdate")
 
@@ -543,6 +543,7 @@ Public Class ClsVentas
             .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje
             .Add("@CveUsoCFDi", SqlDbType.SmallInt).Value = CveUsoCFDi
             .Add("@ServicioDomicilio", SqlDbType.Bit).Value = ServicioDomicilio
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
         End With
 
         Try
@@ -995,13 +996,14 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
-    Public Function ObtenerClienteLimitesVenta(CveCliente As Integer, CveEmpresa As Integer) As Integer
+    Public Function ObtenerClienteLimitesVenta(CveCliente As Integer, CveEmpresa As Integer, Optional TipoVerificacion As Integer = -1) As Integer
         Dim Retorno As Integer = 0
         DataAdapter("PA_Vta_ClientesLimitesVentaGet")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@TipoVerificacion", SqlDbType.Int).Value = TipoVerificacion
             .Add("@Opcion", SqlDbType.Int).Direction = ParameterDirection.Output
             .Add("@OpcionMsg", SqlDbType.VarChar, 100).Direction = ParameterDirection.Output
         End With