diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index de1740aa1..e36ba295e 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -5270,14 +5270,15 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
-    Public Function GetAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Optional CveEstatus As Integer = -1) As Boolean
+    Public Function GetAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, TipoDocumento As String, Optional CveEstatus As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_AutorizacionLimitesGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
-            .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
+            .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
+            .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento
         End With
         Try
             SqlAdapter.Fill(Data)