-

App_Code/ClsClientes.vb

@@ -1830,7 +1830,7 @@ Public Class ClsClientes
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al obtener las diferencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            OnError("Ocurrió un error al obtener nombre de corporativos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
 
         Return Retorno

App_Code/ClsGenerales.vb

@@ -3824,7 +3824,6 @@ Public Class ClsGenerales
         End Try
         Return Retorno
     End Function
-
     Public Function CancelarTimbreTimbrado(CveTimbre As Integer, FechaCancelacion As DateTime, CvePACCancelacion As Integer, SelloCancelacion As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_TimbreTimbradoCancelar")
@@ -3847,9 +3846,6 @@ Public Class ClsGenerales
         End Try
         Return Retorno
     End Function
-
-
-
     Public Function RemoveGralTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_TimbreRemove")
@@ -3869,8 +3865,6 @@ Public Class ClsGenerales
     End Function
 
     Public Function GetGralMovimientosDetalleTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean
-
-
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_MovimientosDetalleTimbreGet")
 
@@ -3887,7 +3881,6 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-
     End Function
 
     Public Function AddInvEntregaAlmacenRuta(CveSubProyecto As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveMovimientoAlmacen As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, FechaLlegada As DateTime, Tipo As String,