Correccion de usuario responsable

Compras/Proveedores.aspx.vb

@@ -1458,7 +1458,22 @@ Partial Class Compras_Proveedores
 #Region "LL E N A R  -  C O M B O S"
     Private Sub CargaResponsable()
         'DdlCveUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, DistinctColumns:={"CveUsuario", "Nombre"})
-        DdlCveUsuarioResponsable.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", DistinctColumns:={"CveUsuario", "Nombre"})
+        Dim DtUsuarios As DataTable = Nothing
+
+        Dim ObjUsuarios As New ClsSisUsuarios
+        Try
+            If ObjUsuarios.GetUsuarios(-1) Then
+                DtUsuarios = ObjUsuarios.DtResultados.FiltraParametros($"CveEmpresaPredeterminada = {UsuarioActual.CveEmpresa}", DistinctColumns:={"CveUsuario", "Nombre", "Estatus"})
+                If CveProveedor <= 0 AndAlso DtUsuarios IsNot Nothing Then
+                    DtUsuarios = DtUsuarios.FiltraParametros("Estatus = True", DistinctColumns:={"CveUsuario", "Nombre"})
+                End If
+            End If
+        Catch ex As Exception
+            OnError("Ocurrio un error al obtener los responsables", ex)
+        End Try
+        ObjUsuarios.Dispose()
+
+        DdlCveUsuarioResponsable.DataSource = DtUsuarios 'GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", DistinctColumns:={"CveUsuario", "Nombre"})
         DdlCveUsuarioResponsable.DataBind()
     End Sub
     Private Sub CargaClasificacionProveedor()