From b9d2f2d57ec88839a808def89b0d2d9833bb61c6 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 28 Aug 2023 10:45:06 -0700 Subject: [PATCH] option explicit on --- App_Code/ClsAF.vb | 2 +- App_Code/ClsBancos.vb | 4 +- App_Code/ClsCompras.vb | 36 +++--- App_Code/ClsContPAQi.vb | 116 ++++++++--------- App_Code/ClsContabilidad.vb | 199 +++++++++++++++--------------- App_Code/ClsContratos.vb | 106 +++++++--------- App_Code/ClsGPS.vb | 8 +- App_Code/ClsGPSHerramientas.vb | 2 +- App_Code/ClsGenerales.vb | 6 +- App_Code/ClsOC.vb | 2 +- App_Code/ClsOIEventos.vb | 2 +- App_Code/ClsPaginas.vb | 104 ++++++++-------- App_Code/ClsProductosServicios.vb | 3 +- App_Code/ClsProyectos.vb | 2 +- App_Code/ClsRH.vb | 4 +- App_Code/ClsSAT.vb | 2 +- App_Code/ClsSisUsuarios.vb | 11 +- App_Code/ClsValidaCFDi.vb | 2 +- App_Code/ClsVentas.vb | 27 ++-- 19 files changed, 300 insertions(+), 338 deletions(-) diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index e767e84c3..61265c606 100644 --- a/App_Code/ClsAF.vb +++ b/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 diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 511993a15..25f50de6a 100644 --- a/App_Code/ClsBancos.vb +++ b/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") diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 65c7ac3e5..57a586ee2 100644 --- a/App_Code/ClsCompras.vb +++ b/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" diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index f0169db98..1e8ddfe32 100644 --- a/App_Code/ClsContPAQi.vb +++ b/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 Comandos As [String]() = file.Split(New String() {"GO"}, StringSplitOptions.None) + 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) 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 diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 4af8d32d9..f5eaa75ab 100644 --- a/App_Code/ClsContabilidad.vb +++ b/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 diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 747f593bd..7c423f4bf 100644 --- a/App_Code/ClsContratos.vb +++ b/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 = False + Dim Retorno As Boolean = 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 = False + Dim Retorno As Boolean = 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, - CveSeccion As Integer, CveSubTotal As Integer, CveEmpresa As Integer) As Boolean - - Dim Retorno = False + Public Function UpdateSubTotales(Descripcion As String, Porcentaje As Double, CveSeccion As Integer, CveSubTotal As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = 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 diff --git a/App_Code/ClsGPS.vb b/App_Code/ClsGPS.vb index 1fa45e0c4..2a38bb5aa 100644 --- a/App_Code/ClsGPS.vb +++ b/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 Info = "" - Dim Direccion = "" + Dim Contador As Integer = 0 + Dim Info As String = "" + 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 diff --git a/App_Code/ClsGPSHerramientas.vb b/App_Code/ClsGPSHerramientas.vb index f0a8eefc7..94a74b82c 100644 --- a/App_Code/ClsGPSHerramientas.vb +++ b/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) diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 3157fd0a5..1b98bec8a 100644 --- a/App_Code/ClsGenerales.vb +++ b/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") diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index ef0885e4e..fe4cc82c8 100644 --- a/App_Code/ClsOC.vb +++ b/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") diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index 6eb47b0ba..37c61db00 100644 --- a/App_Code/ClsOIEventos.vb +++ b/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 diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 5b8d31540..09ddd0a65 100644 --- a/App_Code/ClsPaginas.vb +++ b/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ñaPredeterminadaEncriptada = "aQDyjiv2NgoTct4c84VnLQ==" ' "-acceso-" + Public Const ContraseñaPredeterminada As String = "-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 statusCode = 200 + Dim HuboError As Boolean = False + 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 DatosCliente = "" + Dim ClienteRow As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", Vta.CveCliente.ToString)) + 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 Direccion = "" - Dim RFC = "" - Dim Tel = "" - Dim DiasCredito = "" + Dim NombreProv As String = "" + Dim Direccion As String = "" + Dim RFC As String = "" + Dim Tel As String = "" + 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 Folio = "" - Dim CveCliente = -1 - Dim RFCOrdenante = "" + Dim Serie As String = "" + Dim Folio As String = "" + Dim CveCliente As Integer = -1 + Dim RFCOrdenante As String = "" Dim CveMoneda As Integer = 1 - Dim FolioFiscal = "" - Dim NoSerieCertificado = "" - Dim FechaCertificacion = "" - Dim SelloCFDi = "" - Dim SelloSAT = "" - Dim CertificadoSAT = "" + Dim FolioFiscal As String = "" + Dim NoSerieCertificado As String = "" + Dim FechaCertificacion As String = "" + Dim SelloCFDi As String = "" + Dim SelloSAT As String = "" + Dim CertificadoSAT As String = "" Dim FechaComprobante As Date - Dim CveUnidad = "" - Dim Descripcion = "" - Dim Cantidad = "" - Dim CvePS = "" - Dim PU = "" - Dim Importe = "" - Dim TotalLetra = "" - Dim FechaRecibo = "" + Dim CveUnidad As String = "" + Dim Descripcion As String = "" + Dim Cantidad As String = "" + Dim CvePS As String = "" + Dim PU As String = "" + Dim Importe As String = "" + Dim TotalLetra As String = "" + 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 validaElementoPago = XmlDoc.DocumentElement("cfdi:Conceptos") + Dim validaElemento As XmlElement = XmlDoc.DocumentElement("cfdi:Complemento") + 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 diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 31bac4cb7..77ee44b44 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/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 diff --git a/App_Code/ClsProyectos.vb b/App_Code/ClsProyectos.vb index f26258873..e5b3fe7a3 100644 --- a/App_Code/ClsProyectos.vb +++ b/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") diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 2b0aaa728..ced536b40 100644 --- a/App_Code/ClsRH.vb +++ b/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 diff --git a/App_Code/ClsSAT.vb b/App_Code/ClsSAT.vb index f0650949d..b7eb261df 100644 --- a/App_Code/ClsSAT.vb +++ b/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" diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb index 1a79d3b39..464fb1d6b 100644 --- a/App_Code/ClsSisUsuarios.vb +++ b/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" diff --git a/App_Code/ClsValidaCFDi.vb b/App_Code/ClsValidaCFDi.vb index 79014ea67..c2e19cc0c 100644 --- a/App_Code/ClsValidaCFDi.vb +++ b/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 diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 31f109ff8..8e5dd0133 100644 --- a/App_Code/ClsVentas.vb +++ b/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 CveEstatus = -1 - Dim Total = 0.0D - Dim RFCReceptor = "-1" - Dim Nombre = "-1" + Dim FolioFiscal As String = "-1" + Dim CveEstatus As Integer = -1 + Dim Total As Decimal = 0.0D + Dim RFCReceptor As String = "-1" + Dim Nombre As String = "-1" Dim DbRowVenta As DataRow - Dim CveUsuario = -1 - Dim pCveEmpresa = -1 - Dim Contraseña = "-1" + Dim CveUsuario As Integer = -1 + Dim pCveEmpresa As Integer = -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)