option explicit on

App_Code/ClsAF.vb

@@ -776,7 +776,7 @@ Public Class ClsAF
 
     Public Function ActivoFijoResguardoADD(FechaInicio As Date, CvePersonal As Integer, CveUsuario As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, TipoDocto As String, Tipo As Integer, CveEmpresa As Integer, Optional Observaciones As String = " ", Optional CveResguardo As Integer = -1) As Boolean
         'Dim CveResguardo As Integer = -1
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         DataAdapter("PA_AF_ActivosFijosResguardosAdd")
 
         With SqlAdapter.SelectCommand.Parameters

App_Code/ClsBancos.vb

@@ -2532,7 +2532,7 @@ Public Class ClsBancos
                                 OtrosGastos As Double, CveProveedor As Integer, ClasificacionContable As Integer, CveUsuario As Integer, CveEmpresa As Integer,
                                 Optional CveCuentaTarjeta As Integer = -1, Optional AplicaAnticipo As Boolean = False, Optional CreditoAnticipo As Double = 0.0, Optional ComisionAnticipo As Double = 0.0, Optional SeguroAnticipo As Double = 0.0,
                                 Optional OtrosGastosAnticipo As Double = 0.0, Optional FondoGarantia As Double = 0.0, Optional SeguroValor As Double = 0.0, Optional TipoInteres As Boolean = False) As Integer
-        Dim Retorno = -1
+        Dim Retorno As Integer = -1
 
         DataAdapter("PA_Banc_CreditosAdd")
 
@@ -3074,7 +3074,7 @@ Public Class ClsBancos
         Return Retorno
     End Function
     Public Function AddLayoutEnvios(Archivo As String, Fecha As Date, CveCuenta As Integer, Optional PorGrupos As Boolean = False) As Integer
-        Dim Retorno = -1
+        Dim Retorno As Integer = -1
 
         DataAdapter("PA_Banc_LayoutEnviosAdd")
 

App_Code/ClsCompras.vb

@@ -1295,7 +1295,7 @@ Public Class ClsCompras
 #Region "I M P O R T A C I O N E S"
     Public Function GetImportaciones(CveImportacion As Integer, CveProveedor As Integer, CveActivoFijo As Integer, FechaInicio As String, FechaFin As String, CveEmpresa As Integer, Optional CveEstatus As Integer = -1) As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Comp_ImportacionesGet")
 
@@ -1320,7 +1320,7 @@ Public Class ClsCompras
     End Function
     Public Function AddImportacion(Pedimento As String, Descripcion As String, CveProveedor As Integer, CveActivoFijo As Integer, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer) As Integer
 
-        Dim Retorno = -1
+        Dim Retorno As Integer = -1
 
         DataAdapter("PA_Comp_ImportacionesAdd")
 
@@ -1346,7 +1346,7 @@ Public Class ClsCompras
     End Function
     Public Function UpdateImportacion(Pedimento As String, CveImportacion As Integer, Descripcion As String, CveProveedor As Integer, CveActivoFijo As Integer, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Comp_ImportacionesUpdate")
 
@@ -1372,7 +1372,7 @@ Public Class ClsCompras
     End Function
     Public Function RemoveImportacion(CveImportacion As Integer) As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Comp_ImportacionesRemove")
 
@@ -1391,7 +1391,7 @@ Public Class ClsCompras
     End Function
     Public Function GetImportacionCompra(CveCompra As Integer) As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Comp_ImportacionesCompraGet")
 
@@ -1410,7 +1410,7 @@ Public Class ClsCompras
     End Function
     Public Function GetImportacionesDetalle(CveImportacion As Integer, CveImportacionDetalle As Integer) As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Comp_ImportacionesDetalleGet")
 
@@ -1430,7 +1430,7 @@ Public Class ClsCompras
     End Function
     Public Function AddImportacionDetalle(CveImportacion As Integer, CveCompra As Integer) As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Comp_ImportacionesDetalleAdd")
 
@@ -1450,7 +1450,7 @@ Public Class ClsCompras
     End Function
     Public Function UpdateImportacionDetalle(CveImportacionDetalle As Integer, CveCompra As Integer) As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Comp_ImportacionesDetalleUpdate")
 
@@ -1470,7 +1470,7 @@ Public Class ClsCompras
     End Function
     Public Function RemoveImportacionDetalle(CveImportacionDetalle As Integer) As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Comp_ImportacionesDetalleRemove")
 
@@ -1489,7 +1489,7 @@ Public Class ClsCompras
     End Function
 
     Public Function AddImportacionCompra(CveImportacion As Integer, CveCompra As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_ImportacionesCompraAdd")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion
@@ -1505,7 +1505,7 @@ Public Class ClsCompras
     End Function
 
     Public Function RemoveImportacionCompra(CveImportacionCompra As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_ImportacionesCompraRemove")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveImportacionCompra", SqlDbType.Int).Value = CveImportacionCompra
@@ -1520,7 +1520,7 @@ Public Class ClsCompras
     End Function
 
     Public Function GetImportacionCompras(Optional CveImportacion As Integer = -1, Optional CveCompra As Integer = -1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_ImportacionesComprasGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveImportacion", SqlDbType.Int).Value = CveImportacion
@@ -1563,7 +1563,7 @@ Public Class ClsCompras
 #Region "B E N E F I C I A R I O S"
     Public Function GetBeneficiarios(CveProveedor As Integer, CveEmpresa As Integer) As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Comp_BeneficiariosGet")
 
@@ -1584,7 +1584,7 @@ Public Class ClsCompras
 
     Public Function GetBeneficiarios2(CveProveedor As Integer, CveEmpresa As Integer) As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Comp_BeneficiariosGet2")
 
@@ -1605,7 +1605,7 @@ Public Class ClsCompras
 
     Public Function GetBeneficiariosDetalle(CveProveedor As Integer, Tipo As Integer, CveEmpresa As Integer) As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Comp_BeneficiariosDetalleGet")
 
@@ -1630,7 +1630,7 @@ Public Class ClsCompras
 #Region "N O T A S - C R E D I T O"
     Public Function GetNotasCreditoRep(CveProveedor As Integer, Opcion As Integer, FechaI As String, FechaF As String, CveEmpresa As Integer) As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Comp_RepNotasCredito")
 
@@ -1775,7 +1775,7 @@ Public Class ClsCompras
     CveEmpresa As Integer, PreFijo As String) As Integer
         Dim Retorno As Integer = -1
 
-        Dim StrSQL = New StringBuilder()
+        Dim StrSQL As StringBuilder = New StringBuilder()
         StrSQL.Append("  BEGIN  ")
         StrSQL.Append("   DECLARE  @tTotal INT;  ")
         StrSQL.Append("     ")
@@ -1832,7 +1832,7 @@ Public Class ClsCompras
         Return Retorno
     End Function
     Public Function UpdateArchivo(CveFactura As Integer, Columna As String) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         Dim Str As String = ""
         If Columna = "XML" Then
             Str = "UPDATE Comp_Facturas SET XML = CONCAT(@CveFactura,'.xml') WHERE CveFactura = @CveFactura"

App_Code/ClsContPAQi.vb

@@ -1040,7 +1040,7 @@ Public Class ClsContPAQi
     End Function
 
     Public Function GetNumeroPoliza(TipoPoliza As Integer, Fecha As String) As Integer
-        Dim Retorno = -1
+        Dim Retorno As Integer = -1
         If Not FNC_GetNumPoliza() Then
             Return Retorno
         End If
@@ -3345,8 +3345,6 @@ Public Class ClsContPAQi
 #End Region
 
 #Region " C U E N T A S "
-
-
     Public Function GetCuentas(IdCuenta As Integer, Codigo As String, Afectable As Integer, Optional RowNum As Integer = 100000, Optional IdPadre As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
@@ -3685,7 +3683,7 @@ Public Class ClsContPAQi
 
 #Region "P R E S U P U E S T O - I N G R E S O S "
     Public Function GetPresupuestoIngresosRep(Ejercicio As Integer, Fecha As Date, Gpo As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         SqlDataAdapter("PA_PresupuestosIngresosRep")
 
@@ -3706,7 +3704,7 @@ Public Class ClsContPAQi
     End Function
 
     Public Function GetPresupuestoIngresosMensualesRep(Ejercicio As Integer, MomentoContable As Integer, CveFuenteRecaudacion As Integer, CveRubroIngreso As Integer, GPO As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         SqlDataAdapter("PA_PresupuestosIngresosMensualesRep")
 
@@ -3735,7 +3733,7 @@ Public Class ClsContPAQi
 
     Public Function GetBalanceGeneral(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1, Optional UsaAC As Boolean = False, Optional IdCuentaAhorroDesahorro As Integer = 9999, Optional SegmentoNegocio As Integer = -1) As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         Dim IdCtaSup As String = ""
         Dim IdCtaSup2 As String = ""
 
@@ -3910,7 +3908,7 @@ Public Class ClsContPAQi
     End Function
 
     Public Function BalanceGeneral(FechaF As Date, Optional TipoMovtos As Integer = -1, Optional UsaAcumulado As Integer = 0, Optional NivelInferior As Integer = -2, Optional NivelInferior2 As Integer = -2, Optional NivelSuperior As Integer = 2) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         SqlDataAdapter("PA_BalanceGeneralIP")
 
@@ -3933,7 +3931,7 @@ Public Class ClsContPAQi
     End Function
 
     Public Function GetBalanceGeneralMensual(ANO As Integer, TipoMovtos As Integer, SubTotales As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         If Not FNC_TotalMensualBG() Then
             Return Retorno
@@ -4459,7 +4457,7 @@ Public Class ClsContPAQi
     End Function
 
     Public Function GetBalanceGeneralAnual(ANO As Integer, TipoMovtos As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         If Not FNC_TotalAnual() Then
             Return Retorno
@@ -4833,7 +4831,7 @@ Public Class ClsContPAQi
     End Function
 
     Public Function GetBalanceGeneralProForma(Unidad As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         SqlDataAdapter("PA_BalanceGeneralProForma")
 
@@ -4855,7 +4853,7 @@ Public Class ClsContPAQi
 #Region "E S T A D O - D E - A C T I V I D A D E S"
 
     Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, Optional TipoMovtos As Integer = -1, Optional UsaAC As Boolean = False, Optional IdSegNeg As Integer = -1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         If Not FNC_TotalComplementaria(UsaAC) Then
             Return Retorno
@@ -4973,7 +4971,7 @@ Public Class ClsContPAQi
     End Function
 
     Public Function GetEstadoActividadesSegmento(FechaI As Date, FechaF As Date, TipoMovtos As Integer, IdSegNeg As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         If Not FNC_TotalComplementaria(False) Then
             Return Retorno
@@ -5135,7 +5133,7 @@ Public Class ClsContPAQi
     End Function
 
     Public Function GetEstadoActividadesSegmentoDetalle(FechaI As Date, FechaF As Date, IdCta As Integer, IdsSegmentos As String) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         If Not FNC_TotalComplementaria(False) Then
             Return Retorno
@@ -5297,7 +5295,7 @@ Public Class ClsContPAQi
     End Function
 
     Public Function GetEstadoResultadosMensual(ANO As Integer, TipoMovtos As Integer, Optional IdSegNeg As Integer = -1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         If Not FNC_TotalMensual() Then
             Return Retorno
@@ -5868,7 +5866,7 @@ Public Class ClsContPAQi
     '    Return Retorno
     'End Function
     Public Function GetEstadoResultadosAnual(ANO As Integer, TipoMovtos As Integer, Optional IdSegNeg As Integer = -1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         If Not FNC_TotalAnual() Then
             Return Retorno
@@ -6135,7 +6133,7 @@ Public Class ClsContPAQi
     End Function
 
     Public Function GetEstadoResultadosProForma(Unidad As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         SqlDataAdapter("PA_EstadoResultadosProForma")
 
@@ -6157,7 +6155,7 @@ Public Class ClsContPAQi
 
 #Region "E S T A D O - A N A L Í T I C O - D E L - A C T I V O"
     Public Function GetEstadoAnaliticoActivo(FechaI As Date, FechaF As Date) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         If Not FNC_Total() Then
             Return Retorno
@@ -6228,10 +6226,8 @@ Public Class ClsContPAQi
 
 #Region "A N E X O - D E L - C A T A L O G O"
 
-
-
     Public Function GetAnexoCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, Optional TipoMovtos As Integer = -1, Optional SegmentoNegocio As Integer = -1, Optional UsaAC As Boolean = False) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         If Not FNC_TotalComplementaria(UsaAC) Then
             Return Retorno
@@ -6318,7 +6314,7 @@ Public Class ClsContPAQi
     ''Esta es
 
     Public Function GetAnexoCatalogoMes(IdCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, Optional TipoMovtos As Integer = -1, Optional SegmentoNegocio As Integer = -1, Optional UsaAC As Boolean = False) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         If Not FNC_TotalComplementaria(UsaAC) Then
             Return Retorno
@@ -6510,7 +6506,7 @@ Public Class ClsContPAQi
 
 #Region "B A L A N Z A - D E - C O M P R O B A C I O N"
     Public Function GetBalanzaComprobacion(FechaI As Date, FechaF As Date, TipoCuentas As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         If Not FNC_Total() Then
             Return Retorno
@@ -6669,7 +6665,7 @@ Public Class ClsContPAQi
 
 #Region "M O V I M I E N T O S - A U X I L I A R E S - C A T A L O G O"
     Public Function GetMovimientosAuxiliaresCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, Optional IdSegNeg As Integer = -1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         If Not FNC_Total_Segmento() Then
             Return Retorno
@@ -6870,7 +6866,7 @@ Public Class ClsContPAQi
 
 #Region "E S T A D O - D E - F L U J O - D E - E F E C T I V O "
     Public Function GetFlujoEfectivo(FechaI As Date, FechaF As Date, Unidad As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         SqlDataAdapter("PA_RepFlujoEfectivo")
 
@@ -6893,7 +6889,7 @@ Public Class ClsContPAQi
 
 #Region "E S T A D O - D E - C A M  B I O - D E - S I T U  A C I O N - F I N A N C I E R A"
     Public Function GetCambioSituacionFinanciera(FechaI As Date, FechaF As Date, Unidad As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         SqlDataAdapter("PA_RepCambioSituacionFinanciera")
 
@@ -6916,7 +6912,7 @@ Public Class ClsContPAQi
 
 #Region "E S T A D O - D E - V A R I A C I O N - H A C I E N D A - P U B L I C A "
     Public Function GetVariacionHaciendaPublica(FechaI As Date, FechaF As Date) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         'StrSQL.Clear()
 
@@ -6993,7 +6989,7 @@ Public Class ClsContPAQi
 
 #Region " O R I G E N - Y - A P L I C A C I O N "
     Public Function GetOrigenAplicacion(FechaI As Date, FechaF As Date) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         SqlDataAdapter("PA_RepOrigenAplicacion")
 
@@ -7012,7 +7008,7 @@ Public Class ClsContPAQi
         Return Retorno
     End Function
     Public Function GetOrigenAplicacionMensual(Ejercicio As Integer, TipoMovtos As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         SqlDataAdapter("PA_RepOrigenAplicacionMensual")
 
@@ -7031,7 +7027,7 @@ Public Class ClsContPAQi
         Return Retorno
     End Function
     Public Function GetOrigenAplicacionAnual(Ejercicio As Integer, TipoMovtos As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         SqlDataAdapter("PA_RepOrigenAplicacionAnual")
 
@@ -7053,7 +7049,7 @@ Public Class ClsContPAQi
 
 #Region "  P O L I Z A S - C O M P L E M E N T A R I A S  "
     Public Function BalanceGeneralGet(TipoReporte As Integer, FechaI As Date, FechaF As Date) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         SqlDataAdapter("PA_Conta_BalanceGeneralGet")
 
@@ -7073,7 +7069,7 @@ Public Class ClsContPAQi
         Return Retorno
     End Function
     Public Function EstadoResultadosGet(TipoReporte As Integer, FechaI As Date, FechaF As Date) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         SqlDataAdapter("PA_Conta_EstadoResultadosGet")
 
@@ -7196,7 +7192,7 @@ Public Class ClsContPAQi
         Return Retorno
     End Function
     Public Function GetRepPresupuestosEgresosSaldosDetalle(MomentoContable As Integer, ProgramaOperativo As Integer, FuenteFinanciamiento As Integer, TipoGasto As Integer, UnidadAdministrativa As Integer, ClasificacionOG As Integer, CodigoOG As String, FechaI As Date, FechaF As Date) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         SqlDataAdapter("PA_PresupuestosEgresosSaldosDetalleRep")
 
@@ -7249,7 +7245,7 @@ Public Class ClsContPAQi
     End Function
 
     Public Function GetRepPresupuestosIngresosSaldosDetalle(MomentoContable As Integer, FuenteRecaudacion As Integer, RubroIngreso As Integer, FechaI As Date, FechaF As Date) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         SqlDataAdapter("PA_PresupuestosIngresosSaldosDetalleRep")
 
@@ -7509,7 +7505,7 @@ Public Class ClsContPAQi
     End Function
 
     Public Function GetFolioProveedores(CuentaPadre As String) As Integer
-        Dim Retorno = -1
+        Dim Retorno As Integer = -1
 
         SqlDataAdapter("PA_AC_ProveedoresCuentasGetFolio")
 
@@ -8133,8 +8129,8 @@ Public Class ClsContPAQi
             'StrSQL.Append(file.OpenText().ReadToEnd())
 
 
-            Dim file = System.IO.File.ReadAllText(HttpContext.Current.Server.MapPath("~/Empresas/TriggerConta.sql"))
+            Dim file As String = System.IO.File.ReadAllText(HttpContext.Current.Server.MapPath("~/Empresas/TriggerConta.sql"))
-            Dim Comandos As [String]() = file.Split(New String() {"GO"}, StringSplitOptions.None)
+            Dim Comandos As String() = file.Split(New String() {"GO"}, StringSplitOptions.None)
             For Each Script As String In Comandos
                 SqlDataCommand(Script, CommandType.Text)
                 SqlCommand.ExecuteNonQuery()
@@ -8559,10 +8555,6 @@ Public Class ClsContPAQi
             Return Retorno
         End If
 
-
-
-        'SqlDataAdapter("PA_AddMovimiento")
-
         StrSQL.Clear()
         StrSQL.AppendLine(" BEGIN     ")
         StrSQL.AppendLine("     DECLARE @Error nvarchar(300)    ")
@@ -8685,8 +8677,6 @@ Public Class ClsContPAQi
 
 #Region "CONTABILIDAD ELECTRONICA"
 
-
-
     Public Function GetBancos() As Boolean
         Dim Retorno As Boolean = False
 
@@ -9852,7 +9842,7 @@ Public Class ClsContPAQi
 
     Public Function FNC_GetSigno() As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         StrSQL.Clear()
         StrSQL.Append("	IF OBJECT_ID ('FNC_GetSigno') IS NOT NULL  DROP FUNCTION FNC_GetSigno")
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -9903,7 +9893,7 @@ Public Class ClsContPAQi
 
     Public Function FNC_GetNumPoliza() As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         StrSQL.Clear()
         StrSQL.Append("	IF OBJECT_ID ('FNC_GetNumPoliza') IS NOT NULL  DROP FUNCTION FNC_GetNumPoliza")
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -9963,7 +9953,7 @@ Public Class ClsContPAQi
 
     Public Function FNC_GetNumMovtoDevIVA() As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         StrSQL.Clear()
         StrSQL.Append("	IF OBJECT_ID ('FNC_GetNumMovtoDevIVA') IS NOT NULL  DROP FUNCTION FNC_GetNumMovtoDevIVA")
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -10008,7 +9998,7 @@ Public Class ClsContPAQi
 
     Public Function FNC_GetNumMovto() As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         StrSQL.Clear()
         StrSQL.Append("	IF OBJECT_ID ('FNC_GetNumMovto') IS NOT NULL  DROP FUNCTION FNC_GetNumMovto")
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -10056,7 +10046,7 @@ Public Class ClsContPAQi
 
     Public Function FNC_GetCounter() As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         'StrSQL.Clear()
         'StrSQL.Append("	IF OBJECT_ID ('FNC_GetCounter') IS NOT NULL  DROP FUNCTION FNC_GetCounter")
         'SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -10103,7 +10093,7 @@ Public Class ClsContPAQi
 
     Public Function FNC_TotalAnualBG() As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         StrSQL.Clear()
         StrSQL.Append("	IF OBJECT_ID ('FNC_TotalAnualBG') IS NOT NULL  DROP FUNCTION FNC_TotalAnualBG")
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -10214,7 +10204,7 @@ Public Class ClsContPAQi
 
     Public Function FNC_TotalAnual() As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         StrSQL.Clear()
         StrSQL.Append("	IF OBJECT_ID ('FNC_TotalAnual') IS NOT NULL  DROP FUNCTION FNC_TotalAnual")
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -10327,7 +10317,7 @@ Public Class ClsContPAQi
 
     Public Function FNC_TotalMensualBG() As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         StrSQL.Clear()
         StrSQL.Append("	IF OBJECT_ID ('FNC_TotalMensualBG') IS NOT NULL  DROP FUNCTION FNC_TotalMensualBG")
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -10425,7 +10415,7 @@ Public Class ClsContPAQi
 
     Public Function FNC_TotalMensual() As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         StrSQL.Clear()
         StrSQL.Append("	IF OBJECT_ID ('FNC_TotalMensual') IS NOT NULL  DROP FUNCTION FNC_TotalMensual")
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -10539,7 +10529,7 @@ Public Class ClsContPAQi
 
     Public Function FNC_TotalMensualERSubTotales() As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         StrSQL.Clear()
         StrSQL.Append("	IF OBJECT_ID ('FNC_TotalMensualERSubTotales') IS NOT NULL  DROP FUNCTION FNC_TotalMensualERSubTotales")
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -10656,7 +10646,7 @@ Public Class ClsContPAQi
     End Function
 
     Public Function FNC_TotalComplementaria(UsaAC As Boolean) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         StrSQL.Clear()
         StrSQL.Append("	IF OBJECT_ID ('FNC_TotalComplementaria') IS NOT NULL  DROP FUNCTION FNC_TotalComplementaria")
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -10847,7 +10837,7 @@ Public Class ClsContPAQi
 
     Public Function FNC_CargosComplementaria() As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         StrSQL.Clear()
         StrSQL.Append("	IF OBJECT_ID ('FNC_CargosComplementaria') IS NOT NULL  DROP FUNCTION FNC_CargosComplementaria")
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -10954,7 +10944,7 @@ Public Class ClsContPAQi
 
     Public Function FNC_AbonosComplementaria() As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         StrSQL.Clear()
         StrSQL.Append("	IF OBJECT_ID ('FNC_AbonosComplementaria') IS NOT NULL  DROP FUNCTION FNC_AbonosComplementaria")
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -11064,7 +11054,7 @@ Public Class ClsContPAQi
 
     Public Function FNC_Total() As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         StrSQL.Clear()
         StrSQL.Append("	IF OBJECT_ID ('FNC_Total') IS NOT NULL  DROP FUNCTION FNC_Total")
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -11141,7 +11131,7 @@ Public Class ClsContPAQi
 
     Public Function FNC_Cargos() As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         StrSQL.Clear()
         StrSQL.Append("	IF OBJECT_ID ('FNC_Cargos') IS NOT NULL  DROP FUNCTION FNC_Cargos")
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -11211,7 +11201,7 @@ Public Class ClsContPAQi
 
     Public Function FNC_Abonos() As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         StrSQL.Clear()
         StrSQL.Append("	IF OBJECT_ID ('FNC_Abonos') IS NOT NULL  DROP FUNCTION FNC_Abonos")
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -11285,10 +11275,9 @@ Public Class ClsContPAQi
 
 #Region "Funciones con Segmento"
 
-
     Public Function FNC_Total_Segmento() As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         StrSQL.Clear()
         StrSQL.Append("	IF OBJECT_ID ('FNC_Total_Segmento') IS NOT NULL  DROP FUNCTION FNC_Total_Segmento")
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -11366,7 +11355,7 @@ Public Class ClsContPAQi
 
     Public Function FNC_Cargos_Segmento() As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         StrSQL.Clear()
         StrSQL.Append("	IF OBJECT_ID ('FNC_Cargos_Segmento') IS NOT NULL  DROP FUNCTION FNC_Cargos_Segmento")
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -11437,7 +11426,7 @@ Public Class ClsContPAQi
 
     Public Function FNC_Abonos_Segmento() As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         StrSQL.Clear()
         StrSQL.Append("	IF OBJECT_ID ('FNC_Abonos_Segmento') IS NOT NULL  DROP FUNCTION FNC_Abonos_Segmento")
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
@@ -11491,9 +11480,6 @@ Public Class ClsContPAQi
         StrSQL.Append("			END;										 ")
 
 
-
-
-
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
 
         Try

App_Code/ClsContabilidad.vb

@@ -2989,7 +2989,7 @@ Public Class ClsContabilidad
 
 #Region "F I N A N C I A M I E N T O  -  M E T A S"
     Public Function AddFinan_Metas(Meta As Decimal, CveCuenta As Integer, Anio As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Finan_MetasAdd")
         With SqlAdapter.SelectCommand.Parameters
@@ -3090,7 +3090,7 @@ Public Class ClsContabilidad
 
 #Region "F I N A N C I A M I E N T O  -  V E N T A S  -  P R O Y E C C I O N E S"
     Public Function AddFinan_VentasProyecciones(CvePS As Integer, Cantidad As Double, PU As Double, Fecha As Date, Anio As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Finan_MetasAdd")
 
@@ -3196,7 +3196,7 @@ Public Class ClsContabilidad
 
 #Region "  CUENTAS  "
     Public Function GetCuentas(CveCuenta As Integer, Codigo As String, Afectable As Integer, CveEmpresa As Integer, Optional RowNum As Integer = 100000, Optional CvePadre As Integer = -1, Optional Nombre As String = "-1") As Boolean ', Codigo As String, Nombre As String, CveClasificacionCuenta As Integer, TipoCuenta As Integer, Afectable As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_CuentasGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -3220,7 +3220,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetClasificacionesCuentas() As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_ClasificacionesCuentaGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -3240,7 +3240,7 @@ Public Class ClsContabilidad
 
 #Region " EJERCICIOS "
     Public Function GetEjercicios(CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_EjerciciosGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -3258,7 +3258,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function AddEjercicio(Ejercicio As String, PeriodoActual As Integer, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_EjerciciosAdd")
         With SqlAdapter.SelectCommand.Parameters
@@ -3279,7 +3279,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function UpdateEjercicio(CveEjercicio As Integer, Ejercicio As String, Estatus As Boolean, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_EjerciciosUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -3300,7 +3300,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function RemoveEjercicio(CveEjercicio As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_EjerciciosRemove")
         With SqlAdapter.SelectCommand.Parameters
@@ -3324,7 +3324,7 @@ Public Class ClsContabilidad
 
 #Region "REPORTE DE CONTABILIDAD"
     Public Function GetBalanceGeneralMensual(ANO As Integer, TipoMovtos As Integer, SubTotales As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_EstadoResultadosMensual")
 
@@ -3351,7 +3351,7 @@ Public Class ClsContabilidad
 
 
     Public Function GetBalanceGeneralAnual(ANO As Integer, TipoMovtos As Integer, CveEmpresa As Integer, CveSubProyecto As String) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_BalanceGeneralAnual")
 
@@ -3375,7 +3375,7 @@ Public Class ClsContabilidad
 
 
     Public Function GetSituacionFinanciera(FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveSubProyecto As String, TipoMovtos As Integer, Optional SAT As Integer = 0, Optional Opcion As Integer = 1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         'SqlAdapter.SelectCommand.t
 
@@ -3405,7 +3405,7 @@ Public Class ClsContabilidad
 
     Public Function GetSituacionFinanciera2(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         'SqlAdapter.SelectCommand.t
 
@@ -3436,7 +3436,7 @@ Public Class ClsContabilidad
 
 
     Public Function GetSituacionFinancieraMensuallHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         'SqlAdapter.SelectCommand.t
 
@@ -3465,7 +3465,7 @@ Public Class ClsContabilidad
 
 
     Public Function GetSituacionFinancieraAnualHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         'SqlAdapter.SelectCommand.t
 
@@ -3495,7 +3495,7 @@ Public Class ClsContabilidad
 
 
     Public Function GetSituacionFinancieraSubProyectolHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         'SqlAdapter.SelectCommand.t
 
@@ -3524,7 +3524,7 @@ Public Class ClsContabilidad
 
 
     Public Function GetAnexoCatalogo(CveCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1, Optional SAT As Integer = 0) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_AnexoCatalogoGet")
 
@@ -3551,7 +3551,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetMovimientosAuxiliaresCatalogo(CveCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, TipoReporte As String, OpcionCuentas As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_MovimientosAuxiliaresCatalogoGet")
 
@@ -3598,7 +3598,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0, Optional Opcion As Integer = 1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_EstadoActividadesGet")
 
@@ -3625,7 +3625,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetBalanzaComprobacion(FechaI As Date, FechaF As Date, TipoCuentas As Integer, TipoReporte As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional Sat As Integer = 0, Optional NivelCuenta As Integer = -1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
 
         DataAdapter("PA_Conta_BalanzaComprobacionGet")
@@ -3654,7 +3654,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetCambioSituacionFinanciera(FechaI As Date, FechaF As Date, Unidad As Integer, TipoReporte As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional ConMovimientos As Integer = -1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_RepCambioSituacionFinanciera")
 
@@ -3679,7 +3679,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetFlujoEfectivo(FechaI As Date, FechaF As Date, Unidad As Integer, TipoReporte As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_RepFlujoEfectivo")
 
@@ -3703,7 +3703,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetFlujoEfectivo2(FechaF As Date, Tipo As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_RepFlujoEfectivo2")
 
@@ -3724,7 +3724,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetOrigenAplicacion(FechaI As String, FechaF As String, TipoReporte As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_RepOrigenAplicacion")
 
@@ -3802,7 +3802,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetEstadoResultadosMensual(ANO As Integer, TipoMovtos As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_EstadoResultadosMensual")
 
@@ -3824,7 +3824,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetEstadoResultadosAnual(ANO As Integer, TipoMovtos As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_EstadoResultadosAnual")
 
@@ -3845,7 +3845,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetOrigenAplicacionMensual(Ejercicio As Integer, TipoMovtos As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_RepOrigenAplicacionMensual")
 
@@ -3868,7 +3868,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetOrigenAplicacionAnual(Ejercicio As Integer, TipoMovtos As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_RepOrigenAplicacionAnual")
 
@@ -3890,7 +3890,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetVariacionHaciendaPublica(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_RepVariacionHaciendaPublica")
 
@@ -3913,7 +3913,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetLibroDiario(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional CveTipoPoliza As Integer = -1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         'SqlAdapter.SelectCommand.t
 
@@ -3984,7 +3984,7 @@ Public Class ClsContabilidad
 
 #Region "   REPORTES FINANCIEROS DICIEMBRE 2016   "
     Public Function GetBalanceGeneralVertical(Ejercicio As Integer, Periodo As Integer, CveSubProyecto As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_BalanceGeneralVerticalGet")
 
@@ -4006,7 +4006,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetBalanceGeneralMensualVertical(Ejercicio As Integer, CveSubProyecto As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_BalanceGeneralVerticalMensualGet")
 
@@ -4027,7 +4027,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetBalanceGeneralAnualVertical(Ejercicio As Integer, CveSubProyecto As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_BalanceGeneralAnualGet")
 
@@ -4049,7 +4049,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetBalanceGeneralMensualHorizontal(Ejercicio As Integer, CveSubProyecto As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_BalanceGeneralHorizontalMensualGet")
 
@@ -4071,7 +4071,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetBalanceGeneralHorizontalCC(Ejercicio As Integer, Periodo As Integer, CveSubProyecto As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_BalanceGeneralHorizontalCCGet")
 
@@ -4093,7 +4093,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetEstadoResultadosVertical(Ejercicio As Integer, Periodo As Integer, CveSubProyecto As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_EstadoResultadosVerticalGet")
 
@@ -4115,7 +4115,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetEstadoResultadoMensualHorizontal(Ejercicio As Integer, CveSubProyecto As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_EstadoResultadosHorizontalMensual")
 
@@ -4137,7 +4137,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetEstadoResultadosAnualHorizontal(Ejercicio As Integer, CveSubProyecto As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_EstadoResultadosHorizontalAnual")
 
@@ -4160,7 +4160,7 @@ Public Class ClsContabilidad
 
 
     Public Function GetEstadoResultadosHorizontalCC(Ejercicio As Integer, Periodo As Integer, CveSubProyecto As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_EstadoResultadosHorizontalCCGet")
 
@@ -4183,7 +4183,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetAnexoCatalogoMensual(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer, Divisor As Integer, CveUsuario As Integer, Periodo As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_AnexoCatalogoMensualGet")
 
@@ -4207,7 +4207,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetAnexoCatalogoAnual(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer, EjercicioFinal As Integer, Divisor As Integer, CveUsuario As Integer, Periodo As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_AnexoCatalogoAnualGet")
 
@@ -4236,7 +4236,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetAnexoCatalagoCC(CveCuenta As Integer, FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveEmpresa As Integer, Divisor As Integer, CveUsuario As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_AnexoCatalogoCCGet")
 
@@ -4261,7 +4261,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetRepPresupuestosEgresosSaldosDetalle(MomentoContable As Integer, ProgramaOperativo As Integer, FuenteFinanciamiento As Integer, TipoGasto As Integer, UnidadAdministrativa As Integer, ClasificacionOG As Integer, CodigoOG As String, FechaI As Date, FechaF As Date) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_PresupuestosEgresosSaldosDetalleRep")
 
@@ -4288,7 +4288,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetRepPresupuestosIngresosSaldosDetalle(MomentoContable As Integer, FuenteRecaudacion As Integer, RubroIngreso As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_PresupuestosIngresosSaldosDetalleRep")
 
@@ -4311,7 +4311,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetPresupuestoIngresosRep(Ejercicio As Integer, Fecha As Date, Gpo As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_PresupuestosIngresosRep")
 
@@ -4357,7 +4357,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetPresupuestoIngresosMensualesRep(Ejercicio As Integer, MomentoContable As Integer, CveFuenteRecaudacion As Integer, CveRubroIngreso As Integer, GPO As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_PresupuestosIngresosMensualesRep")
 
@@ -4381,7 +4381,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetDependenciasUnidadesResponsables(CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_DepUnidadResponsableGET")
 
@@ -4399,7 +4399,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetProgramaSubPrograma(CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_ProGSubProgramaGET")
 
@@ -4417,7 +4417,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetGrupoVulnerable(CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_GrupoVulnerable")
 
@@ -4435,7 +4435,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetTipoGasto(CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_AC_TipoGastoGet")
 
@@ -4449,7 +4449,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetClasificadorOG(CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_AC_ClasificadorOGGet")
 
@@ -4467,7 +4467,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetClasificacion(CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_ClasificacionGET")
 
@@ -4485,7 +4485,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetClasificacionEconomica(CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_ClasificacionEconomicaGET")
 
@@ -4503,7 +4503,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetFuenteFinanciera(CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_AC_FuentesFinanciamientoGet")
 
@@ -4715,7 +4715,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetRepPresupuestosEgresosSaldosDetalle(MomentoContable As Integer, ProgramaOperativo As Integer, FuenteFinanciamiento As Integer, TipoGasto As Integer, UnidadAdministrativa As Integer, ClasificacionOG As Integer, CodigoOG As String, FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_PresupuestosEgresosSaldosDetalleRep")
 
@@ -4743,7 +4743,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function GetGeneraPolizaPresupuestoEgresos(CveEmpresa As Integer, CveEjercicio As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_GeneraPolizaPresupuestoEgresos")
 
@@ -5014,7 +5014,7 @@ Public Class ClsContabilidad
 #Region "FIS IMPUESTOS"
 
     Public Function GetFisImpuestos(CveImpuesto As Integer, CveImpuestoTipo As Integer, CveProveedor As Integer, Folio As String, CveEmpresa As Integer, FechaInicio As Date, FechaFin As Date) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_FisImpuestosGet")
 
@@ -5039,7 +5039,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetFisImpuestosDetalle(CveImpuesto As Integer, CveImpuestoTipo As Integer, CveProveedor As Integer, Folio As String, CveEmpresa As Integer, FechaInicio As Date, FechaFin As Date) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_FisImpuestosDetalleGet")
 
@@ -5064,7 +5064,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function AddUpdateFisImpuestos(CveImpuesto As Integer, CveImpuestoTipo As Integer, CvePrePoliza As Integer, CveProveedor As Integer, Fecha As Date, Folio As String, Comprobante As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_FisImpuestosAddUpdate")
 
@@ -5119,7 +5119,7 @@ Public Class ClsContabilidad
     'End Function
 
     Public Function GetFisImpuestosTipos(Estatus As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Fis_ImpuestosTiposGet")
 
@@ -5141,7 +5141,7 @@ Public Class ClsContabilidad
 
 #Region "Contabilidad Electronica"
     Public Function GetCuentasElectronica(CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_ContaElectronicaCuentasGet")
 
@@ -5160,7 +5160,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetBalanzaComprobacion(FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_ContaElectronicaBalanzaGet")
 
@@ -5183,7 +5183,7 @@ Public Class ClsContabilidad
 
 #Region "Estado de Situacion Financiera"
     Public Function GetSituacionFinanciera(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_SituacionFinancieraGet")
 
@@ -5205,7 +5205,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetBalanceGeneralMensual(ANO As Integer, TipoMovtos As Integer, SubTotales As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_BalanceGeneralMensual")
 
@@ -5227,7 +5227,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetBalanceGeneralAnual(ANO As Integer, TipoMovtos As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_BalanceGeneralAnual")
 
@@ -5337,7 +5337,7 @@ Public Class ClsContabilidad
 
 #Region "Cierre Contable"
     Public Function GetCuentasCierre(FechaI As Date, FechaF As Date, CveCuentaCierre As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Integer
-        Dim Retorno = 0
+        Dim Retorno As Integer = 0
 
         DataAdapter("PA_Conta_CierrePolizaCuentasGet")
 
@@ -5409,7 +5409,7 @@ Public Class ClsContabilidad
 
 
     Public Function GetGastosRepCC(FechaInicio As DateTime, FechaFin As DateTime, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_ReporteGastos")
 
@@ -5431,7 +5431,7 @@ Public Class ClsContabilidad
 
 
     Public Function GetEdoResultadosMes(FechaInicio As Date, FechaFin As Date, CveTipoGasto As Integer, CveClasificacion As Integer, CveSubProyecto As Integer, Agrupador As Integer, CveEmpresa As Integer, Unidad As Integer) As DataSet
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         Dim ds As New DataSet
         DataAdapter("PA_Conta_EdoResultado2")
 
@@ -5621,7 +5621,7 @@ Public Class ClsContabilidad
 
 
     Public Function GetCuentasAsignaciones(CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesGet")
 
@@ -5640,7 +5640,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetCuentasAsignacionesSistema(CveEmpresa As Integer, Tipo As Integer, Opcion As Integer, CveConcepto As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesSistemaGet")
 
@@ -5667,7 +5667,7 @@ Public Class ClsContabilidad
                                            Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional CveCredito As Integer = -1,
                                            Optional RegeneraCuenta As Boolean = False,
                                            Optional OpActualizarClasificacion As Boolean = False) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesAdd")
 
@@ -5707,7 +5707,7 @@ Public Class ClsContabilidad
                                               Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1,
                                               Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1,
                                               Optional CveCredito As Integer = -1, Optional RegeneraCuenta As Boolean = False) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesUpdate")
 
@@ -5740,7 +5740,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function RemoveCuentasAsignaciones(CveCuentaAsignacion As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesDelete")
 
@@ -5760,7 +5760,7 @@ Public Class ClsContabilidad
 
 #Region "Globales"
     Public Function GetCuentasGlobales(CveEmpresa As Integer, Optional CveConcepto As Integer = -1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_CuentasGlobalesGet")
 
@@ -5780,7 +5780,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function AddCuentasGlobales(CveConceptoContable As Integer, CveCuenta As Integer, TipoGlobal As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_CuentasGlobalesAdd")
 
@@ -5802,7 +5802,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function RemoveCuentasGlobales(CveConceptoContable As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_CuentasGlobalesDelete")
 
@@ -5825,7 +5825,7 @@ Public Class ClsContabilidad
 #End Region
 
     Public Function GetContaEjercicio(CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_ContaEjerciciosGet")
 
@@ -5845,7 +5845,7 @@ Public Class ClsContabilidad
 
     Public Function AddContaEjercicio(Ejercicio As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional PeriodoActual As Integer = 0,
                                       Optional CveCuentaCierre As Integer = -1, Optional CvePoliza As Integer = -1, Optional CvePrePoliza As Integer = -1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_ContaEjerciciosAdd")
 
@@ -5871,7 +5871,7 @@ Public Class ClsContabilidad
 
     Public Function UpdateContaEjercicio(CveEjercicio As Integer, Optional Ejercicio As Integer = -1, Optional PeriodoActual As Integer = 0, Optional CveCuentaCierre As Integer = -1,
                                          Optional CvePoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional Estatus As Boolean = False) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_ContaEjerciciosUpdate")
 
@@ -5896,7 +5896,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function RemoveContaEjercicio(CveEjercicio As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_ContaEjerciciosDelete")
 
@@ -5976,7 +5976,7 @@ Public Class ClsContabilidad
 
 #Region "  RECONSTRUCCION DE PREPOLIZAS  "
     Public Function ReconstruirPP_PagoCompra(CvePrePoliza As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_AD_PrePolizaReconstruccionPagoCompra")
         With SqlAdapter.SelectCommand.Parameters
@@ -5993,7 +5993,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function ReconstruirPP_Compra(CveCompra As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_AD_PrePolizaReconstruccionCompra")
         With SqlAdapter.SelectCommand.Parameters
@@ -6010,7 +6010,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function ReconstruirPP_PagoVenta(CvePrePoliza As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_AD_PrePolizaReconstruccionPagoVenta")
         With SqlAdapter.SelectCommand.Parameters
@@ -6027,7 +6027,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function ReconstruirPP_PagoCompraVenta(CveIE As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_AD_PrePolizaReconstruccionPagoCompraVenta")
         With SqlAdapter.SelectCommand.Parameters
@@ -6048,7 +6048,7 @@ Public Class ClsContabilidad
 
 #Region "VALIDACION POLIZA DESCUADRADA"
     Public Function ValidacionPrePolizaCuadre(CvePrePoliza As Integer, Opcion As Integer, Optional CveVenta As Integer = -1, Optional AutoConta As Boolean = True) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_PrePolizasValidacion")
         With SqlAdapter.SelectCommand.Parameters
@@ -6081,7 +6081,7 @@ Public Class ClsContabilidad
     Public Function ValidacionesPrePoliza(CvePrePoliza As Integer, ByRef UsuarioActual As Usuario, Optional Opcion As Integer = 1,
                                             Optional CveVenta As Integer = -1, Optional AutoConta As Boolean = True,
                                             Optional ObjConta As ClsContPAQi = Nothing) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_PrePolizasValidacion")
         With SqlAdapter.SelectCommand.Parameters
@@ -6175,7 +6175,7 @@ Public Class ClsContabilidad
 
 #Region "Periodos Bloqueo Meses"
     Public Function GetPeriodosBloqueo(CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_EmpresasBloqueoMesesGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -6192,7 +6192,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
     Public Function AddPeriodosBloqueo(CveEmpresa As Integer, Ejercicio As Integer, Mes1 As Integer, Mes2 As Integer, Mes3 As Integer, Mes4 As Integer, Mes5 As Integer, Mes6 As Integer, Mes7 As Integer, Mes8 As Integer, Mes9 As Integer, Mes10 As Integer, Mes11 As Integer, Mes12 As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_EmpresasBloqueoMesesAdd")
         With SqlAdapter.SelectCommand.Parameters
@@ -6224,7 +6224,7 @@ Public Class ClsContabilidad
     Public Function UpdatePeriodosBloqueo(CveEmpresa As Integer, Ejercicio As Integer, Mes1 As Boolean, Mes2 As Boolean, Mes3 As Boolean, Mes4 As Boolean, Mes5 As Boolean,
                                           Mes6 As Boolean, Mes7 As Boolean, Mes8 As Boolean, Mes9 As Boolean, Mes10 As Boolean, Mes11 As Boolean, Mes12 As Boolean,
                                           CveUsuario As Integer) As String
-        Dim Retorno = ""
+        Dim Retorno As String = ""
 
         DataAdapter("PA_Conta_EmpresasBloqueoMesesUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -6258,7 +6258,7 @@ Public Class ClsContabilidad
 
     End Function
     Public Function RemovePeriodosBloqueo(CveEmpresa As Integer, Ejercicio As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_EmpresasBloqueoMesesRemove")
         With SqlAdapter.SelectCommand.Parameters
@@ -6277,7 +6277,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetBloqueoMesesBitacora(CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_GetBloqueoMesesBitacora")
 
@@ -6300,7 +6300,7 @@ Public Class ClsContabilidad
 
 
     Public Function GetEstadosMensual(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta2_EstadoResultadosMensual")
 
@@ -6329,7 +6329,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function GetEstadosMensualHorizontal(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta2_EstadoResultadosMensualHorizontal")
 
@@ -6357,11 +6357,8 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-
-
-
     Public Function GetEstadosAnualHorizontal(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1, Optional Periodo As Integer = 12) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta2_EstadoResultadosAnualHorizontal")
 
@@ -6392,7 +6389,7 @@ Public Class ClsContabilidad
 
 
     Public Function GetEstadosSubProyectoHorizontal(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta2_EstadoResultadosSubProyectolHorizontal")
 
@@ -6423,7 +6420,7 @@ Public Class ClsContabilidad
 #End Region
 
     Public Function UpdateTraspasoPrepoliza(CveEmpresa As Integer, CveCuenta As Integer, CveCuentaNueva As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_Traspaso_Prepolizas")
 
@@ -6444,7 +6441,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function UpdateProveedorPoliza(CveOrdenCompra As Integer, CveProveedor As Integer, Concepto As String) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_ActualizarProveedor")
 
@@ -6466,7 +6463,7 @@ Public Class ClsContabilidad
 
 #Region "F L U C T U A C I O N - C A M B I A R I A"
     Public Function UpdateTCValuacion(CveVenta As Integer, CveCompra As Integer, CveIE As Integer, TCValuacion As Decimal, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_TipoCambioValuacionUpdate")
 
@@ -6490,8 +6487,6 @@ Public Class ClsContabilidad
 
 #End Region
 
-
-
     Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
         Dim Respuesta As Boolean = False
 

App_Code/ClsContratos.vb

@@ -401,7 +401,7 @@ Public Class ClsContratos
                                     Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1,
                                     Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional FacturacionCicilica As Boolean = False, Optional FacturacionCiclicaAutomatico As Boolean = False,
                                     Optional DiaMesFacturacion As Integer = 1, Optional CvePeriodo As Integer = -1, Optional ObservacionesGenerales As String = "") As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -475,7 +475,7 @@ Public Class ClsContratos
     End Function
 
     Public Function TerminarContrato(CveContrato As Integer, CveTipoEstatus As Integer, CveEmpresa As Integer) As Integer
-        Dim Retorno = -1
+        Dim Retorno As Integer = -1
 
         DataAdapter("PA_Con_ContratosTerminar")
         With SqlAdapter.SelectCommand.Parameters
@@ -498,7 +498,7 @@ Public Class ClsContratos
     'Usado en conrtatos Obra
     Public Function AbrirCerrarContrato(CveContrato As Integer, CveEmpresa As Integer, Cerrar As Boolean, CveUsuario As Integer) As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosObraAbrirCerrar")
         With SqlAdapter.SelectCommand.Parameters
@@ -529,7 +529,7 @@ Public Class ClsContratos
     'End Function
     Public Function RemoveContrato(CveContrato As Integer, CveEmpresa As Integer) As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosRemove")
         With SqlAdapter.SelectCommand.Parameters
@@ -660,7 +660,7 @@ Public Class ClsContratos
                                     Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1,
                                     Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional Lugar As String = "", Optional LimiteDeGasto As Double = 0,
                                         Optional ImporteSubTotal As Decimal = 0) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosObraUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -731,7 +731,7 @@ Public Class ClsContratos
     End Function
 
     Public Function GetContratosObraEstadoCuenta(CveContrato As Integer, CveEmpresa As Integer, Opcion As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosEstadoCuentaGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -755,7 +755,7 @@ Public Class ClsContratos
 #Region "ESTIMACION OBRA"
 
     Public Function GetContratosObraRepAvances(FechaI As Date, FechaF As Date, CveCliente As Integer, CveContrato As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosObraRepAvancesGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -778,7 +778,7 @@ Public Class ClsContratos
 
 
     Public Function GetContratosObraRepAvancesDetalle(CveContrato As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosObraRepAvancesDetalleGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -798,7 +798,7 @@ Public Class ClsContratos
 
 
     Public Function GetContratosObraRepAvancesPartida(CveEstimacion As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosObraRepAvancesPartidaGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -817,7 +817,7 @@ Public Class ClsContratos
     End Function
 
     Public Function GetContratosObraRepAvancesPartida(FechaI As Date, FechaF As Date, CveCliente As Integer, CveContrato As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosObraRepAvancesPartidaGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -840,7 +840,7 @@ Public Class ClsContratos
 
 
     Public Function GetContratosObraAvancesControlAcumulativo(CveContrato As Integer, CveEstimacion As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosObraAvancesControlAcumulativo")
         With SqlAdapter.SelectCommand.Parameters
@@ -866,11 +866,8 @@ Public Class ClsContratos
 
 #Region "GASTOS OBRA"
 
-
-
-
     Public Function GetContratosObragGastosVeiculos(CveContrato As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosObraGastosVeiculosGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -888,10 +885,8 @@ Public Class ClsContratos
         Return Retorno
     End Function
 
-
-
     Public Function GetContratosObragGastosCompras(CveContrato As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosObraGastosComprasGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -911,7 +906,7 @@ Public Class ClsContratos
 
 
     Public Function GetContratosObragGastosNomina(CveContrato As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosObraGastosNominaGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -1048,7 +1043,7 @@ Public Class ClsContratos
 
     Public Function AddContratosDetalle(CveContrato As Integer, CvePS As Integer, Cantidad As Double, PU As Double, CveUsuario As Integer, CveTipoPresupuesto As Integer, NoIdentificacion As String, LimitarCantidad As Boolean, OCInterna As String,
                                         Optional Observacion As String = "", Optional CveRubro As Integer = -1, Optional CveActividad As Integer = -1, Optional CveSubTipoActivoFijo As Integer = -1, Optional Dias As Integer = -1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosDetalleAdd")
         With SqlAdapter.SelectCommand.Parameters
@@ -1083,7 +1078,7 @@ Public Class ClsContratos
 
     Public Function UpdateContratosDetalle(CveContratoDetalle As Integer, CveContrato As Integer, CvePS As Integer, Cantidad As Double, PU As Double, CveUsuario As Integer, NoIdentificacion As String, LimitarCantidad As Boolean, OCInterna As String,
                                            Optional Observacion As String = "", Optional CveRubro As Integer = -1, Optional CveActividad As Integer = -1, Optional CveSubTipoActivoFijo As Integer = -1, Optional Dias As Integer = -1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosDetalleUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -1116,7 +1111,7 @@ Public Class ClsContratos
 
 
     Public Function GetContratosDetalle(CveContrato As Integer, CveEmpresa As Integer, Optional Grupo As Integer = 1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosDetalleGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -1136,7 +1131,7 @@ Public Class ClsContratos
     End Function
 
     Public Function GetContratosDetalleOC(CveCliente As Integer, OCs As String, Tipo As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosDetalleOCGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -1156,7 +1151,7 @@ Public Class ClsContratos
     End Function
 
     Public Function AutorizarContratos(CveContrato As Integer, CveUsuario As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosAutorizar")
         With SqlAdapter.SelectCommand.Parameters
@@ -1175,7 +1170,7 @@ Public Class ClsContratos
     End Function
 
     Public Function UpdateContratosDetalleEstimacion(CveContratoDetalle As Integer, Estimacion As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosDetalleUpdateEstimacion")
         With SqlAdapter.SelectCommand.Parameters
@@ -1194,7 +1189,7 @@ Public Class ClsContratos
     End Function
 
     Public Function RemoveContratosDetalle(CveContratoDetalle As Integer, CveContrato As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosDetalleRemove")
         With SqlAdapter.SelectCommand.Parameters
@@ -1213,7 +1208,7 @@ Public Class ClsContratos
     End Function
 
     Public Function ValidaPSContrato(DtPS As String) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ValidarPSContrato")
         With SqlAdapter.SelectCommand.Parameters
@@ -1231,7 +1226,7 @@ Public Class ClsContratos
     End Function
 
     Public Function GetPSContratoDetalle(CveContrato As Integer, DtPS As String) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_GetPSContratoDetalle")
         With SqlAdapter.SelectCommand.Parameters
@@ -1253,7 +1248,7 @@ Public Class ClsContratos
 
 #Region "Contratos detalles Avance"
     Public Function GetContratosAvanceHistoricos(CveContrato As Integer, CveTipoPresupuesto As Integer, fecha As String) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosAvanceHistorico")
         With SqlAdapter.SelectCommand.Parameters
@@ -1272,7 +1267,7 @@ Public Class ClsContratos
         Return Retorno
     End Function
     Public Function GetContratosAvanceTodos(CveContrato As Integer, CveTipoPresupuesto As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosAvanceTodos")
         With SqlAdapter.SelectCommand.Parameters
@@ -1290,7 +1285,7 @@ Public Class ClsContratos
         Return Retorno
     End Function
     Public Function GetContratosAvanceFecha(CveContrato As Integer, CveTipoPresupuesto As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosAvanceFechas")
         With SqlAdapter.SelectCommand.Parameters
@@ -1308,7 +1303,7 @@ Public Class ClsContratos
         Return Retorno
     End Function
     Public Function AddContratosAvance(CveContratoDetalle As Integer, Cantidad As Double, Fecha As Date, CveUsuario As Integer, Optional CveEstimacion As Integer = -1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         DataAdapter("PA_Con_ContratosAvanceAdd")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle
@@ -1328,7 +1323,7 @@ Public Class ClsContratos
         Return Retorno
     End Function
     Public Function UpdateContratosDetalleAvance(CveContratoDetalle As Integer, Avance As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosDetalleUpdateAvance")
         With SqlAdapter.SelectCommand.Parameters
@@ -1346,7 +1341,7 @@ Public Class ClsContratos
         Return Retorno
     End Function
     Public Function AddContratosAvanceAnexo(CveContratoAvance As Integer, Archivo As String, CveUsuario As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         DataAdapter("PA_Con_ContratosAvanceAnexosAdd")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveContratoAvance", SqlDbType.Int).Value = CveContratoAvance
@@ -1363,7 +1358,7 @@ Public Class ClsContratos
         Return Retorno
     End Function
     Public Function GetContratosAvanceAnexos(CveContratoDetalle As Integer, CveUsuario As Integer, Optional CveEstimacion As Integer = -1, Optional CveContratoAvance As Integer = -1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosAvanceAnexos")
         With SqlAdapter.SelectCommand.Parameters
@@ -1386,9 +1381,8 @@ Public Class ClsContratos
 
 #Region "ESTIMACION"
 
-
     Public Function AddContratosObraAvance(CveContrato As Integer, CveContratoDetalle As Integer, Cantidad As Double, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         CveEstimacionActual = 0
 
@@ -1422,7 +1416,7 @@ Public Class ClsContratos
 
 
     Public Function GetContratosAvanceEstimacion(CveContrato As Integer, CveEmpresa As Integer, CveEstimacion As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosAvanceEstimacionGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -1443,7 +1437,7 @@ Public Class ClsContratos
 
 
     Public Function AddContratosAvanceEstimacion(CveContrato As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         NumeroEstimacionNueva = -1
         CveEstimacionNueva = -1
@@ -1475,7 +1469,7 @@ Public Class ClsContratos
 
     Public Function UpdateContratosAvanceEstimacion(CveContratoAvance As Integer, CveEstimacion As Integer, CveEmpresa As Integer) As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosAvanceEstimacionUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -1494,12 +1488,9 @@ Public Class ClsContratos
         Return Retorno
     End Function
 
-
-
-
     Public Function UpdateContratosEstimacion(CveEstimacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveEstimacionEstatus As Integer) As Boolean
 
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosEstimacionUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -1524,7 +1515,7 @@ Public Class ClsContratos
 
 
     Public Function RemoveContratosAvance(CveContratoAvance As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosAvanceRemove")
         With SqlAdapter.SelectCommand.Parameters
@@ -1549,7 +1540,7 @@ Public Class ClsContratos
 #Region "CONTRATOS OBRA COMPRAS"
 
     Public Function GetContratosObraCompras(CveContrato As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosAvanceObraComprasGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -1880,10 +1871,8 @@ Public Class ClsContratos
 
 #Region "S U B - T O T A L E S"
 
-
     Public Function GetSubTotalesConDetalle(CveEmpresa As Integer) As Boolean
-
+        Dim Retorno As Boolean = False
-        Dim Retorno = False
 
         DataAdapter("PA_Con_SubtotalesWDetalles")
         With SqlAdapter.SelectCommand.Parameters
@@ -1902,8 +1891,7 @@ Public Class ClsContratos
     End Function
 
     Public Function GetSubTotales(CveEmpresa As Integer, CveContrato As Integer) As Boolean
-
+        Dim Retorno As Boolean = False
-        Dim Retorno = False
 
         DataAdapter("PA_Con_SubTotalesGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -1921,14 +1909,11 @@ Public Class ClsContratos
         Return Retorno
 
     End Function
-    Public Function UpdateSubTotales(Descripcion As String, Porcentaje As Double,
+    Public Function UpdateSubTotales(Descripcion As String, Porcentaje As Double, CveSeccion As Integer, CveSubTotal As Integer, CveEmpresa As Integer) As Boolean
-                                     CveSeccion As Integer, CveSubTotal As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
-
-        Dim Retorno = False
 
         DataAdapter("PA_Con_SubTotalesUpdate")
         With SqlAdapter.SelectCommand.Parameters
-
             .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
             .Add("@Porcentaje", SqlDbType.Float).Value = Porcentaje
             .Add("@CveSeccion", SqlDbType.Int).Value = CveSeccion
@@ -1944,7 +1929,6 @@ Public Class ClsContratos
         End Try
 
         Return Retorno
-
     End Function
     Public Function AddContratosSubTotales(CveContrato As Integer, CveSubTotal As Integer, Porcentaje As Double, Importe As Double) As Boolean
         Dim Retorno As Boolean = False
@@ -1989,7 +1973,7 @@ Public Class ClsContratos
 #Region "S U B - T O T A L E S - D E T A L L E S"
     Public Function GetSubTotalesDetalle(CveEmpresa As Integer) As Boolean
 
-        Dim Retorno = True
+        Dim Retorno As Boolean = True
 
         DataAdapter("PA_Con_SubTotalesDetalleGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -2795,7 +2779,7 @@ Public Class ClsContratos
 
 #Region "Addendum"
     Public Function GetContratosAddendum(CveContrato As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosAddendumGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -2814,7 +2798,7 @@ Public Class ClsContratos
 
 
     Public Function GetContratosSuministros(CveContrato As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveEstatus As Integer, Tipo As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosSuministrosGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -2838,7 +2822,7 @@ Public Class ClsContratos
 #End Region
 
     Public Function GetContratosCostos(CveContrato As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveEstatus As Integer, Tipo As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_ContratosCostosGet")
         With SqlAdapter.SelectCommand.Parameters

App_Code/ClsGPS.vb

@@ -772,9 +772,9 @@ Public Class ClsGPS
             'Dim datos As New JArray()
 
             Using Row = SqlAdapter.SelectCommand.ExecuteReader()
-                Dim Contador = 0
+                Dim Contador As Integer = 0
-                Dim Info = ""
+                Dim Info As String = ""
-                Dim Direccion = ""
+                Dim Direccion As String = ""
                 Dim SBBody As New StringBuilder
                 Dim StrPolyPath As New StringBuilder
                 Dim StrScriptsMakers As New StringBuilder
@@ -1051,7 +1051,7 @@ Public Class ClsGPS
         End With
 
         Try
-            Dim noRows = SqlAdapter.SelectCommand.ExecuteNonQuery()
+            Dim noRows As Integer = SqlAdapter.SelectCommand.ExecuteNonQuery()
             Retorno = (noRows = 1)
             If Retorno Then
                 CveGeoReferencia = SqlAdapter.SelectCommand.Parameters("@CveGeoReferencia").Value.ToString.ToEntero

App_Code/ClsGPSHerramientas.vb

@@ -105,7 +105,7 @@ Public Class ClsGPSHerramientas
 
     End Sub
     Public Function EjecutarComandoManualSMS(Trama As String, Telefono As String, CveDispositivo As Integer, CveUsuario As Integer, Optional Valor As String = "") As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         Dim ObjMensaje As New ClsTecnoMovil
         If ObjMensaje.EnviarMensajeWS(Telefono, Trama) Then
             Retorno = InsertarComandoEnviar(Trama, 2, 1, CveDispositivo, CveUsuario, -1)

App_Code/ClsGenerales.vb

@@ -1817,7 +1817,7 @@ Public Class ClsGenerales
 
     End Function
     Public Function GetTipoCambio(CveTipoCambio As Integer, Fecha As Date) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Gral_TipoCambioGet")
 
@@ -1836,7 +1836,7 @@ Public Class ClsGenerales
         Return Retorno
     End Function
     Public Function GetTipoCambioUltimaFluctuacion(CveTipoCambio As Integer, Fecha As Date, Optional Top As Integer = 1000) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Gral_TipoCambioUltimaFluctuacionGet")
 
@@ -1856,7 +1856,7 @@ Public Class ClsGenerales
         Return Retorno
     End Function
     Public Function GetTiposCambio(FechaInicio As Date, FechaFin As Date) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_Gral_TiposCambioGet")
 

App_Code/ClsOC.vb

@@ -2028,7 +2028,7 @@ Public Class ClsOC
         Return Retorno
     End Function
     Public Function GetOCFacturacion(pCveOrdenCompra As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_OC_OrdenesCompraFacturacionGet")
 

App_Code/ClsOIEventos.vb

@@ -1466,7 +1466,7 @@ Public Class ClsOIEventos
 
 #Region "E V E N T O S"
     Public Function GetEvento(CveEvento As Integer, CveUsuarioConsulta As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno = GetEventos(CveEvento, -1, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, CveUsuarioConsulta, CveEmpresa)
+        Dim Retorno As Boolean = GetEventos(CveEvento, -1, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, CveUsuarioConsulta, CveEmpresa)
         Return Retorno
     End Function
     Public Function GetEvento(objEvento As Modelos.Evento, CveUsuarioConsulta As Integer) As Boolean

App_Code/ClsPaginas.vb

@@ -19,8 +19,8 @@ Imports Newtonsoft.Json.Linq
 Public Class ClsPaginas
     Inherits System.Web.UI.Page
     Public Const CveUsuarioAsistencia As Integer = 100
-    Public Const ContraseñaPredeterminada = "-acceso-"
+    Public Const ContraseñaPredeterminada As String = "-acceso-"
-    Public Const ContraseñaPredeterminadaEncriptada = "aQDyjiv2NgoTct4c84VnLQ==" ' "-acceso-"
+    Public Const ContraseñaPredeterminadaEncriptada As String = "aQDyjiv2NgoTct4c84VnLQ==" ' "-acceso-"
     Private Shared EncryptKey() As Byte = {}
     Private Shared ReadOnly IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
     Private Const SEncryptionKey As String = "__sig__$gj7+5&j__sig__"
@@ -1622,7 +1622,7 @@ Public Class ClsPaginas
                     ObjPS.Dispose()
                 End If
 
-                Dim Cons = DirectCast(HttpContext.Current.Application(AppNombre), EnumerableRowCollection(Of DataRow))
+                Dim Cons As EnumerableRowCollection(Of DataRow) = DirectCast(HttpContext.Current.Application(AppNombre), EnumerableRowCollection(Of DataRow))
                 'Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa))
                 If CveClasificacion >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveClasificacion) = CveClasificacion))
                 If PSCodigo <> "-1" Then Cons = Cons.Where((Function(a) Convert.ToString(a!PSCodigo) = PSCodigo))
@@ -4327,15 +4327,15 @@ Public Class ClsPaginas
         Return URLParametros
     End Function
     Private Function AuthorizePageWithoutSessions() As List(Of String)
-        Dim pages = New List(Of String)
+        Dim pages As List(Of String) = New List(Of String)
         pages.Add("/Compras/PopUpVerFactura.aspx")
         Return pages
     End Function
     Protected Overridable Sub Page_PreInit(sender As Object, e As EventArgs) Handles Me.PreInit
         If Not User.Identity.IsAuthenticated OrElse UsuarioActual Is Nothing Then
             Dim AuthorizeRequest As Boolean = False
-            Dim HuboError = False
+            Dim HuboError As Boolean = False
-            Dim statusCode = 200
+            Dim statusCode As Integer = 200
             If AuthorizePageWithoutSessions().Contains(Request.ServerVariables("URL")) Then
                 If Request.Headers("ADSToken") IsNot Nothing AndAlso Request.Headers("Host") IsNot Nothing Then
                     Try
@@ -4634,7 +4634,7 @@ Public Class ClsPaginas
         rds.Name = RDSName
         rds.Value = DtDatos
         lrds.Add(rds)
-        Dim Extension = "pdf"
+        Dim Extension As String = "pdf"
         If Formato.ToLower() = "excel" Then
             Extension = "xlsx"
         End If
@@ -4746,7 +4746,7 @@ Public Class ClsPaginas
                         reportobjects.Add(ojext)
                     End If
                 Else
-                    Dim dt = New DataTable()
+                    Dim dt As DataTable = New DataTable()
                     dt.TableName = If(String.IsNullOrEmpty(rpds.Name), "DataTable1", rpds.Name)
                     ds.Tables.Add(dt)
                 End If
@@ -4846,7 +4846,7 @@ Public Class ClsPaginas
     End Function
     Private Sub LocalReport_SubreportProcessing(ByVal sender As Object, ByVal e As SubreportProcessingEventArgs)
         If SubReportData IsNot Nothing Then
-            For Each ds In SubReportData.DataSources
+            For Each ds As ReportDataSource In SubReportData.DataSources
                 e.DataSources.Add(ds)
             Next
         End If
@@ -5146,9 +5146,9 @@ Public Class ClsPaginas
         Dim RutaCBB As String = String.Format("{0}CBB\{1}.jpg", Ruta, Vta.SerieFolio)
         Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)
         Dim ImgCBB As String '= String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, Vta.SerieFolio)
-        Dim ImagenPath = String.Format("{0}Formatos\Suc{1}\logo.png", UsuarioActual.Empresa.Ruta, Vta.CveSucursal)
+        Dim ImagenPath As String = String.Format("{0}Formatos\Suc{1}\logo.png", UsuarioActual.Empresa.Ruta, Vta.CveSucursal)
         Dim Logo As New System.IO.FileInfo(ImagenPath)
-        Dim ImgLogo = New Uri(String.Format("{0}Empresas/{1}/Formatos/Suc{2}.png", UrlSitio, UsuarioActual.CveEmpresa, Vta.CveSucursal)).AbsoluteUri
+        Dim ImgLogo As String = New Uri(String.Format("{0}Empresas/{1}/Formatos/Suc{2}.png", UrlSitio, UsuarioActual.CveEmpresa, Vta.CveSucursal)).AbsoluteUri
         Dim SBDomicilioSucursal As New StringBuilder()
         Dim CiudadSucursal As String = String.Format("{0},{1}", Vta.SubProyecto.Municipio, Vta.SubProyecto.Estado)
         Dim DomicilioSucursal As String = ""
@@ -5171,7 +5171,7 @@ Public Class ClsPaginas
         Vta.SelloCFDi = "Sin Timbrar"
         Vta.SelloSAT = "Sin Timbrar"
 #Region "COMERCIO EXTERIOR VARIABLES Y TABLAS"
-        Dim CETipoOperacion = "", CEClavePedimento As String = "", CEIncoterm As String = "", CEId As String = "", CEMotivoTraslado As String = "", CETipoCambio As String = ""
+        Dim CETipoOperacion As String = "", CEClavePedimento As String = "", CEIncoterm As String = "", CEId As String = "", CEMotivoTraslado As String = "", CETipoCambio As String = ""
         Dim RCETipoOperacion As String = "", RCEClavePedimento As String = "", RCEIncoterm As String = "", RCEMotivoTraslado As String = ""
 
         Dim CE_DT_Cabecera As New DataTable
@@ -5210,7 +5210,7 @@ Public Class ClsPaginas
         'SI ESTA TIMBRADA - CON XML
         If File.Exists(PathXML) AndAlso Vta.Serie <> "VistaPrevia" Then 'Cuando es vista previe y coincide la serie y folio se ponen los datos fiscales
             Dim XmlDoc As New System.Xml.XmlDocument
-            Dim EsXMLValido = False
+            Dim EsXMLValido As Boolean = False
             Try
                 XmlDoc.Load(PathXML)
                 EsXMLValido = True
@@ -5225,7 +5225,7 @@ Public Class ClsPaginas
                 If ValorNodoXML(XmlDoc.DocumentElement, "version").Contiene("3.3", "4.0") Then
                     Vta.FechaEmision = ValorNodoXML(XmlDoc.DocumentElement, "fecha").ToDate
                     Vta.NoSerieCertificadoContribuyente = ValorNodoXML(XmlDoc.DocumentElement, "NoCertificado")
-                    Dim validaElemento = XmlDoc.DocumentElement("cfdi:Complemento")
+                    Dim validaElemento As XmlElement = XmlDoc.DocumentElement("cfdi:Complemento")
                     If Not IsNothing(validaElemento) Then
                         For i As Integer = 0 To XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes.Count - 1
                             If XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Name = "tfd:TimbreFiscalDigital" Then
@@ -5344,7 +5344,7 @@ Public Class ClsPaginas
                 Else
                     Vta.FechaEmision = XmlDoc.DocumentElement.Attributes("fecha").InnerText.ToDate
                     Vta.NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("noCertificado").InnerText
-                    Dim validaElemento = XmlDoc.DocumentElement("cfdi:Complemento")
+                    Dim validaElemento As XmlElement = XmlDoc.DocumentElement("cfdi:Complemento")
                     If Not IsNothing(validaElemento) Then
                         For i As Integer = 0 To XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes.Count - 1
                             If XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Name = "tfd:TimbreFiscalDigital" Then
@@ -5641,8 +5641,8 @@ Public Class ClsPaginas
                     'VSH
                     If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then
                         'DATOS CLIENTES
-                        Dim ClienteRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", Vta.CveCliente.ToString))
+                        Dim ClienteRow As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", Vta.CveCliente.ToString))
-                        Dim DatosCliente = ""
+                        Dim DatosCliente As String = ""
                         If ClienteRow IsNot Nothing Then
                             DatosCliente = String.Format("{0} | {1} | {2}", Vta.SubProyecto.Municipio, ClienteRow("CuentaContable"), ClienteRow("Codigo"))
                         End If
@@ -5919,7 +5919,7 @@ Public Class ClsPaginas
                 For i As Integer = 0 To Vta.DtFirmas.Rows.Count - 1
                     'Si DtDetalle es menor al DtFirmas, crea un nuevo Row en DtDetalle y le asigna valor, Si no solo  asigna valor
                     If DtDetalleFirmas.Rows.Count < i + 1 Then
-                        Dim Dr = DtDetalleFirmas.NewRow
+                        Dim Dr As DataRow = DtDetalleFirmas.NewRow
                         Dr("Titulo") = Vta.DtFirmas(i)("Titulo").ToString
                         Dr("Nombre") = Vta.DtFirmas(i)("Nombre").ToString
                         Dr("Puesto") = Vta.DtFirmas(i)("Puesto").ToString
@@ -6084,7 +6084,7 @@ Public Class ClsPaginas
             urlHost = "http://sig.adssistemas.mx:6599/"
         End If
         'SITIO DE PRUEBA EN IIS
-        Dim Url = New Uri(String.Format("{0}{1}", urlHost, Opcion))
+        Dim Url As Uri = New Uri(String.Format("{0}{1}", urlHost, Opcion))
         Try
             Dim dataSourceArray As New JArray()
             Dim paramsArray As New JArray()
@@ -6150,7 +6150,7 @@ Public Class ClsPaginas
     Public Sub GenerarFacturaVenta(CveVenta As Integer)
         Dim ObjVentas As New ClsVentas
         Dim Vta As Modelos.Factura = Nothing
-        Dim TmpDTImpuestos = New DataTable
+        Dim TmpDTImpuestos As DataTable = New DataTable
         TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String))
         TmpDTImpuestos.Columns.Add("Importe", GetType(Double))
         TmpDTImpuestos.Columns.Add("Orden", GetType(Integer))
@@ -6230,7 +6230,7 @@ Public Class ClsPaginas
                     Dim dtImpuesto As DataTable = ObjVentas.DtResultados
                     If dtImpuesto.Rows.Count > 0 Then
                         For Each Row As DataRow In dtImpuesto.Rows
-                            Dim Orden = 80
+                            Dim Orden As Integer = 80
                             If Row("Importe").ToString.ToDouble <> 0 Then
                                 DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString
                                 DR("Importe") = Row("Importe").ToString.ToDouble
@@ -6619,11 +6619,11 @@ Public Class ClsPaginas
             End If
             If DTCxPTempral IsNot Nothing AndAlso DTCxPTempral.Rows.Count > 0 Then
                 Dim dr As DataRow = DTCxPTempral.Rows(0)
-                Dim NombreProv = ""
+                Dim NombreProv As String = ""
-                Dim Direccion = ""
+                Dim Direccion As String = ""
-                Dim RFC = ""
+                Dim RFC As String = ""
-                Dim Tel = ""
+                Dim Tel As String = ""
-                Dim DiasCredito = ""
+                Dim DiasCredito As String = ""
                 Dim LimCredito As Double
                 CveEmpresaActual = dr("CveEmpresa").ToString.ToEntero
                 Dim ObjEmpresa As New ClsSisEmpresas()
@@ -6634,7 +6634,7 @@ Public Class ClsPaginas
                 ObjEmpresa.Dispose()
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepProveedorCxP.rpt", EmpresaActual.Ruta))
                 Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", EmpresaActual.Ruta))
-                Dim logouri = String.Format("{0}Logo.png", EmpresaActual.Ruta) 'String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, CveEmpresaActual)
+                Dim logouri As String = String.Format("{0}Logo.png", EmpresaActual.Ruta) 'String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, CveEmpresaActual)
                 Dim ObjProveedor As New ClsCompProveedores()
                 If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, EmpresaActual.CveEmpresa) Then
                     If ObjProveedor.DtResultados.Rows.Count > 0 Then
@@ -6647,7 +6647,7 @@ Public Class ClsPaginas
                     End If
                 End If
                 ObjProveedor.Dispose()
-                Dim lista = New List(Of CrystalParametro)
+                Dim lista As List(Of CrystalParametro) = New List(Of CrystalParametro)
                 lista.Add(New CrystalParametro("Empresa", EmpresaActual.Empresa))
                 lista.Add(New CrystalParametro("TipoCuentas", "Todas"))
                 lista.Add(New CrystalParametro("FechaInicio", "-"))
@@ -6682,7 +6682,7 @@ Public Class ClsPaginas
     Public Function GeneraPDFNomina(CvePersonal As Integer, CvePeriodo As Integer, CveEmpresa As Integer, RutaEmpresa As String, Optional indemnizacion As Boolean = False) As Byte()
         Dim ObjNomina As New ClsNominas
         Dim ObjPersonal As New ClsRH
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
         Dim Retorno As Byte() = Nothing
         If Not ObjNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodo, -1, CveEmpresa) Then
             Alert("Ocurrio un erro al obtener datos de la nomina", TipoMensaje.MsgError)
@@ -6690,7 +6690,7 @@ Public Class ClsPaginas
             ObjNomina.Dispose()
             Return Nothing
         End If
-        Dim CveNomina = ObjNomina.CveNomina
+        Dim CveNomina As Integer = ObjNomina.CveNomina
         Dim DTPercepciones As Data.DataTable
         Dim DTDeducciones As Data.DataTable
         Dim DTDeducciones2 As New Data.DataTable
@@ -6990,26 +6990,26 @@ Public Class ClsPaginas
     Public Sub PDFReciboDePagos(CveVenta As Integer, CveIE As Integer, CveComplementoPago As Integer, Optional imprimir As Boolean = True, Optional SobreescribirPDF As Boolean = False)
         Dim params As New List(Of ReportParameter)
         Dim SerieFolio As String = ""
-        Dim Serie = ""
+        Dim Serie As String = ""
-        Dim Folio = ""
+        Dim Folio As String = ""
-        Dim CveCliente = -1
+        Dim CveCliente As Integer = -1
-        Dim RFCOrdenante = ""
+        Dim RFCOrdenante As String = ""
         Dim CveMoneda As Integer = 1
-        Dim FolioFiscal = ""
+        Dim FolioFiscal As String = ""
-        Dim NoSerieCertificado = ""
+        Dim NoSerieCertificado As String = ""
-        Dim FechaCertificacion = ""
+        Dim FechaCertificacion As String = ""
-        Dim SelloCFDi = ""
+        Dim SelloCFDi As String = ""
-        Dim SelloSAT = ""
+        Dim SelloSAT As String = ""
-        Dim CertificadoSAT = ""
+        Dim CertificadoSAT As String = ""
         Dim FechaComprobante As Date
-        Dim CveUnidad = ""
+        Dim CveUnidad As String = ""
-        Dim Descripcion = ""
+        Dim Descripcion As String = ""
-        Dim Cantidad = ""
+        Dim Cantidad As String = ""
-        Dim CvePS = ""
+        Dim CvePS As String = ""
-        Dim PU = ""
+        Dim PU As String = ""
-        Dim Importe = ""
+        Dim Importe As String = ""
-        Dim TotalLetra = ""
+        Dim TotalLetra As String = ""
-        Dim FechaRecibo = ""
+        Dim FechaRecibo As String = ""
         Dim ProveedorIntermediario As String = ""
         Dim RegimenFiscalCodigo As String = ""
         Dim CFDIVersion As String = "4.0"
@@ -7135,13 +7135,13 @@ Public Class ClsPaginas
         If File.Exists(PathXML) Then
             Dim XmlDoc As New System.Xml.XmlDocument
             XmlDoc.Load(PathXML)
-            Dim Version = ValorXML(XmlDoc.DocumentElement, "version")
+            Dim Version As String = ValorXML(XmlDoc.DocumentElement, "version")
             Dim namespaces As New XmlNamespaceManager(XmlDoc.NameTable)
             Dim Prefijo As String = If(XmlDoc.DocumentElement.Prefix = "", "cfd", XmlDoc.DocumentElement.Prefix)
             Dim cfdVer As String = ""
             Dim PagoVersion As String = "pago20"
-            Dim validaElemento = XmlDoc.DocumentElement("cfdi:Complemento")
+            Dim validaElemento As XmlElement = XmlDoc.DocumentElement("cfdi:Complemento")
-            Dim validaElementoPago = XmlDoc.DocumentElement("cfdi:Conceptos")
+            Dim validaElementoPago As XmlElement = XmlDoc.DocumentElement("cfdi:Conceptos")
             If Version = "3.3" Then
                 cfdVer = "http://www.sat.gob.mx/cfd/3"
                 PagoVersion = "pago10"
@@ -7208,7 +7208,7 @@ Public Class ClsPaginas
                         If Version = "4.0" Then DrRelacionado("ObjetoImpDR") = Relacionado.Attributes("ObjetoImpDR").Value
                         DrRelacionado("MonedaDR") = Relacionado.Attributes("MonedaDR").Value
                         If Version = "4.0" Then
-                            Dim NodosTraslados = Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:TrasladosDR/{PagoVersion}:TrasladoDR", namespaces)
+                            Dim NodosTraslados As XmlNodeList = Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:TrasladosDR/{PagoVersion}:TrasladoDR", namespaces)
                             For Each NodoTraslados As XmlNode In NodosTraslados
                                 Dim BaseDR As String = ValorXML(NodoTraslados, "BaseDR")
                                 Dim ImpuestoDR As String = ValorXML(NodoTraslados, "ImpuestoDR")  ' ImpuestoDR

App_Code/ClsProductosServicios.vb

@@ -1316,8 +1316,7 @@ Public Class ClsProductosServicios
 
     'Ubicacion temporal
     Public Function GetMetodosInv() As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
-
         DataAdapter("PA_Inv_MetodosGet")
 
         Try

App_Code/ClsProyectos.vb

@@ -147,7 +147,7 @@ Public Class ClsProyectos
     End Function
 
     Public Function AddProyecto(Proyecto As String, CveUsuario As Integer, CveEmpresa As Integer, Optional CveSucursal As Integer = -1) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
 
         DataAdapter("PA_ProyectoAdd")
 

App_Code/ClsRH.vb

@@ -1942,7 +1942,7 @@ Public Class ClsRH
         Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1) As Boolean
 
         Dim Retorno As Boolean = False
-        Dim noguardoXcurp = False
+        Dim noguardoXcurp As Boolean = False
         SqlDataAdapter("PA_RH_PersonalAdd")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -7061,7 +7061,7 @@ Public Class ClsRH
 #Region "T A G S - RH "
 
     Public Function GetDatosTagsDocumentos(CvePersonal As Integer, CveEmpresa As Integer) As List(Of TagsDocumentos)
-        Dim ListaTagsDocumentost = New List(Of TagsDocumentos)
+        Dim ListaTagsDocumentost As List(Of TagsDocumentos) = New List(Of TagsDocumentos)
 
         If PersonalReclutamientoGet(CvePersonal, CveEmpresa) Then
 

App_Code/ClsSAT.vb

@@ -218,7 +218,7 @@ Public Class ClsSAT
     Private Function ToDataTable69B(Ruta As String) As DataTable
 
         ' Dim conn As Odbc.OdbcConnection = Nothing
-        Dim HasError = False
+        Dim HasError As Boolean = False
         Dim DTRespuesta As DataTable = New DataTable
         DTRespuesta.TableName = "Detalles"
 

App_Code/ClsSisUsuarios.vb

@@ -273,8 +273,7 @@ Public Class ClsSisUsuarios
                 Retorno.Procesos = UsuariosProcesos
 
                 Dim UsuariosIndicadores As New HybridDictionary
-                Dim dTableIndicadores = getUsuarioIndicadores(Retorno.CveUsuario, Retorno.CveEmpresa, Retorno.CveRol)
+                Dim dTableIndicadores As DataTable = getUsuarioIndicadores(Retorno.CveUsuario, Retorno.CveEmpresa, Retorno.CveRol)
-
 
 
                 For Each Row As DataRow In dTableIndicadores.Rows
@@ -843,7 +842,7 @@ Public Class ClsSisUsuarios
                                CveUsuarioIng As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, Optional Rol As String = "-1", Optional CveAlmacenAsignado As Integer = -1, Optional AsignarSubProyecto As Boolean = False, Optional AsignarOC As Boolean = False,
                                Optional CvePlataforma As Integer = -1, Optional CveClientePlataforma As Integer = -1, Optional CveProveedorPlataforma As Integer = -1, Optional DescuentoAutorizado As Double = 0, Optional CodigoAcceso As String = "-1",
                                Optional LimiteCreditoAutorizado As Decimal = 0, Optional PorcentajeMaximoAutorizacion As Decimal = 0, Optional DiasMaximoAutorizacion As Integer = 0) As Integer
-        Dim Retorno = -1
+        Dim Retorno As Integer = -1
         DataAdapter("PA_Sis_UsuarioAdd")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@Usuario", SqlDbType.VarChar).Value = Usuario
@@ -910,7 +909,7 @@ Public Class ClsSisUsuarios
     End Function
     Public Function AddUsuarioPopUp(Usuario As String, Contraseña As String, Nombre As String, Correo As String, CambiarContraseña As Boolean,
                                CveUsuarioIng As Integer, CveEmpresa As Integer, CveCliente As Integer, CveProveedor As Integer, Optional CvePlataforma As Integer = -1) As Integer
-        Dim Retorno = -1
+        Dim Retorno As Integer = -1
         DataAdapter("PA_Sis_UsuarioAddPopUp")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@Usuario", SqlDbType.VarChar).Value = Usuario
@@ -941,7 +940,7 @@ Public Class ClsSisUsuarios
         Return Retorno
     End Function
     Public Function DeleteClienteUsuario(CveUsuario As Integer, CveCliente As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         DataAdapter("PA_Sis_UsuariosClienteDelete")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -1832,7 +1831,7 @@ Public Class ClsSisUsuarios
         dtMenu.TableName = "UsuariosModulos"
 
         Try
-            Dim Carpeta = ""
+            Dim Carpeta As String = ""
 
             'GPS
             Carpeta = $"{AppDomain.CurrentDomain.BaseDirectory}/Menu/GPS"

App_Code/ClsValidaCFDi.vb

@@ -120,7 +120,7 @@ Public Class ClsValidaCFDi
             'SI NO PUEDE ENCONTRAR EL ESTATUS UTILIZA EL SERVICIO PARA ESTATUS DE CANCELACION
             If EsValida = 0 Then
 
-                Dim Vigencia = Timbrado.VerificarVigenciaSAT(LFolioFiscal.ToUpper, LRFCEmisor.Replace("%26", "&"), LRFCReceptor.Replace("%26", "&"), Importe, True)
+                Dim Vigencia As Timbrado.AcuseCancelacionSAT = Timbrado.VerificarVigenciaSAT(LFolioFiscal.ToUpper, LRFCEmisor.Replace("%26", "&"), LRFCReceptor.Replace("%26", "&"), Importe, True)
 
                 If Vigencia IsNot Nothing Then
                     If Not Vigencia.Estado.ToUpper().Contains("NO ENCONTRADO") AndAlso Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then

App_Code/ClsVentas.vb

@@ -2174,7 +2174,7 @@ Public Class ClsVentas
     Public Function AddPromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean,
                                    CveMoneda As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, TipoAplicacion As String,
                                    Optional CveMarca As Integer = -1, Optional EsDistribuidor As Integer = -1) As Integer
-        Dim Retorno = -1
+        Dim Retorno As Integer = -1
         DataAdapter("PA_Vta_PromocionesAdd")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -2206,7 +2206,7 @@ Public Class ClsVentas
 
 
     Public Function AddPromociones(CvePromocion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Actualizar As Boolean) As Integer
-        Dim Retorno = -1
+        Dim Retorno As Integer = -1
         DataAdapter("PA_Vta_PromocionesAddClonar")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -3172,7 +3172,7 @@ Public Class ClsVentas
                 theDataSet.ReadXml(theReader)
 
                 If theDataSet.Tables(0).Rows(0)("Uuid").ToString() <> "null" Then
-                    Dim sb = New StringBuilder()
+                    Dim sb As StringBuilder = New StringBuilder()
 
                     For Each item As DataRow In theDataSet.Tables(0).Rows
                         sb.AppendFormat("{0};", item("Uuid").ToString())
@@ -3331,7 +3331,7 @@ Public Class ClsVentas
 
 #Region "  CANCELAR ANTE SAT  "
     Public Function CancelarVentasSAT(StrVentas As String) As String
-        Dim CveVentas = StrVentas.Split(","c)
+        Dim CveVentas As String() = StrVentas.Split(","c)
         Dim CveVentasError As New List(Of Integer)
 
         If CveVentas IsNot Nothing Then
@@ -3341,17 +3341,17 @@ Public Class ClsVentas
             Dim Usuario As Usuario = Nothing
             Dim ObjEmpresa As New ClsSisEmpresas()
 
-            Dim FolioFiscal = "-1"
+            Dim FolioFiscal As String = "-1"
-            Dim CveEstatus = -1
+            Dim CveEstatus As Integer = -1
-            Dim Total = 0.0D
+            Dim Total As Decimal = 0.0D
-            Dim RFCReceptor = "-1"
+            Dim RFCReceptor As String = "-1"
-            Dim Nombre = "-1"
+            Dim Nombre As String = "-1"
             Dim DbRowVenta As DataRow
-            Dim CveUsuario = -1
+            Dim CveUsuario As Integer = -1
-            Dim pCveEmpresa = -1
+            Dim pCveEmpresa As Integer = -1
-            Dim Contraseña = "-1"
+            Dim Contraseña As String = "-1"
 
-            For Each PCveVenta In CveVentas
+            For Each PCveVenta As String In CveVentas
                 If ObjVentas.GetVenta(PCveVenta.ToEntero, -1) Then
                     DbRowVenta = ObjVentas.DtResultados.Rows(0)
 
@@ -3379,7 +3379,6 @@ Public Class ClsVentas
                         Continue For
                     End If
 
-
                     'SOLO SI ESTA CANCELADA ANTE SAT EN SIG SE INTENTARA CANCELAR DE NUEVO CONTRA EL SAT
                     If CveEstatus = 5 Then
                         Dim Resp As RespuestaCancelacionSAT = ObjCancelacion.CFDICancelar(Usuario.Empresa, FolioFiscal, Total, RFCReceptor, Usuario.Empresa.RFC)