diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 4956aa129..22cb58671 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -5921,7 +5921,7 @@ Public Class ClsContabilidad
 
     Public Function GetPrePolizasImpresion(CveEmpresa As Integer, FechaI As String, FechaF As String, Optional CveTipoPoliza As Integer = -1, Optional FolioI As Integer = -1,
                                            Optional FolioF As Integer = -1, Optional CveUsuario As Integer = -1, Optional CveSubProyecto As Integer = -1,
-                                           Optional CveCuenta As Integer = -1, Optional CvePlantillaPoliza As Integer = -1, Optional CveProveedor As Integer = -1) As Boolean
+                                           Optional CveCuenta As Integer = -1, Optional CvePlantillaPoliza As Integer = -1, Optional CveTipoProveedor As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_PrePolizasImpresionGet")
@@ -5937,14 +5937,14 @@ Public Class ClsContabilidad
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
             .Add("@CvePlantillaPoliza", SqlDbType.Int).Value = CvePlantillaPoliza
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor
         End With
 
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            Me.OnError("Ocurrió un error al eliminar el catálogo de Conta Ejercicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            Me.OnError("Ocurrió un error al obtener impresión pólizas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
 
         Return Retorno