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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2020-07-30 13:49:07 -07:00
parent 1b89476500
commit b2cca5ec15
7 changed files with 566 additions and 503 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsPaginas.vb
View File

@@ -1457,14 +1457,14 @@ Public Class ClsPaginas
Get
Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa)
'sino existe, recarga los datos
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjBancos As New ClsBancos
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Using ObjBancos As New ClsBancos
If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then
Application(AppNombre) = ObjBancos.DtResultados
Else
Application(AppNombre) = Nothing
End If
ObjBancos.Dispose()
End Using
End If
Dim Str As String = String.Format("CveEmpresa = {0} ", UsuarioActual.CveEmpresa)

3
Bancos/IE.aspx.vb
View File

@@ -3800,6 +3800,9 @@ Partial Class Bancos_IE
Else
ObjIE.RollBack()
Alert(MsgError, TipoMensaje.MsgAdvertencia)
If Opcion = "INGPC" Then
CveIE = -1
End If
End If
If Msg.ToString <> "" Then

BIN
Bin/Microsoft.Owin.Security.OAuth.dll
View File

Binary file not shown.

BIN
Bin/Microsoft.Owin.Security.dll
View File

Binary file not shown.

BIN
Bin/Microsoft.Owin.dll
View File

Binary file not shown.

221
Global.asax
View File

@@ -37,8 +37,9 @@
'----------------------------------------------------------------------------------------------------------------------
'C A R G A - R H
GuardaLog(String.Format("Globalasax 1:{0}", DateTime.Now))
Using ObjRH As New ClsRH
Dim ObjRH As New ClsRH
If ObjRH.GetTipoBuzon() Then Application("GlobalDTTipoBuzon") = ObjRH.DtResultados Else Application("GlobalDTTipoBuzon") = Nothing
If ObjRH.GetDepartamentos Then Application("GlobalDTDepartamentos") = ObjRH.DtResultados Else Application("GlobalDTDepartamentos") = Nothing
If ObjRH.GetDocumentos() Then Application("GlobalDTDocumentos") = ObjRH.DtResultados Else Application("GlobalDTDocumentos") = Nothing
@@ -55,18 +56,20 @@
If ObjRH.GetAsistenciasInasistencias() Then Application("GlobalDTAsistenciasInasistencias") = ObjRH.DtResultados Else Application("GlobalDTAsistenciasInasistencias") = Nothing
If ObjRH.GetMotivoHorasExtras() Then Application("GlobalDTMotivosHorasExtras") = ObjRH.DtResultados Else Application("GlobalDTMotivosHorasExtras") = Nothing
If ObjRH.GetAsistenciasDetalle() Then Application("GlobalDTAsistenciaDetalle") = ObjRH.DtResultados Else Application("GlobalDTAsistenciaDetalle") = Nothing
ObjRH.Dispose()
End Using
'----------------------------------------------------------------------------------------------------------------------
'C A R G A - O S
GuardaLog(String.Format("Globalasax 2:{0}", DateTime.Now))
Dim ObjOS As New ClsOS
Using ObjOS As New ClsOS
If ObjOS.GetEstatusOrdenServicio() Then Application("GlobalDTEstatusOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTEstatusOrdenServicios") = Nothing
If ObjOS.GetTipoOrdenesServicios(-1) Then Application("GlobalDTTipoOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTTipoOrdenServicios") = Nothing
ObjOS.Dispose()
End Using
'-------------------------------------------------------------------------------------------------------------------------
'A C T I V O S - F I J O S
GuardaLog(String.Format("Globalasax 3:{0}", DateTime.Now))
Dim ObjActivosFijos As New ClsAF
Using ObjActivosFijos As New ClsAF
If ObjActivosFijos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTAFCaracteristicasClasificaciones") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicasClasificaciones") = Nothing
If ObjActivosFijos.GetCaracteristicas(-1) Then Application("GlobalDTAFCaracteristicas") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicas") = Nothing
If ObjActivosFijos.GetSubTiposActivosFijos(-1) Then Application("GlobalDTSubTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTSubTipoActivoFijo") = Nothing
@@ -74,20 +77,22 @@
If ObjActivosFijos.GetEstatusActivoFijo() Then Application("GlobalDTEstadoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTEstadoActivoFijo") = Nothing
If ObjActivosFijos.GetMarcasActivosFijos(-1) Then Application(" GlobalDTMarcaActivoFijo") = ObjActivosFijos.DtResultados Else Application(" GlobalDTMarcaActivoFijo") = Nothing
If ObjActivosFijos.GetModelosActivosFijos(-1, -1) Then Application("GlobalDTModeloActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTModeloActivoFijo") = Nothing
ObjActivosFijos.Dispose()
End Using
'-------------------------------------------------------------------------------------------------------------------------
'C A R G A - O R D E N E S - D E - C O M P R A S
Dim ObjOC As New ClsOC
GuardaLog(String.Format("Globalasax 4:{0}", DateTime.Now))
Using ObjOC As New ClsOC
If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
ObjOC.Dispose()
End Using
'-------------------------------------------------------------------------------------------------------------------------
'A M O R T I Z A C I O N - C O N T A B L E
Dim ObjAC As New ClsAC
GuardaLog(String.Format("Globalasax 5:{0}", DateTime.Now))
Using ObjAC As New ClsAC
If ObjAC.GetClasificacionFuncional() Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing
If ObjAC.GetClasificacionGeografica() Then Application("GlobalDTAC_ClasificacionGeografica") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionGeografica") = Nothing
If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing
@@ -119,25 +124,28 @@
' If ObjAC.GetCuentas() Then Application("GlobalDTAC_Cuentas") = ObjAC.DtResultados Else Application("GlobalDTAC_Cuentas") = Nothing
' If ObjAC.GetDependencias() Then Application("GlobalDTAC_Dependencias") = ObjAC.DtResultados Else Application("GlobalDTAC_Dependencias") = Nothing
'If ObjAC.GetFinalidad() Then Application("GlobalDTAC_Finalidad") = ObjAC.DtResultados Else Application("GlobalDTAC_Finalidad") = Nothing
ObjAC.Dispose()
End Using
Dim Finan As New ClsFinanzas
GuardaLog(String.Format("Globalasax 6:{0}", DateTime.Now))
Using Finan As New ClsFinanzas
If Finan.GetRazonesFinancieras(-1) Then Application("GlobalDTFinan_RazonesFinancieras") = Finan.DtResultados
Finan.Dispose()
End Using
GuardaLog(String.Format("Globalasax 7:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C A R G A - T I P O G A S T O S
Dim ObjCompra As New ClsCompras()
Using ObjCompra As New ClsCompras()
If ObjCompra.GetTipoGasto(-1, -1) Then Application("GlobalDTTiposGastos") = ObjCompra.DtResultados Else Application("GlobalDTTiposGastos") = Nothing
ObjCompra.Dispose()
End Using
GuardaLog(String.Format("Globalasax 8:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C A R G A - N O M
Dim ObjNom As New ClsNominas()
Using ObjNom As New ClsNominas()
If ObjNom.GetConceptos(-1) Then Application("GlobalDTNomConceptos") = ObjNom.DtResultados Else Application("GlobalDTNomConceptos") = Nothing
If ObjNom.GetConceptosFunciones() Then Application("GlobalDTNomConceptosFunciones") = ObjNom.DtResultados Else Application("GlobalDTNomConceptosFunciones") = Nothing
If ObjNom.GetTiposPeriodos() Then Application("GlobalDTTipoPeriodo") = ObjNom.DtResultados Else Application("GlobalDTTipoPeriodo") = Nothing
@@ -147,12 +155,14 @@
If ObjNom.GetRegimenContratacion Then Application("GlobalDTNomSatRegimenContratacion") = ObjNom.DtResultados Else Application("GlobalDTNomSatRegimenContratacion") = Nothing
If ObjNom.GetRiesgoPuesto Then Application("GlobalDTNomSatRiesgoPuesto") = ObjNom.DtResultados Else Application("GlobalDTNomSatRiesgoPuesto") = Nothing
If ObjNom.GetTipoIncapacidad Then Application("GlobalDTNomSatTipoIncapacidad") = ObjNom.DtResultados Else Application("GlobalDTNomSatTipoIncapacidad") = Nothing
ObjNom.Dispose()
End Using
GuardaLog(String.Format("Globalasax 9:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'P R O S P E C T O S
Dim ObjProspectos As New ClsProspectos
GuardaLog(String.Format("Globalasax 10:{0}", DateTime.Now))
Using ObjProspectos As New ClsProspectos
If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing
If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificacionesCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificacionesCaracteristicas") = Nothing
If ObjProspectos.GetCoordinadores(-1) Then Application("GlobalDTProspectosCoordinadores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCoordinadores") = Nothing
@@ -173,46 +183,51 @@
If ObjProspectos.GetEncuestas(-1, -1) Then Application("GlobalDTProspectosEncuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestas") = Nothing
If ObjProspectos.GetPreguntas(-1, -1, -1) Then Application("GlobalDTProspectosEncuestasPreguntas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasPreguntas") = Nothing
If ObjProspectos.GetRespuestas(-1, -1) Then Application("GlobalDTProspectosEncuestasRespuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasRespuestas") = Nothing
ObjProspectos.Dispose()
End Using
GuardaLog(String.Format("Globalasax 11:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'B A N C O S
Dim ObjBancos As New ClsBancos
GuardaLog(String.Format("Globalasax 12:{0}", DateTime.Now))
Using ObjBancos As New ClsBancos
'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing
If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing
If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing
If ObjBancos.GetBancos_TiposCuenta() Then Application("GlobalDTTipoCuenta") = ObjBancos.DtResultados Else Application("GlobalDTTipoCuenta") = Nothing
ObjBancos.Dispose()
End Using
GuardaLog(String.Format("Globalasax 13:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'I N V E N T A R I O S
Dim Objinventarios As New ClsInventarios
Using Objinventarios As New ClsInventarios
If Objinventarios.GetAlmacenes(-1, -1, -1, -1) Then Application("GlobalDTAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTAlmacen") = Nothing
If Objinventarios.GetSeccionesAlmacenes(-1, -1) Then Application("GlobalDTSeccionAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTSeccionAlmacen") = Nothing
If Objinventarios.GetTiposAlmacenes Then Application("GlobalDTTipoAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTTipoAlmacen") = Nothing
If Objinventarios.GetConceptos Then Application("GlobalDTInvConceptos") = Objinventarios.DtResultados Else Application("GlobalDTInvConceptos") = Nothing
Objinventarios.Dispose()
End Using
GuardaLog(String.Format("Globalasax 14:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C O N T A B I L I D A D - P L A N T I L L A S
Dim ObjContabilidad As New ClsContabilidad
Using ObjContabilidad As New ClsContabilidad
If ObjContabilidad.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing
If ObjContabilidad.GetConta_ConceptosContables() Then Application("GlobalDTContaConceptosContables") = ObjContabilidad.DtResultados Else Application("GlobalDTContaConceptosContables") = Nothing
If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing
ObjContabilidad.Dispose()
End Using
GuardaLog(String.Format("Globalasax 15:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'G E N E R A L E S
Dim ObjGenerales As New ClsGenerales
Using ObjGenerales As New ClsGenerales
If ObjGenerales.GetGralPaises Then Application("GlobalDTGralPaises") = ObjGenerales.DtResultados Else Application("GlobalDTGralPaises") = Nothing
If ObjGenerales.GetGralEstados Then Application("GlobalDTGralEstados") = ObjGenerales.DtResultados Else Application("GlobalDTGralEstados") = Nothing
If ObjGenerales.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = ObjGenerales.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing
@@ -227,22 +242,24 @@
If ObjGenerales.GetGralPaqueteriasGuiasTipo Then Application("GlobalDTPaqueteriaGuiaTipos") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueteriaGuiaTipos") = Nothing
If ObjGenerales.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
ObjGenerales.Dispose()
End Using
GuardaLog(String.Format("Globalasax 16:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'E V E N T O S
Dim ObjEventos As New ClsOIEventos
Using ObjEventos As New ClsOIEventos
If ObjEventos.GetEstatusEventos(-1) Then Application("GlobalDTOIEstatusEventos") = ObjEventos.DtResultados Else Application("GlobalDTOIEstatusEventos") = Nothing
If ObjEventos.GetRevisionesEventos(-1) Then Application("GlobalDTOIRevision") = ObjEventos.DtResultados Else Application("GlobalDTOIRevision") = Nothing
If ObjEventos.GetAgendaTipo() Then Application("GlobalDTOIAgendaTipo") = ObjEventos.DtResultados Else Application("GlobalDTOIAgendaTipo") = Nothing
If ObjEventos.GetEventoTarea(-1, -1) Then Application("GlobalDTOIEventoTarea") = ObjEventos.DtResultados Else Application("GlobalDTOIEventoTarea") = Nothing
ObjEventos.Dispose()
End Using
GuardaLog(String.Format("Globalasax 17:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'V E N T A S
Dim ObjVentas As New ClsVentas
Using ObjVentas As New ClsVentas
If ObjVentas.GetMesas Then Application("GlobalDTMesas") = ObjVentas.DtResultados Else Application("GlobalDTMesas") = Nothing
If ObjVentas.GetPrecioListas Then Application("GlobalDTPrecioListas") = ObjVentas.DtResultados Else Application("GlobalDTPrecioListas") = Nothing
If ObjVentas.GetCondicionesEntrega(-1) Then Application("GlobalDTVtaCondicionesEntrega") = ObjVentas.DtResultados Else Application("GlobalDTVtaCondicionesEntrega") = Nothing
@@ -252,10 +269,11 @@
If ObjVentas.GetTiposRelacion() Then Application("GlobalDTVtaTiposRelacion") = ObjVentas.DtResultados Else Application("GlobalDTVtaTiposRelacion") = Nothing
If ObjVentas.GetCobranzaEstatus(-1, -1) Then Application("GlobalDTVtaCobranzaEstatus") = ObjVentas.DtResultados Else Application("GlobalDTVtaCobranzaEstatus") = Nothing
ObjVentas.Dispose()
End Using
GuardaLog(String.Format("Globalasax 18:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'SAT
Dim ObjGrales As New ClsGenerales
Using ObjGrales As New ClsGenerales
If ObjGrales.GetSATProductosServicios Then Application("GlobalDTPSATPS") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATPS") = Nothing
If ObjGrales.GetSATUnidadMedida Then Application("GlobalDTPSATUM") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATUM") = Nothing
If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados Else Application("GlobalDTSATUsosCFDI") = Nothing
@@ -269,7 +287,8 @@
If ObjGrales.GetSATEstado("-1") Then Application("GlobalDTEstado") = ObjGrales.DtResultados Else Application("GlobalDTEstado") = Nothing
If ObjGrales.GetSATMunicipio("-1") Then Application("GlobalDTMunicipio") = ObjGrales.DtResultados Else Application("GlobalDTMunicipio") = Nothing
If ObjGrales.GetSATColonia("-1") Then Application("GlobalDTColonia") = ObjGrales.DtResultados Else Application("GlobalDTColonia") = Nothing
ObjGrales.Dispose()
End Using
GuardaLog(String.Format("Globalasax 19:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
''MF
@@ -285,7 +304,7 @@
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C L A S I F I C A C I O N E S
Dim ObjClasificaciones As New ClsClasificaciones()
Using ObjClasificaciones As New ClsClasificaciones()
If ObjClasificaciones.GetClasificaciones() Then
Application("GlobalDTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo is null OR Codigo = '' ")
Application("GlobalDTACClasificadorObjetoGasto") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' ")
@@ -311,14 +330,17 @@
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C L A S I F I C A C I O N E S 2
If ObjClasificaciones.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificaciones2") = Nothing
ObjClasificaciones.Dispose()
End Using
GuardaLog(String.Format("Globalasax 20:{0}", DateTime.Now))
Dim ObjVenta As New ClsVentas
Using ObjVenta As New ClsVentas
If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then
Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados
End If
ObjVenta.Dispose()
End Using
GuardaLog(String.Format("Globalasax 21:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -339,45 +361,53 @@
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'M E T O D O S - D E - P A G O
Dim ObjMetodoPago As New ClsMetodosPagos()
Using ObjMetodoPago As New ClsMetodosPagos()
If ObjMetodoPago.GetMetodosPago() Then Application("GlobalDTMetodosPago") = ObjMetodoPago.DtResultados Else Application("GlobalDTMetodosPago") = Nothing
ObjMetodoPago.Dispose()
End Using
GuardaLog(String.Format("Globalasax 21:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'M O N E D A S
Dim ObjMonedas As New ClsMonedas()
Using ObjMonedas As New ClsMonedas()
If ObjMonedas.GetMonedas() Then Application("GlobalDTMonedas") = ObjMonedas.DtResultados Else Application("GlobalDTMonedas") = Nothing
If ObjMonedas.GetMonedasAlias() Then Application("GlobalDTMonedasAlias") = ObjMonedas.DtResultados Else Application("GlobalDTMonedasAlias") = Nothing
ObjMonedas.Dispose()
End Using
GuardaLog(String.Format("Globalasax 22:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'L E Y E N D A S - F I S C A L E S
Dim ObjLeyendasFiscales As New ClsLeyendasFiscales()
Using ObjLeyendasFiscales As New ClsLeyendasFiscales()
If ObjLeyendasFiscales.GetLeyendasFiscales() Then Application("GlobalDTLeyendasFiscales") = ObjLeyendasFiscales.DtResultados Else Application("GlobalDTLeyendasFiscales") = Nothing
ObjLeyendasFiscales.Dispose()
End Using
GuardaLog(String.Format("Globalasax 23:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'F A C T U R A S
Dim ObjEstatusFactura As New ClsEstatusFactura()
Using ObjEstatusFactura As New ClsEstatusFactura()
If ObjEstatusFactura.GetEstatusFactura() Then Application("GlobalDTEstatusFactura") = ObjEstatusFactura.DtResultados Else Application("GlobalDTEstatusFactura") = Nothing
ObjEstatusFactura.Dispose()
End Using
GuardaLog(String.Format("Globalasax 24:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'P R O Y E C T O S
Dim ObjProyectos As New ClsProyectos
Using ObjProyectos As New ClsProyectos
If ObjProyectos.GetProyectos Then Application("GlobalDTProyectos") = ObjProyectos.DtResultados Else Application("GlobalDTProyectos") = Nothing
ObjProyectos.Dispose()
End Using
GuardaLog(String.Format("Globalasax 25:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'S U B P R O Y E C T O S
Dim ObjSubProyectos As New ClsSubProyectos
Using ObjSubProyectos As New ClsSubProyectos
'If ObjSubProyectos.GetSubProyectos Then Application("GlobalDTSubProyectos") = ObjSubProyectos.DtResultados Else Application("GlobalDTSubProyectos") = Nothing
If ObjSubProyectos.GetSubProyectosUsuarios Then
Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
@@ -387,13 +417,15 @@
Application("GlobalDTSubProyectosUsuarios") = Nothing
End If
'Else Application("GlobalDTProyectosUsuarios") = Nothing
ObjSubProyectos.Dispose()
End Using
GuardaLog(String.Format("Globalasax 26:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'T I P O S - D E - E V E N T O S
Dim ObjTiposEventos As New ClsTiposEventos
Using ObjTiposEventos As New ClsTiposEventos
If ObjTiposEventos.GetTiposEventos() Then Application("GlobalDTTiposEventos") = ObjTiposEventos.DtResultados Else Application("GlobalDTTiposEventos") = Nothing
ObjTiposEventos.Dispose()
End Using
GuardaLog(String.Format("Globalasax 27:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'P R O D U C T O S Y S E R V I C I O S - C A R A C T E R I S T I C A S
@@ -408,14 +440,16 @@
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'P R O D U C T O S S E R V I C I O S
Dim ObjPS As New ClsProductosServicios
Using ObjPS As New ClsProductosServicios
'If ObjPS.GetPSAlias(-1, -1) Then Application("GlobalDTProductosServiciosAlias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosAlias") = Nothing
'If ObjPS.GetPSEquivalencias(-1, -1) Then Application("GlobalDTProductosServiciosEquivalencias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosEquivalencias") = Nothing
'If ObjPS.GetPS(-1, -1, -1) Then Application("GlobalDTProductosServicios") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTProductosServicios") = Nothing
If ObjPS.GetMetodosInv() Then Application("GlobalDTInvMetodosInventario") = ObjPS.DtResultados Else Application("GlobalDTInvMetodosInventario") = Nothing
'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing
'If ObjPS.GetPSAdicionales(-1, -1) Then Application("GlobalDTPSAdicionales") = ObjPS.DtResultados Else Application("GlobalDTPSAdicionales") = Nothing
ObjPS.Dispose()
End Using
GuardaLog(String.Format("Globalasax 28:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'P R O V E E D O R E S
@@ -428,10 +462,12 @@
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'P R O V E E D O R E S C U E N T A S
Dim ObjProveedoresBancos As New ClsGenerales
Using ObjProveedoresBancos As New ClsGenerales
If ObjProveedoresBancos.GetCuentasDepositos() Then Application("GlobalDTProveedoresCuentas") = ObjProveedoresBancos.DtResultados Else Application("GlobalDTProveedoresCuentas") = Nothing
ObjProveedoresBancos.Dispose()
End Using
GuardaLog(String.Format("Globalasax 29:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C L I E N T E S
@@ -442,57 +478,67 @@
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C O N T R A T O S
Dim ObjContratos As New ClsContratos
Using ObjContratos As New ClsContratos
If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
'If ObjContratos.GetContratosTipos(-1) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
ObjContratos.Dispose()
End Using
GuardaLog(String.Format("Globalasax 30:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'V E N D E D O R E S
Dim ObjVendedores As New ClsVtaVendedores
Using ObjVendedores As New ClsVtaVendedores
If ObjVendedores.GetVendedores(-1) Then Application("GlobalDTVendedores") = ObjVendedores.DtResultados Else Application("GlobalDTVendedores") = Nothing
ObjVendedores.Dispose()
End Using
GuardaLog(String.Format("Globalasax 31:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C O R P O R A T I V O
Dim ObjCorporativo As New ClsClientes
Using ObjCorporativo As New ClsClientes
If ObjCorporativo.GetCorporativo(-1, -1) Then Application("GlobalDTClientesCorporativo") = ObjCorporativo.DtResultados Else Application("GlobalDTClientesCorporativo") = Nothing
ObjCorporativo.Dispose()
End Using
GuardaLog(String.Format("Globalasax 32:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'E S T A T U S - F A C T U R A
Dim ObjEstatusFacturaCompra As New ClsCompEstatusFactura
Using ObjEstatusFacturaCompra As New ClsCompEstatusFactura
If ObjEstatusFacturaCompra.GetEstatusFactura Then Application("GlobalDTCompEstatusFactura") = ObjEstatusFacturaCompra.DtResultados Else Application("GlobalDTCompEstatusFactura") = Nothing
ObjEstatusFacturaCompra.Dispose()
End Using
GuardaLog(String.Format("Globalasax 33:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'A C U M U L A D O R E S
Dim ObjAcumuladores As New ClsAcumuladores()
Using ObjAcumuladores As New ClsAcumuladores()
If ObjAcumuladores.TamañoGet(-1, -1) Then Application("GlobalDTAcumTamaños") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTamaños") = Nothing
If ObjAcumuladores.TiposDefectoGet(-1, -1) Then Application("GlobalDTAcumTiposDefecto") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTiposDefecto") = Nothing
If ObjAcumuladores.TiposUsoGet(-1, -1) Then Application("GlobalDTAcumTiposUso") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTiposUso") = Nothing
'If ObjAcumuladores.GarantiasMesesGet(-1, -1) Then Application("GlobalDTAcumGarantiasMesesTipoUso") = ObjAcumuladores.DtResultados.FiltraParametros("", DistinctColumns:={"CveMarca", "CveTipoUso", "TipoUso"}) Else Application("GlobalDTAcumGarantiasMesesTipoUso") = Nothing
ObjAcumuladores.Dispose()
End Using
GuardaLog(String.Format("Globalasax 34:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------S I S T E M A ----------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'P A R A M E T R O S
Dim ObjParametros As New ClsSisParametros
Using ObjParametros As New ClsSisParametros
If ObjParametros.GetParametros Then Application("GlobalDTParametros") = ObjParametros.DtResultados Else Application("GlobalDTParametros") = Nothing
ObjParametros.Dispose()
End Using
GuardaLog(String.Format("Globalasax 35:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'U S U A R I O S
Dim ObjUsuarios As New ClsSisUsuarios
Using ObjUsuarios As New ClsSisUsuarios
If ObjUsuarios.GetUsuariosEmpresas(-1) Then
Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
@@ -500,34 +546,39 @@
Application("GlobalDTUsuarios") = Nothing
End If
'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
ObjUsuarios.Dispose()
End Using
GuardaLog(String.Format("Globalasax 36:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'R O L E S
Dim ObjRoles As New ClsSisRoles
Using ObjRoles As New ClsSisRoles
If ObjRoles.GetRoles(-1, -1) Then Application("GlobalDTRoles") = ObjRoles.DtResultados Else Application("GlobalDTRoles") = Nothing
ObjRoles.Dispose()
End Using
GuardaLog(String.Format("Globalasax 37:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'M O D U L O S
Dim ObjModulos As New ClsModulos
Using ObjModulos As New ClsModulos
If ObjModulos.GetModulos(-1, -1, "-1", "-1") Then Application("GlobalDTModulos") = ObjModulos.DtResultados Else Application("GlobalDTModulos") = Nothing
ObjModulos.Dispose()
End Using
GuardaLog(String.Format("Globalasax 38:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C O M B U S T I B L E S
Dim ObjFlotillas As New ClsFlotillas
Using ObjFlotillas As New ClsFlotillas
If ObjFlotillas.GetCombustibles() Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing
If ObjFlotillas.GetCombustiblesTipos(-1) Then Application("GlobalDTCombustiblesTipos") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustiblesTipos") = Nothing
ObjFlotillas.Dispose()
End Using
GuardaLog(String.Format("Globalasax 39:{0}", DateTime.Now))
'----------------------------------------------------------------------------------7--------------------------------------------------------------------------------------------
'E M P R E S A S
Dim ObjEmpresas As New ClsSisEmpresas()
Using ObjEmpresas As New ClsSisEmpresas()
If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then
Application("GlobalDTEmpresas") = ObjEmpresas.DtResultados
'verifico si existe la carpeta de la empresa, sino la crea
@@ -541,20 +592,24 @@
Else
Application("GlobalDTEmpresas") = Nothing
End If
ObjEmpresas.Dispose()
End Using
GuardaLog(String.Format("Globalasax 40:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'G L O B A L E S A P L I C A C I Ó N
Dim ObjGral As New ClsGenerales
Using ObjGral As New ClsGenerales
If ObjGral.GetTipoCambio(-1, Now) Then
If ObjGral.DtResultados.Rows.Count > 0 Then
Application("GlobalTipoCambio") = ObjGral.DtResultados.Rows(0)("TipoCambio").ToString.ToDouble
End If
End If
ObjGral.Dispose()
End Using
GuardaLog(String.Format("Globalasax 41:{0}", DateTime.Now))
BundleConfig.RegistrarBundles(BundleTable.Bundles)
BundleTable.EnableOptimizations = True
@@ -567,7 +622,7 @@
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'I M P U E S T O S L O C A L E S
'Dim ObjPSImpuestos As New ClsProductosServicios
'Using ObjPSImpuestos As New ClsProductosServicios
'If ObjPSImpuestos.GetPSImpuestosLocales(-1, -1) Then
' If ObjPSImpuestos.DtResultados.Rows.Count > 0 Then
' Application("GlobalDTImpuestosLocales") = ObjPSImpuestos.DtResultados
@@ -575,12 +630,13 @@
' Application("GlobalDTImpuestosLocales") = Nothing
' End If
'End If
'ObjPSImpuestos.Dispose()
'End Using
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
' R A S T R E O
Dim ObjGPS As New ClsGPS
Using ObjGPS As New ClsGPS
If ObjGPS.DispositivosGet(-1, -1, -1, -1) Then
If ObjGPS.DtResultados.Rows.Count > 0 Then
Application("GlobalDTDispositivos") = ObjGPS.DtResultados
@@ -596,8 +652,9 @@
Application("GlobalDTDispositivosUsuarios") = Nothing
End If
End If
End Using
GuardaLog(String.Format("Globalasax 42:{0}", DateTime.Now))
ObjGPS.Dispose()
'If EsProduccion = "1" Then
' RegisterNotification()

5
RH/ActualizacionMasiva.aspx.vb
View File

@@ -195,6 +195,7 @@ Partial Class RH_ActualizacionMasiva
Dim OcurrioError As Boolean = False
Using ObjPersonal As ClsRH = New ClsRH()
ObjPersonal.IniciaTransacSQL()
For Each Row As GridViewRow In GvDatos.Rows
If Row.DataKey("CvePersonal") <> "" Then
'If Not ObjPersonal.UpdatePersonalMasivo(Row.FCDropDownList("DdlTurno").SelectedValue.ToEntero, Row.FCDropDownList("DdlGVSubProyecto").SelectedValue.ToEntero, Row.FCDropDownList("DdlSupervisor").SelectedValue.ToEntero,
@@ -217,7 +218,7 @@ Partial Class RH_ActualizacionMasiva
Next
If Not OcurrioError Then
'ObjPersonal.Commit()
ObjPersonal.Commit()
Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
Else
Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
@@ -352,6 +353,8 @@ Partial Class RH_ActualizacionMasiva
Dim OcurrioError As Boolean = False
Dim contador As Integer = 0
Using ObjPersonal As ClsRH = New ClsRH()
ObjPersonal.IniciaTransacSQL()
For Each Row As DataRow In DTEXcel.Rows
If Row("Codigo").ToString() <> "" Then
Dim drow As DataRow = DTEmpleados.FiltroPrimero(String.Format("Codigo='{0}'", Row("Codigo")))