-- cambio en GlobalDT

Sistemas/PopUpCambiaUsuario.aspx.vb

@@ -25,9 +25,9 @@ Partial Class Sistemas_PopUpCambiaUsuario
                 RegistraScript("window.close();")
             End If
 
-            Dim DtEmp As DataTable = GlobalDTEmpresas.Copy
+            Dim DtEmp As DataTable = GlobalDTEmpresas(CveEmpresa:=-1).Copy
             Dim NombreEmp As String = UsuarioActual.Empresa.Empresa
-            '''condición para ocultar los nombres de las empresas y ponerles "mi empresa de venta (xxx)"
+            ''condición para ocultar los nombres de las empresas y ponerles "mi empresa de venta (xxx)"
             ''If UsuarioActual.CveUsuario = 100 Then
 
             ''    Dim customerRow() As Data.DataRow
@@ -62,6 +62,8 @@ Partial Class Sistemas_PopUpCambiaUsuario
                     Case "BDH" : CveEmpresa = "140"
                     Case "ECONOLLANTAS" : CveEmpresa = "141"
                     Case "SERVEC" : CveEmpresa = "153"
+                    Case "CITRUS" : CveEmpresa = "172"
+                    Case "KINO" : CveEmpresa = "173"
                 End Select
             End If
             DdlEmpresa.DataBind()
@@ -195,7 +197,7 @@ Partial Class Sistemas_PopUpCambiaUsuario
     End Sub
 
     Private Sub CargaUsuarios(Optional Orden As String = "Nombre")
-        Dim dtt As DataTable = GlobalDTUsuarios(-1, DdlEmpresa.SelectedValue.ToEntero)
+        Dim dtt As DataTable = GlobalDTUsuarios(-1, CveEmpresa:=DdlEmpresa.SelectedValue.ToEntero)
         'If DdlRol.SelectedValue <> "-1" Then
         '    dtt = dtt.FiltraParametros("CveRol=" & DdlRol.SelectedValue)
         'End If