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

11
Prospectos/Solicitudes/CatProspectosSolicitudesEstatus.aspx.vb
View File

@@ -22,9 +22,8 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesEstatus
Public Sub CargaDatos()
Dim ObjProspectosEstatus As New ClsProspectos
If ObjProspectosEstatus.GetSolicitudEstatus() Then
ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = ObjProspectosEstatus.DtResultados
If ObjProspectosEstatus.GetSolicitudEstatus(UsuarioActual.CveEmpresa) Then
ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados
Else
Me.GvDatos.DataSource = Nothing
End If
@@ -45,7 +44,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesEstatus
Alert("El nuevo Estatus se guardó correctamente.", TipoMensaje.MsgInformacion)
UpTitulos.Update()
ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = ObjProspectosEstatus.DtResultados
GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = Nothing
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
@@ -126,7 +125,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesEstatus
If ObjProspectosEstatus.RemoveSolicitudEstatus(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
GvDatos.EditIndex = -1
ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = ObjProspectosEstatus.DtResultados
GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = Nothing
Alert("El Estatus se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
@@ -159,7 +158,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesEstatus
If ObjProspectosEstatus.UpdateSolicitudEstatus(SolicitudEstatus, Estatus, CveSolicitudEstatus) Then
GvDatos.EditIndex = -1
ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = ObjProspectosEstatus.DtResultados
GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = Nothing
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If

12
Prospectos/Solicitudes/CatProspectosSolicitudesTipos.aspx.vb
View File

@@ -22,9 +22,9 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesTipos
Public Sub CargaDatos()
Dim ObjSolicitudTipo As New ClsProspectos
If ObjSolicitudTipo.GetSolicitudTipo() Then
ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = ObjSolicitudTipo.DtResultados
If ObjSolicitudTipo.GetSolicitudTipo(UsuarioActual.CveEmpresa) Then
ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados
GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = Nothing
Else
Me.GvDatos.DataSource = Nothing
End If
@@ -45,7 +45,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesTipos
Alert("El nuevo Tipo de Solicitud se guardó correctamente.", TipoMensaje.MsgInformacion)
UpTitulos.Update()
ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = ObjSolicitudTipo.DtResultados
GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = Nothing
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
@@ -126,7 +126,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesTipos
If ObjSolicitudTipo.RemoveSolicitudTipo(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
GvDatos.EditIndex = -1
ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = ObjSolicitudTipo.DtResultados
GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = Nothing
Alert("El Tipo de Solicitud se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
@@ -159,7 +159,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesTipos
If ObjSolicitudTipo.UpdateSolicitudTipo(SolicitudTipo, Estatus, CveSolicitudTipo) Then
GvDatos.EditIndex = -1
ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = ObjSolicitudTipo.DtResultados
GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = Nothing
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If