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

2023-02-25 08:31:41 -07:00
parent d0bd171824 26a9361ec2
commit 8d31fb4dbe
59 changed files with 1019 additions and 4635 deletions
--- a/AC/CatClasificacionAdministrativa.aspx.vb
+++ b/AC/CatClasificacionAdministrativa.aspx.vb
@@ -17,15 +17,7 @@ Partial Class AC_CatClasificacionAdministrativa
    End Sub

    Public Sub CargaDatos()
-        Dim ObjClasificacionAdministrativa As New ClsAC
-        If ObjClasificacionAdministrativa.GetClasificacionAdministrativa() Then
-            ViewState("DTClasificacionAdministrativas") = ObjClasificacionAdministrativa.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAC_ClasificacionAdministrativa(UsuarioActual.CveEmpresa) = ObjClasificacionAdministrativa.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
-
-        ObjClasificacionAdministrativa.Dispose()
+        ViewState("DTClasificacionAdministrativas") = GlobalDTAC_ClasificacionAdministrativa(UsuarioActual.CveEmpresa)

        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGrid(ViewState("Orden").ToString())
--- a/AC/CatClasificacionFuncional.aspx.vb
+++ b/AC/CatClasificacionFuncional.aspx.vb
@@ -52,15 +52,7 @@ Partial Class AC_CatClasificacionFuncional
    End Sub

    Public Sub CargaDatos()
-        Dim ObjClasificacionFuncional As New ClsAC
-        If ObjClasificacionFuncional.GetClasificacionFuncional() Then
-            ViewState("DTClasificacionFuncional") = ObjClasificacionFuncional.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa) = ObjClasificacionFuncional.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
-
-        ObjClasificacionFuncional.Dispose()
+        ViewState("DTClasificacionFuncional") = GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa)

        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGrid(ViewState("Orden").ToString())
--- a/AC/CatClasificacionGeografica.aspx.vb
+++ b/AC/CatClasificacionGeografica.aspx.vb
@@ -56,15 +56,7 @@ Partial Class AC_CatClasificacionGeografica
    End Sub

    Public Sub CargaDatos()
-        Dim ObjClasificacionGeografica As New ClsAC
-        If ObjClasificacionGeografica.GetClasificacionGeografica() Then
-            ViewState("DTClasificacionGeografica") = ObjClasificacionGeografica.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa) = ObjClasificacionGeografica.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
-
-        ObjClasificacionGeografica.Dispose()
+        ViewState("DTClasificacionGeografica") = GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa)

        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGrid(ViewState("Orden").ToString())
--- a/AC/CatFuentesFinanciamiento.aspx.vb
+++ b/AC/CatFuentesFinanciamiento.aspx.vb
@@ -47,15 +47,7 @@ Partial Class AC_CatFuentesFinanciamiento
    End Sub

    Public Sub CargaDatos()
-        Dim ObjFuentesFinanciamiento As New ClsAC
-        If ObjFuentesFinanciamiento.GetFuentesFinanciamiento() Then
-            ViewState("DTFuentesFinanciamiento") = ObjFuentesFinanciamiento.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAC_FuentesFinanciamiento(-1) = ObjFuentesFinanciamiento.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
-
-        ObjFuentesFinanciamiento.Dispose()
+        ViewState("DTFuentesFinanciamiento") = GlobalDTAC_FuentesFinanciamiento(UsuarioActual.CveEmpresa)

        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGrid(ViewState("Orden").ToString())
--- a/AC/CatFuentesRecaudacion.aspx.vb
+++ b/AC/CatFuentesRecaudacion.aspx.vb
@@ -48,15 +48,7 @@ Partial Class AC_CatFuentesRecaudacion
    End Sub

    Public Sub CargaDatos()
-        Dim ObjFuenteRecaudacion As New ClsAC
-        If ObjFuenteRecaudacion.GetFuentesRecaudacion() Then
-            ViewState("DTFuenteRecaudacion") = ObjFuenteRecaudacion.DtResultados.FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa))
-            GlobalDTAC_FuentesRecaudacion(-1) = ObjFuenteRecaudacion.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
-
-        ObjFuenteRecaudacion.Dispose()
+        ViewState("DTFuenteRecaudacion") = GlobalDTAC_FuentesRecaudacion(UsuarioActual.CveEmpresa)

        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGrid(ViewState("Orden").ToString())
--- a/AC/CatOGClasificaciones.aspx.vb
+++ b/AC/CatOGClasificaciones.aspx.vb
@@ -47,10 +47,10 @@ Partial Class AC_CatOGClasificaciones

    Public Sub CargaDatos()
        Dim ObjClasificaciones As New ClsClasificaciones
-        If ObjClasificaciones.GetClasificaciones() Then
+        If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
            ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' AND CveEmpresa = " & UsuarioActual.CveEmpresa, "Codigo")
-            GlobalDTClasificaciones = ObjClasificaciones.DtResultados
-            GlobalDTACClasificadorObjetoGasto = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' ")
+
+            GlobalDTACClasificadorObjetoGasto(UsuarioActual.CveEmpresa) = Nothing
        Else
            Me.GvDatos.DataSource = Nothing
        End If
@@ -74,14 +74,14 @@ Partial Class AC_CatOGClasificaciones
                Alert("La Clasificacion de Objeto de Gasto se guardó correctamente.", TipoMensaje.MsgInformacion)
                'UpTitulos.Update()
                ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-                GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+                GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing

            End If
        Else
            If ObjClasificaciones.UpdateClasificacion(TxtOGClasificacion.Text, TxtCodigo.Text, -1, "", -1, "", -1, "", ChkEstatus.Checked, ChkAfectable.Checked, 0, UsuarioActual.CveUsuario, CveClasificacion) Then
                GvDatos.EditIndex = -1
                ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-                GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+                GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
                Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
            End If
        End If
@@ -119,7 +119,7 @@ Partial Class AC_CatOGClasificaciones
        If ObjClasificaciones.RemoveClasificacion(GvRow.DataKey("CveClasificacion").ToEntero) Then
            GvDatos.EditIndex = -1
            ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+            GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
            Alert("la Clasificacion de Objeto de Gasto se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If

@@ -159,7 +159,7 @@ Partial Class AC_CatOGClasificaciones
        If ObjClasificaciones.RemoveClasificacion(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
            GvDatos.EditIndex = -1
            ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+            GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
            Alert("la Clasificacion de Objeto de Gasto se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If

@@ -194,7 +194,7 @@ Partial Class AC_CatOGClasificaciones
        If ObjOGClasificaciones.UpdateClasificacion(OGClasificacion, Codigo, -1, "", -1, "", -1, "", Estatus, Afectable, 0, UsuarioActual.CveUsuario, CveOGClasificacion) Then
            GvDatos.EditIndex = -1
            ViewState("DTOGClasificaciones") = ObjOGClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTClasificaciones = ObjOGClasificaciones.DtResultados
+            GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
        End If

--- a/AC/CatUnidadesAdministrativas.aspx.vb
+++ b/AC/CatUnidadesAdministrativas.aspx.vb
@@ -26,15 +26,7 @@ Partial Class AC_CatUnidadesAdministrativas
    End Sub

    Public Sub CargaDatos()
-        Dim ObjUnidadAdministrativas As New ClsAC
-        If ObjUnidadAdministrativas.GetUnidadesAdministrativas() Then
-            ViewState("DTUnidadAdministrativas") = ObjUnidadAdministrativas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAC_UnidadesAdministrativas(-1) = ObjUnidadAdministrativas.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
-
-        ObjUnidadAdministrativas.Dispose()
+        ViewState("DTUnidadAdministrativas") = GlobalDTAC_UnidadesAdministrativas(UsuarioActual.CveEmpresa)

        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGrid(ViewState("Orden").ToString())
--- a/AC/RepPresupuestoEgresos.aspx.vb
+++ b/AC/RepPresupuestoEgresos.aspx.vb
@@ -115,7 +115,7 @@ Partial Class AC_RepPresupuestoEgresos
    Private Sub CargaDatos()
        Dim objAC As New ClsContPAQi(UsuarioActual.Empresa)
        Dim FechaF As Date = txtFechaF.Text.ToDate
-        Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto.FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1))
+        Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1))

        If objAC.GetRepPresupuestosEgresosSaldos(DdlEjercicio.SelectedValue.ToEntero, FechaF, Capitulo, DdlClasificaciones.SelectedValue.ToEntero, DdlFuenteFinanciamiento.SelectedValue.ToEntero, DdlProgramaOperativo.SelectedValue.ToEntero, DdlUnidadAdministrativa.SelectedValue.ToEntero, DdlTipoGasto.SelectedValue.ToEntero, DdlOrden.SelectedValue.ToEntero) Then
            DtPresupuestoEgresos = objAC.DtResultados
--- a/AC/RepPresupuestoEgresosMensual.aspx.vb
+++ b/AC/RepPresupuestoEgresosMensual.aspx.vb
@@ -75,7 +75,7 @@ Partial Class AC_RepPresupuestoEgresosMensual
        BtnImprimir.Visible = False

        Dim objAC As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto.FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1))
+        Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1))
        UPPDatos.Update()
        Gv.DataBind()