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

cambio de GlobalDTEstatusIE a GlobalDTBancosEstatusIE

Browse Source
This commit is contained in:
Antonio Gonzalez
2019-08-27 12:42:53 -05:00
parent e98333e436
commit c1efca70a7
4 changed files with 14 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsPaginas.vb
View File

@@ -1355,12 +1355,12 @@ Public Class ClsPaginas
Application("GlobalDTTipoTransacciones") = value Application("GlobalDTTipoTransacciones") = value
End Set End Set
End Property End Property
Property GlobalDTEstatusIE() As DataTable Property GlobalDTBancosEstatusIE() As DataTable
Get Get
GlobalDTEstatusIE = DirectCast(Application("GlobalDTEstatusIE"), DataTable) GlobalDTBancosEstatusIE = DirectCast(Application("GlobalDTBancosEstatusIE"), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTEstatusIE") = value Application("GlobalDTBancosEstatusIE") = value
End Set End Set
End Property End Property
Property GlobalDTBancosIE() As DataTable Property GlobalDTBancosIE() As DataTable

16
Bancos/CatBancosEstatusIE.aspx.vb
View File

@@ -25,8 +25,8 @@ Partial Class Bancos_CatBancosEstatusIE
Dim ObjEstatusIE As New ClsBancos Dim ObjEstatusIE As New ClsBancos
If ObjEstatusIE.GetBancos_EstatusIE() Then If ObjEstatusIE.GetBancos_EstatusIE() Then
ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
GlobalDTEstatusIE = ObjEstatusIE.DtResultados GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
Else Else
Me.GvDatos.DataSource = Nothing Me.GvDatos.DataSource = Nothing
End If End If
@@ -47,9 +47,9 @@ Partial Class Bancos_CatBancosEstatusIE
Alert("El nuevo Estatus de Ingresos y Egresos se guardó correctamente.", TipoMensaje.MsgInformacion) Alert("El nuevo Estatus de Ingresos y Egresos se guardó correctamente.", TipoMensaje.MsgInformacion)
UpTitulos.Update() UpTitulos.Update()
ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados 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()) CargaGrid(ViewState("Orden").ToString())
Else Else
CargaGrid("") CargaGrid("")
@@ -145,8 +145,8 @@ Partial Class Bancos_CatBancosEstatusIE
TxtCveEstatusIE.Text = "" TxtCveEstatusIE.Text = ""
GvDatos.EditIndex = -1 GvDatos.EditIndex = -1
ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
GlobalDTEstatusIE = ObjEstatusIE.DtResultados GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
Alert("El Estatus de Ingresos y Egresos se eliminó correctamente.", TipoMensaje.MsgInformacion) Alert("El Estatus de Ingresos y Egresos se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If End If
ObjEstatusIE.Dispose() ObjEstatusIE.Dispose()
@@ -178,8 +178,8 @@ Partial Class Bancos_CatBancosEstatusIE
If ObjEstatusIE.UpdateBancos_EstatusIE(EstatusIE, Estatus, CveEstatusIE) Then If ObjEstatusIE.UpdateBancos_EstatusIE(EstatusIE, Estatus, CveEstatusIE) Then
GvDatos.EditIndex = -1 GvDatos.EditIndex = -1
ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
GlobalDTEstatusIE = ObjEstatusIE.DtResultados GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If End If
ObjEstatusIE.Dispose() ObjEstatusIE.Dispose()

4
Bancos/CatEstatusIE.aspx.vb
View File

@@ -42,8 +42,8 @@ Partial Class Bancos_CatEstatusIE
Dim ObjEstatusIE As New ClsBancos Dim ObjEstatusIE As New ClsBancos
If ObjEstatusIE.GetBancos_EstatusIE() Then If ObjEstatusIE.GetBancos_EstatusIE() Then
ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
GlobalDTEstatusIE = ObjEstatusIE.DtResultados GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
GvDatos.DataSource = GlobalDTEstatusIE GvDatos.DataSource = GlobalDTBancosEstatusIE
Else Else
GvDatos.DataSource = Nothing GvDatos.DataSource = Nothing
End If End If

2
Bancos/RepIE.aspx.vb
View File

@@ -423,7 +423,7 @@ Partial Class Bancos_RepIE
DdlMoneda.Items.Insert(0, New ListItem("Todas", "-1")) DdlMoneda.Items.Insert(0, New ListItem("Todas", "-1"))
End Sub End Sub
Private Sub CargaEstatusIE() Private Sub CargaEstatusIE()
DdlEstatusIE.DataSource = GlobalDTEstatusIE DdlEstatusIE.DataSource = GlobalDTBancosEstatusIE
DdlEstatusIE.DataBind() DdlEstatusIE.DataBind()
End Sub End Sub
Private Sub CargaUsuarioConcilio() Private Sub CargaUsuarioConcilio()