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
Flotillas/CatCombustibles.aspx.vb
View File

@@ -33,14 +33,14 @@ Partial Class Maq_CatCombustibles
If ObjFlotilla.GetCombustiblesTipos(UsuarioActual.CveEmpresa) Then
ViewState("DTCombustibleTipo") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados
GlobalDTCombustiblesTipos(UsuarioActual.CveEmpresa) = Nothing
Else
Me.GvDatosCombustiblesTipos.DataSource = Nothing
End If
If ObjFlotilla.GetCombustibles() Then
If ObjFlotilla.GetCombustibles(UsuarioActual.CveEmpresa) Then
ViewState("DTCombustible") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados
GlobalDTCombustiblesTipos(UsuarioActual.CveEmpresa) = Nothing
Else
Me.GvDatosCombustibles.DataSource = Nothing
End If
@@ -75,7 +75,7 @@ Partial Class Maq_CatCombustibles
Alert("El nuevo Combustible se guardó correctamente.", TipoMensaje.MsgInformacion)
UpTitulosCombustibles.Update()
ViewState("DTCombustible") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTCombustibles(-1) = ObjFlotilla.DtResultados
GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString(), 0)
@@ -126,7 +126,7 @@ Partial Class Maq_CatCombustibles
If ObjFlotilla.RemoveCombustibles(GvDatosCombustibles.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
GvDatosCombustibles.EditIndex = -1
ViewState("DTCombustible") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados
GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing
Alert("El Combustible se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
@@ -189,7 +189,7 @@ Partial Class Maq_CatCombustibles
Alert("El nuevo Tipo de Combustible se guardó correctamente.", TipoMensaje.MsgInformacion)
UpTitulosCombustiblesTipos.Update()
ViewState("DTCombustibleTipo") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTCombustibles(-1) = ObjFlotilla.DtResultados
GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString(), 1)
@@ -221,7 +221,7 @@ Partial Class Maq_CatCombustibles
If ObjFlotilla.RemoveCombustiblesTipos(GvDatosCombustiblesTipos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
GvDatosCombustiblesTipos.EditIndex = -1
ViewState("DTCombustibleTipo") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados
GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing
Alert("El Tipo de Combustible se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
@@ -255,7 +255,7 @@ Partial Class Maq_CatCombustibles
If ObjFlotilla.UpdateCombustiblesTipos(CombustibleTipo, EstatusCombustibleTipo, CveCombustibleTipo) Then
GvDatosCombustiblesTipos.EditIndex = -1
ViewState("DTCombustibleTipo") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados
GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If