diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 7c81bf728..8f96e1763 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -5990,7 +5990,7 @@ Public Class ClsVentas
 #End Region
 
 
-    Public Function AddAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveEstatus As Integer, CveUsuario As Integer, TipoAutorizacion As Integer, TipoDocumento As String, Optional DiasVencidos As Integer = 0, Optional Motivo As String = "", Optional PorcentajeDescuento As Decimal = 0) As Boolean
+    Public Function AddAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveEstatus As Integer, CveUsuario As Integer, TipoAutorizacion As Integer, TipoDocumento As String, Optional DiasVencidos As Integer = 0, Optional Motivo As String = "", Optional PorcentajeDescuento As Decimal = 0, Optional CveVenta As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_AutorizacionLimitesAdd")
         With SqlAdapter.SelectCommand.Parameters
@@ -6005,6 +6005,7 @@ Public Class ClsVentas
             .Add("@DiasVencidos", SqlDbType.Int).Value = DiasVencidos
             .Add("@PorcentajeDescuento", SqlDbType.Decimal).Value = PorcentajeDescuento
             .Add("@Motivo", SqlDbType.VarChar).Value = Motivo
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
         End With
         Try
             SqlAdapter.Fill(Data)