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

8
General/CatProductosServiciosCaracteristicas.aspx.vb
View File

@@ -40,9 +40,9 @@ Partial Class GRAL_CatCaracteristicasProductosServicios
Public Sub CargaDatos()
Dim ObjCaracteristicas As New ClsGralProductosServiciosCaracteristicas
If ObjCaracteristicas.GetProductosServiciosCaracteristicas() Then
If ObjCaracteristicas.GetProductosServiciosCaracteristicas(UsuarioActual.CveEmpresa) Then
ViewState("DTProductosServiciosCaracteristicas") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTProductosServiciosCaracteristicas(UsuarioActual.CveEmpresa) = ObjCaracteristicas.DtResultados
'GlobalDTProductosServiciosCaracteristicas(UsuarioActual.CveEmpresa) = ObjCaracteristicas.DtResultados
Else
Me.GvDatosCaracteristicas.DataSource = Nothing
End If
@@ -56,9 +56,9 @@ Partial Class GRAL_CatCaracteristicasProductosServicios
Public Sub CargaDatosO()
Dim ObjOpciones As New ClsGralProductosServiciosCaracteristicas
If ObjOpciones.GetProductosServiciosCaracteristicasOpciones() Then
If ObjOpciones.GetProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) Then
ViewState("DTProductosServiciosCaracteristicasOpciones") = ObjOpciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) = ObjOpciones.DtResultados
'GlobalDTProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) = ObjOpciones.DtResultados
Else
GvDatosOpciones.DataSource = Nothing
End If