Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsSisEmpresas.vb

@@ -465,7 +465,7 @@ Public Class ClsSisEmpresas
                 _Empresa.FielPassword = Data.Rows(0)("FielPassword").ToString
                 _Empresa.FielPFX = Data.Rows(0)("FielPFX").ToString
 
-                _Empresa.Ruta = Data.Rows(0)("RutaArchivos").ToString
+                _Empresa._RutaArchivos = Data.Rows(0)("RutaArchivos").ToString
 
             Else
                 'Alert("No se encontró la Empresa solicitada.", TipoMensaje.MsgAdvertencia)

App_Code/Empresa.vb

@@ -97,36 +97,24 @@ Public Class Empresa
     Public Property Soporte_PWD As String
     Public Property Soporte_Tipo As String
     Public Property Timbres As Integer
-    Private Property RutaArchivos As String
+    Public Property _RutaArchivos As String
 
-    Public Property Ruta As String
+    Public ReadOnly Property Ruta As String
         Get
-            If Not String.IsNullOrEmpty(RutaArchivos) AndAlso ClsPaginas.EsProduccion Then
+            If Not String.IsNullOrEmpty(_RutaArchivos) AndAlso ClsPaginas.EsProduccion Then
-                Return RutaArchivos
+                Return _RutaArchivos
             Else
                 Return String.Format("{0}\{1}\", Extensiones.ModExtensiones.DirectorioEmpresas, Me.CveEmpresa)
             End If
         End Get
-        Set(ByVal value As String)
+        'Set(ByVal value As String)
-            RutaArchivos = value
+        '    _RutaArchivos = value
-        End Set
+        'End Set
     End Property
-    'Public Property IdCuentaIVAxTrasladar As Integer
+
-    'Public Property IdCuentaIVATrasladado As Integer
-    'Public Property IdCuentaPerdidaCambiaria As Integer
-    'Public Property IdCuentaGananciaCambiaria As Integer
-    ' Public Property ContaContabilizacionNC As Integer
     Public Property PV_TerminalTipo As Integer
     Public Property PlantillaMailVenta As String
-    Public Property AsuntoPlantillaMailVenta As String
+    Public Property AsuntoPlantillaMailVenta As String
-
-    'Nuevas
-    'Public Property IdCuentaIVAxAcreditar As Integer
-    'Public Property IdCuentaIVAAcreditable As Integer
-    'Public Property IdCuentaRetIVACirculacion As Integer
-    'Public Property IdCuentaRetISRCirculacion As Integer
-    'Public Property IdCuentaDSV As Integer
-    'Public Property IdCuentaImpuestosLocales As Integer
     Public Property IdCtaProveedor As Integer
     Public Property IdCtaCliente As Integer
     Public Property IdCtaDeudores As Integer

Compras/PopUpVerFactura.aspx.vb

@@ -294,7 +294,7 @@ Partial Class PopUpVerFactura
         'endimg
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        ImprimirPDF("GPS/ReciboNom.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
+        ImprimirPDF("Formatos\Agro\ReciboNom.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
     End Sub
     Private Sub rfctxtvalidar()
         Dim numeroPeriodo As Integer = 0
@@ -464,9 +464,9 @@ Partial Class PopUpVerFactura
         lrds.Add(rds)
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        Dim rutardlc = "GPS/EmbarqueManifiesto.rdlc"
+        Dim rutardlc = "Formatos\Agro\EmbarqueManifiesto.rdlc"
         If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then
-            rutardlc = "GPS/EmbarqueManifiesto2.rdlc"
+            rutardlc = "Formatos\Agro\EmbarqueManifiesto2.rdlc"
         End If
         ImprimirPDF(rutardlc, lrds, params, "Manifesto") ', Content_Disposition:="Inline")
     End Sub
@@ -622,7 +622,7 @@ Partial Class PopUpVerFactura
         lrds.Add(rds)
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión") ', Content_Disposition:="Inline")
+        ImprimirPDF("Formatos\Agro\EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión") ', Content_Disposition:="Inline")
     End Sub
 
     Private Sub imprimirManifiestoCartaPorte(cveEmbarqueManifiesto As Integer)
@@ -774,7 +774,7 @@ Partial Class PopUpVerFactura
         lrds.Add(rds)
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        Dim pdf = StreamPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte")
+        Dim pdf = StreamPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte")
 
         Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
         LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = pdf, .NombreArchivo = String.Format("{0}.pdf", "DatosCartaPorte")})
@@ -788,7 +788,7 @@ Partial Class PopUpVerFactura
             'GuardaLogFacturacion($"Ruta XML {ArchivoXML}")
             'ResultadoMail = 3
         End If
-        ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") ', Content_Disposition:="Inline")
+        ImprimirPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") ', Content_Disposition:="Inline")
 
 
     End Sub
@@ -856,7 +856,7 @@ Partial Class PopUpVerFactura
         'endimg
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        ImprimirPDF("GPS/PalletEtiqueta2.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
+        ImprimirPDF("Formatos\Agro\PalletEtiqueta2.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
     End Sub
 
 
@@ -986,9 +986,9 @@ Partial Class PopUpVerFactura
 
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        Dim ruta As String = "GPS/PalletEtiquetaWalmart.rdlc"
+        Dim ruta As String = "Formatos\Agro\PalletEtiquetaWalmart.rdlc"
         'If CvetypeImpresion = 2 Then
-        '    ruta = "GPS/PalletEtiqueta_2.rdlc"
+        '    ruta = "Formatos\Agro\PalletEtiqueta_2.rdlc"
         'End If
         ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline")
     End Sub
@@ -1084,9 +1084,9 @@ Partial Class PopUpVerFactura
 
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        Dim ruta As String = "GPS/PalletEtiquetaCaja.rdlc"
+        Dim ruta As String = "Formatos\Agro\PalletEtiquetaCaja.rdlc"
         'If CvetypeImpresion = 2 Then
-        '    ruta = "GPS/PalletEtiqueta_2.rdlc"
+        '    ruta = "Formatos\Agro\PalletEtiqueta_2.rdlc"
         'End If
         ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline")
     End Sub

Global.asax

@@ -24,16 +24,9 @@
     Sub Application_Start(sender As Object, e As EventArgs)
         Stimulsoft.Base.StiLicense.Key = "6vJhGtLLLz2GNviWmUTrhSqnOItdDwjBylQzQcAOiHmhQEs54hwXWiqhb7jE6yoykR4jHwP3Mz0nuxn0JR9fNMeDKv" + "sS5s+rCYr7Ex4DRTHaUJIUDqrvGmvWyMjzUl9RAEz/XG8RenfJvoEilBZ9Wqq8Uu/n92YhChB4PbAh9FeH3abSU3PF" + "LuVa6GydYWQvZGpHhFs98Idp754TAgWZatzcF3Ksp6q4laYxnyUY0cA0hYejanRBjIT1Nu59xmlOKE7EGIb9wKlLn/" + "XnW8k8PUNuReOk7ATeHO07JSMLikmvIytkWET2bXDmBI43tAX3fLUE+KlOe7FR/hvfQ6oqqtVRlSZ22QBanel09+XE" + "X8aVC8b+WuRv1nInJeQHBD9zF8b67n4ouKRgv2/vSxopOhCZXdaqdyO4ct+FmSC8cAAcMIGeiKnc5ww8Cq44ClTqJl" + "V2qsCjoS4bb8Nzd2Gy+q/TG/D3dAEKSpPGUx2EEksora/kIkNooq6+bgyH7hqCG2bHKaSQwr2g0keNrYIUcTIwROn1" + "cnQDetzsBqX4lvu64VZWq5+cQD+dyPJwOS6M"
 
-        'Dim Licence As String = String.Format("{0}/Bin/ASS151026R37.license", AppDomain.CurrentDomain.BaseDirectory)
-        'Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream(System.IO.File.ReadAllBytes(Licence))
-
-        'HyperSoft.ElectronicDocument.Download.Activation.Activation.LoadActivationFile(stream)
-
-
         Dim sessionData As New Dictionary(Of String, HttpSessionState)()
         Application("s") = sessionData
 
-
         'BANDERA PARA VALIDACION DE CFDI
         Application("GlobalValidarCFDI") = True
 
@@ -42,39 +35,18 @@
 
         GuardaLogAsax(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
             If ObjAC.GetFuenteFinanciamientoCONAC() Then Application("GlobalDTAC_FuentesFinanciamientoCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamientoCONAC") = Nothing
             If ObjAC.GetProgramaCONAC() Then Application("GlobalDTAC_ProgramasCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramasCONAC") = Nothing
-            'If ObjAC.GetUnidadesAdministrativas() Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing
-            'If ObjAC.GetClasificacionAdministrativa() Then Application("GlobalDTAC_ClasificacionAdministrativa") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionAdministrativa") = Nothing
-            'If ObjAC.GetPD_EjeRector() Then Application("GlobalDTAC_PD_EjeRector") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_EjeRector") = Nothing
             If ObjAC.GetPD_Programas() Then Application("GlobalDTAC_PD_Programas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Programas") = Nothing
             If ObjAC.GetPD_Estrategias() Then Application("GlobalDTAC_PD_Estrategias") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Estrategias") = Nothing
             If ObjAC.GetPD_LineasAccion() Then Application("GlobalDTAC_PD_LineasAccion") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_LineasAccion") = Nothing
             If ObjAC.GetPD_Metas() Then Application("GlobalDTAC_PD_Metas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Metas") = Nothing
             If ObjAC.GetTipoGasto() Then Application("GlobalDTAC_TipoGasto") = ObjAC.DtResultados Else Application("GlobalDTAC_TipoGasto") = Nothing
-            'If ObjAC.GetProgramaOperativo() Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing
             If ObjAC.GetRubrosIngreso() Then Application("GlobalDTAC_RubrosIngreso") = ObjAC.DtResultados Else Application("GlobalDTAC_RubrosIngreso") = Nothing
-            'If ObjAC.GetFuentesRecaudacion() Then Application("GlobalDTAC_FuentesRecaudacion") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesRecaudacion") = Nothing
             If ObjAC.GetMatrizID Then Application("GlobalDTAC_MatrizIngresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizIngresos") = Nothing
             If ObjAC.GetMatrizGD Then Application("GlobalDTAC_MatrizEgresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizEgresos") = Nothing
-            ' If ObjAC.GetAreas() Then Application("GlobalDTAC_Areas") = ObjAC.DtResultados Else Application("GlobalDTAC_Areas") = Nothing   
-            'If ObjAC.GetProyectosProceso() Then Application("GlobalDTAC_ProyectosProceso") = ObjAC.DtResultados Else Application("GlobalDTAC_ProyectosProceso") = Nothing        
-            'If ObjAC.GetFuncion() Then Application("GlobalDTAC_Funcion") = ObjAC.DtResultados Else Application("GlobalDTAC_Funcion") = Nothing        
-            'If ObjAC.GetSubFuncion() Then Application("GlobalDTAC_SubFuncion") = ObjAC.DtResultados Else Application("GlobalDTAC_SubFuncion") = Nothing
-            'If ObjAC.GetSubProgramas() Then Application("GlobalDTAC_SubProgramas") = ObjAC.DtResultados Else Application("GlobalDTAC_SubProgramas") = Nothing        
-            'If ObjAC.GetUbicaciones() Then Application("GlobalDTAC_Ubicaciones") = ObjAC.DtResultados Else Application("GlobalDTAC_Ubicaciones") = Nothing
-            ' If ObjAC.GetOG() Then Application("GlobalDTAC_OG") = ObjAC.DtResultados Else Application("GlobalDTAC_OG") = Nothing        
-            ' If ObjAC.GetClasificadorOG() Then Application("GlobalDTAC_ClasificadorOG") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificadorOG") = Nothing        
-            'If ObjAC.GetProgramas() Then Application("GlobalDTAC_Programas") = ObjAC.DtResultados Else Application("GlobalDTAC_Programas") = Nothing
-            ' 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 
         End Using
 
-
         GuardaLogAsax(String.Format("Globalasax 6:{0}", DateTime.Now))
         Using Finan As New ClsFinanzas
 
@@ -82,23 +54,6 @@
 
         End Using
 
-        'GuardaLogAsax(String.Format("Globalasax 7:{0}", DateTime.Now))
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'C A R G A - N O M        
-
-        '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
-        '    'If ObjNom.GetPeriodos(-1, -1, -1, -1, -1) Then Application("GlobalDTNominasPeriodos") = ObjNom.DtResultados Else Application("GlobalDTNominasPeriodos") = Nothing
-        '    'If ObjNom.GetBancos Then Application("GlobalDTNomSatBancos") = ObjNom.DtResultados Else Application("GlobalDTNomSatBancos") = Nothing
-        '    'If ObjNom.GetConceptos Then Application("GlobalDTNomSatConceptos") = ObjNom.DtResultados Else Application("GlobalDTNomSatConceptos") = Nothing
-        '    '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
-        'End Using
-
-        ' GuardaLogAsax(String.Format("Globalasax 9:{0}", DateTime.Now))
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------       
         '------------------------------------------------------------------------------S I S T E M A ----------------------------------------------------------------------------------
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -110,20 +65,18 @@
 
         GuardaLogAsax(String.Format("Globalasax 35:{0}", DateTime.Now))
 
-
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'G L O B A L E S   A P L I C A C I Ó N
 
-
+        'Using ObjGral As New ClsGenerales
-        Using ObjGral As New ClsGenerales
+        '    If ObjGral.GetTipoCambio(-1, Now) Then
-            If ObjGral.GetTipoCambio(-1, Now) Then
+        '        If ObjGral.DtResultados.Rows.Count > 0 Then
-                If ObjGral.DtResultados.Rows.Count > 0 Then
+        '            Application("GlobalTipoCambio") = ObjGral.DtResultados.Rows(0)("TipoCambio").ToString.ToDouble
-                    Application("GlobalTipoCambio") = ObjGral.DtResultados.Rows(0)("TipoCambio").ToString.ToDouble
+        '        End If
-                End If
+        '    End If
-            End If
+        'End Using
-        End Using
+        'GuardaLogAsax(String.Format("Globalasax 41:{0}", DateTime.Now))
-        GuardaLogAsax(String.Format("Globalasax 41:{0}", DateTime.Now))
 
 
         BundleConfig.RegistrarBundles(BundleTable.Bundles)

Nomina/Nomina.aspx.cs

@@ -2810,7 +2810,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         LblEmpleado.Text = Nombre;
         LblEmpleado.NavigateUrl = string.Format("/RH/Personal.aspx?CvePersonal={0}", SRCvePersonal);
         TabPersonal.ActiveTabIndex = 0;
-        DdlTipoAsistenciasB.DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa);
+        DdlTipoAsistenciasB.DataSource = get_GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa);
         DdlTipoAsistenciasB.DataBind();
         cargaasistenciaSR();
         mostrarConceptos();
@@ -2964,7 +2964,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             e.Row.FCTextBox("TxtHorasTriples").Text = e.Row.DBCampo("HorasTriples");
 
             // Carga Tipos de Asistencia
-            e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa);
+            e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = get_GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa);
             e.Row.FCDropDownList("DdlTipoAsistencias").DataBind();
             if (e.Row.DBCampo("CveAsistenciasInasistencias") != "-1")
                 e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias");
@@ -7099,7 +7099,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         DdlAsisSubProyecto.SelectedValueExist("-1");
         if (DdlTipoAsistencias.Items.Count == 1)
         {
-            DdlTipoAsistencias.DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros(string.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa));
+            DdlTipoAsistencias.DataSource = get_GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa);
             DdlTipoAsistencias.DataBind();
 
         }
@@ -8898,7 +8898,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             int CvePersonal = 0;
             string Codigo;
             DateTime FechaAsis;
-            DataTable dtasis = GlobalDTAsistenciasInasistencias.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa);
+            DataTable dtasis = get_GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa);
             List<string> listaerrores = new List<string>();
             using (ClsRH ObjPersonal = new ClsRH())
             {

RH/Personal.aspx.vb

@@ -1323,7 +1323,7 @@ Partial Class RH_Personal
     End Sub
 
     Private Sub CargaTiposAsistencia()
-        DdlTipoAsistencias.DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTipoAsistencias.DataSource = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa)
         DdlTipoAsistencias.DataBind()
     End Sub
 
@@ -1548,7 +1548,7 @@ Partial Class RH_Personal
             e.Row.FCTextBox("TxtHorasTriples").Text = e.Row.DBCampo("HorasTriples")
 
             'Carga Tipos de Asistencia
-            e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa)
             e.Row.FCDropDownList("DdlTipoAsistencias").DataBind()
             If e.Row.DBCampo("CveAsistenciasInasistencias") <> "-1" Then e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias")
 

Sistemas/CatSesiones.aspx.vb

@@ -236,24 +236,24 @@ Partial Class Sistemas_CatSesiones
     End Sub
 
     Private Sub CargaRH()
-        Dim ObjRH As New ClsRH
+        'Dim ObjRH As New ClsRH
-        If ObjRH.GetTipoBuzon() Then Application("GlobalDTTipoBuzon") = ObjRH.DtResultados Else Application("GlobalDTTipoBuzon") = Nothing
+        'If ObjRH.GetTipoBuzon() Then Application("GlobalDTTipoBuzon") = ObjRH.DtResultados Else Application("GlobalDTTipoBuzon") = Nothing
-        If ObjRH.GetDepartamentos(UsuarioActual.CveEmpresa) Then Application("GlobalDTDepartamentos") = ObjRH.DtResultados Else Application("GlobalDTDepartamentos") = Nothing
+        'If ObjRH.GetDepartamentos(UsuarioActual.CveEmpresa) Then Application("GlobalDTDepartamentos") = ObjRH.DtResultados Else Application("GlobalDTDepartamentos") = Nothing
-        If ObjRH.GetDocumentos() Then Application("GlobalDTDocumentos") = ObjRH.DtResultados Else Application("GlobalDTDocumentos") = Nothing
+        'If ObjRH.GetDocumentos() Then Application("GlobalDTDocumentos") = ObjRH.DtResultados Else Application("GlobalDTDocumentos") = Nothing
-        If ObjRH.GetEscolaridades() Then Application("GlobalDTEscolaridad") = ObjRH.DtResultados Else Application("GlobalDTEscolaridad") = Nothing
+        'If ObjRH.GetEscolaridades() Then Application("GlobalDTEscolaridad") = ObjRH.DtResultados Else Application("GlobalDTEscolaridad") = Nothing
-        If ObjRH.GetEstadoCivil() Then Application("GlobalDTEstadoCivil") = ObjRH.DtResultados Else Application("GlobalDTEstadoCivil") = Nothing
+        'If ObjRH.GetEstadoCivil() Then Application("GlobalDTEstadoCivil") = ObjRH.DtResultados Else Application("GlobalDTEstadoCivil") = Nothing
-        If ObjRH.GetEstatusPersonal() Then Application("GlobalDTEstatusPersonal") = ObjRH.DtResultados Else Application("GlobalDTEstatusPersonal") = Nothing
+        'If ObjRH.GetEstatusPersonal() Then Application("GlobalDTEstatusPersonal") = ObjRH.DtResultados Else Application("GlobalDTEstatusPersonal") = Nothing
-        If ObjRH.GetGeneros() Then Application("GlobalDTGenero") = ObjRH.DtResultados Else Application("GlobalDTGenero") = Nothing
+        'If ObjRH.GetGeneros() Then Application("GlobalDTGenero") = ObjRH.DtResultados Else Application("GlobalDTGenero") = Nothing
-        If ObjRH.GetMotivoBaja(UsuarioActual.CveEmpresa) Then Application("GlobalDTMotivoBaja") = ObjRH.DtResultados Else Application("GlobalDTMotivoBaja") = Nothing
+        'If ObjRH.GetMotivoBaja(UsuarioActual.CveEmpresa) Then Application("GlobalDTMotivoBaja") = ObjRH.DtResultados Else Application("GlobalDTMotivoBaja") = Nothing
-        If ObjRH.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
+        'If ObjRH.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
-        If ObjRH.GetRutas(UsuarioActual.CveEmpresa) Then Application("GlobalDTRutas") = ObjRH.DtResultados Else Application("GlobalDTRutas") = Nothing
+        'If ObjRH.GetRutas(UsuarioActual.CveEmpresa) Then Application("GlobalDTRutas") = ObjRH.DtResultados Else Application("GlobalDTRutas") = Nothing
-        If ObjRH.GetTiposContrato() Then Application("GlobalDTTiposContrato") = ObjRH.DtResultados Else Application("GlobalDTTiposContrato") = Nothing
+        'If ObjRH.GetTiposContrato() Then Application("GlobalDTTiposContrato") = ObjRH.DtResultados Else Application("GlobalDTTiposContrato") = Nothing
-        If ObjRH.GetTurnos() Then Application("GlobalDTTurno") = ObjRH.DtResultados Else Application("GlobalDTTurno") = Nothing
+        'If ObjRH.GetTurnos() Then Application("GlobalDTTurno") = ObjRH.DtResultados Else Application("GlobalDTTurno") = Nothing
-        If ObjRH.GetJornadas() Then Application("GlobalDTJornadas") = ObjRH.DtResultados Else Application("GlobalDTJornadas") = Nothing
+        'If ObjRH.GetJornadas() Then Application("GlobalDTJornadas") = ObjRH.DtResultados Else Application("GlobalDTJornadas") = Nothing
-        If ObjRH.GetAsistenciasInasistencias() Then Application("GlobalDTAsistenciasInasistencias") = ObjRH.DtResultados Else Application("GlobalDTAsistenciasInasistencias") = Nothing
+        'If ObjRH.GetAsistenciasInasistencias(UsuarioActual.CveEmpresa) Then Application("GlobalDTAsistenciasInasistencias") = ObjRH.DtResultados Else Application("GlobalDTAsistenciasInasistencias") = Nothing
-        If ObjRH.GetMotivoHorasExtras(UsuarioActual.CveEmpresa) Then Application("GlobalDTMotivosHorasExtras") = ObjRH.DtResultados Else Application("GlobalDTMotivosHorasExtras") = Nothing
+        'If ObjRH.GetMotivoHorasExtras(UsuarioActual.CveEmpresa) Then Application("GlobalDTMotivosHorasExtras") = ObjRH.DtResultados Else Application("GlobalDTMotivosHorasExtras") = Nothing
-        If ObjRH.GetAsistenciasDetalle() Then Application("GlobalDTAsistenciaDetalle") = ObjRH.DtResultados Else Application("GlobalDTAsistenciaDetalle") = Nothing
+        'If ObjRH.GetAsistenciasDetalle() Then Application("GlobalDTAsistenciaDetalle") = ObjRH.DtResultados Else Application("GlobalDTAsistenciaDetalle") = Nothing
-        ObjRH.Dispose()
+        'ObjRH.Dispose()
 
     End Sub