AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

option explicit on

Browse Source
This commit is contained in:
rrene
2023-08-28 10:45:06 -07:00
parent fd6bd430de
commit b9d2f2d57e
19 changed files with 300 additions and 338 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsAF.vb
View File

@@ -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

4
App_Code/ClsBancos.vb
View File

@@ -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")

36
App_Code/ClsCompras.vb
View File

@@ -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"

116
App_Code/ClsContPAQi.vb
View File

@@ -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

199
App_Code/ClsContabilidad.vb
View File

@@ -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

106
App_Code/ClsContratos.vb
View File

@@ -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

8
App_Code/ClsGPS.vb
View File

@@ -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

2
App_Code/ClsGPSHerramientas.vb
View File

@@ -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)

6
App_Code/ClsGenerales.vb
View File

@@ -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")

2
App_Code/ClsOC.vb
View File

@@ -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")

2
App_Code/ClsOIEventos.vb
View File

@@ -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

104
App_Code/ClsPaginas.vb
View File

@@ -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

3
App_Code/ClsProductosServicios.vb
View File

@@ -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

2
App_Code/ClsProyectos.vb
View File

@@ -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")

4
App_Code/ClsRH.vb
View File

@@ -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

2
App_Code/ClsSAT.vb
View File

@@ -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"

11
App_Code/ClsSisUsuarios.vb
View File

@@ -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"

2
App_Code/ClsValidaCFDi.vb
View File

@@ -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

27
App_Code/ClsVentas.vb
View File

@@ -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)