diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 04ad93303..a643b79af 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1355,12 +1355,12 @@ Public Class ClsPaginas Application("GlobalDTTipoTransacciones") = value End Set End Property - Property GlobalDTEstatusIE() As DataTable + Property GlobalDTBancosEstatusIE() As DataTable Get - GlobalDTEstatusIE = DirectCast(Application("GlobalDTEstatusIE"), DataTable) + GlobalDTBancosEstatusIE = DirectCast(Application("GlobalDTBancosEstatusIE"), DataTable) End Get Set(value As DataTable) - Application("GlobalDTEstatusIE") = value + Application("GlobalDTBancosEstatusIE") = value End Set End Property Property GlobalDTBancosIE() As DataTable diff --git a/Bancos/CatBancosEstatusIE.aspx.vb b/Bancos/CatBancosEstatusIE.aspx.vb index e1fc26f75..c82dab5bd 100644 --- a/Bancos/CatBancosEstatusIE.aspx.vb +++ b/Bancos/CatBancosEstatusIE.aspx.vb @@ -25,8 +25,8 @@ Partial Class Bancos_CatBancosEstatusIE Dim ObjEstatusIE As New ClsBancos If ObjEstatusIE.GetBancos_EstatusIE() Then ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados - GlobalDTEstatusIE = ObjEstatusIE.DtResultados - Else + GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados + Else Me.GvDatos.DataSource = Nothing End If @@ -47,9 +47,9 @@ Partial Class Bancos_CatBancosEstatusIE Alert("El nuevo Estatus de Ingresos y Egresos se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulos.Update() ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados - GlobalDTEstatusIE = ObjEstatusIE.DtResultados + GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados - If ViewState("Orden").ToString() <> String.Empty Then + If ViewState("Orden").ToString() <> String.Empty Then CargaGrid(ViewState("Orden").ToString()) Else CargaGrid("") @@ -145,8 +145,8 @@ Partial Class Bancos_CatBancosEstatusIE TxtCveEstatusIE.Text = "" GvDatos.EditIndex = -1 ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados - GlobalDTEstatusIE = ObjEstatusIE.DtResultados - Alert("El Estatus de Ingresos y Egresos se eliminó correctamente.", TipoMensaje.MsgInformacion) + GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados + Alert("El Estatus de Ingresos y Egresos se eliminó correctamente.", TipoMensaje.MsgInformacion) End If ObjEstatusIE.Dispose() @@ -178,8 +178,8 @@ Partial Class Bancos_CatBancosEstatusIE If ObjEstatusIE.UpdateBancos_EstatusIE(EstatusIE, Estatus, CveEstatusIE) Then GvDatos.EditIndex = -1 ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados - GlobalDTEstatusIE = ObjEstatusIE.DtResultados - Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) + GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados + Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If ObjEstatusIE.Dispose() diff --git a/Bancos/CatEstatusIE.aspx.vb b/Bancos/CatEstatusIE.aspx.vb index d639e2a0a..9950ba678 100644 --- a/Bancos/CatEstatusIE.aspx.vb +++ b/Bancos/CatEstatusIE.aspx.vb @@ -42,8 +42,8 @@ Partial Class Bancos_CatEstatusIE Dim ObjEstatusIE As New ClsBancos If ObjEstatusIE.GetBancos_EstatusIE() Then ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados - GlobalDTEstatusIE = ObjEstatusIE.DtResultados - GvDatos.DataSource = GlobalDTEstatusIE + GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados + GvDatos.DataSource = GlobalDTBancosEstatusIE Else GvDatos.DataSource = Nothing End If diff --git a/Bancos/RepIE.aspx.vb b/Bancos/RepIE.aspx.vb index 35516d24a..0f11dd4a5 100644 --- a/Bancos/RepIE.aspx.vb +++ b/Bancos/RepIE.aspx.vb @@ -423,7 +423,7 @@ Partial Class Bancos_RepIE DdlMoneda.Items.Insert(0, New ListItem("Todas", "-1")) End Sub Private Sub CargaEstatusIE() - DdlEstatusIE.DataSource = GlobalDTEstatusIE + DdlEstatusIE.DataSource = GlobalDTBancosEstatusIE DdlEstatusIE.DataBind() End Sub Private Sub CargaUsuarioConcilio()