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

15
Ventas/CatFamiliaSubFamilia.aspx.vb
View File

@@ -76,8 +76,7 @@ Partial Class Ventas_CatFamiliaSubFamilia
Public Sub CargaDatosS()
Dim ObjClasificaciones As New ClsClasificaciones
If ObjClasificaciones.GetClasificaciones(-1, 2) Then
GlobalDTSubFamilias = ObjClasificaciones.DtResultados
If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa, 2) Then
ViewState("DTSubFamilias") = GlobalDTSubFamilias(UsuarioActual.CveEmpresa)
Else
GvDatosS.DataSource = Nothing
@@ -197,9 +196,9 @@ Partial Class Ventas_CatFamiliaSubFamilia
Alert("La nueva SubFamilia se guardó correctamente.", TipoMensaje.MsgInformacion)
UpTitulosS.Update()
If ObjClasificaciones.GetClasificaciones(-1, 2) Then
ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
GlobalDTSubFamilias = ObjClasificaciones.DtResultados
If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa, 2) Then
ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados
GlobalDTSubFamilias(UsuarioActual.CveEmpresa) = Nothing
End If
'DdlCuentaGastoS.SelectedValue = "-1"
@@ -290,9 +289,9 @@ Partial Class Ventas_CatFamiliaSubFamilia
Dim ObjClasificaciones As New ClsClasificaciones
If ObjClasificaciones.RemoveClasificacion(GvDatosS.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
GvDatosS.EditIndex = -1
If ObjClasificaciones.GetClasificaciones(-1, 2) Then
ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
GlobalDTSubFamilias = ObjClasificaciones.DtResultados
If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa, 2) Then
ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados
GlobalDTSubFamilias(UsuarioActual.CveEmpresa) = Nothing
End If
Alert("La SubFamilia se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If