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

-- cambios en GlobalDT

Browse Source
This commit is contained in:
rrene
2023-02-24 10:51:18 -07:00
parent 601c23100a
commit 07d161bff3
24 changed files with 143 additions and 147 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
AC/CatOGClasificaciones.aspx.vb
View File

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

2
AC/RepPresupuestoEgresos.aspx.vb
View File

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

2
AC/RepPresupuestoEgresosMensual.aspx.vb
View File

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