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

8
Bancos/CatBancosEstatusIE.aspx.vb
View File

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

4
Bancos/CatEstatusIE.aspx.vb
View File

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

2
Bancos/RepIE.aspx.vb
View File

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