diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index f014d0ed2..e70e86699 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1875,7 +1875,7 @@ Public Class ClsInventarios
 
     Public Function RepMovimientos(CveEmpresa As Integer, CveMoneda As Integer, FechaI As String, FechaF As String, CveConcepto As Integer, CveProveedor As Integer, Almacenes As String,
                                    CveCategoria As Integer, CveClasificacion As Integer, CvePS As Integer, Tipo As Integer, Optional CveMarca As String = "-1", Optional CvePersonal As Integer = -1,
-                                   Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1) As Boolean
+                                   Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1, Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_ReporteMovimientos")
@@ -1898,6 +1898,8 @@ Public Class ClsInventarios
             .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
             .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen
             .Add("@Modalidad", SqlDbType.Int).Value = Modalidad
+            .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
+            .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
         End With
 
         Try
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 53143668a..a66267ddf 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -6063,7 +6063,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, Optional CveVenta As Integer = -1, Optional CveIE As Integer = -1) 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, Optional CveIE As Integer = -1, Optional CveTipoVenta As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_AutorizacionLimitesAdd")
         With SqlAdapter.SelectCommand.Parameters
@@ -6080,6 +6080,7 @@ Public Class ClsVentas
             .Add("@Motivo", SqlDbType.VarChar).Value = Motivo
             .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
             .Add("@CveIE", SqlDbType.Int).Value = CveIE
+            .Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta
         End With
         Try
             SqlAdapter.Fill(Data)