This commit is contained in:
janeth arvizu
2019-11-26 09:27:37 -07:00

View File

@@ -128,7 +128,7 @@ Public Class WSGPSApp
DtModulos = Nothing
End If
UsuarioRetorno.Modulos = UsuariosModulos
Dim DtClientes As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltraParametros("CvePlataforma = 3 AND CveCliente > 0", "Empresa")
Dim DtClientes As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa")
If DtClientes IsNot Nothing Then
If DtClientes.Rows.Count > 0 Then
For Each Row As DataRow In DtClientes.Rows