Cambio entre portales (portal del cliente)

Sistemas/PopUpAddUsuario.aspx.vb

@@ -371,7 +371,19 @@ Partial Class Sistemas_PopUpAddUsuario
                 '    Return
                 'End If
 
-                If UsuarioActual.Empresa.CvePlataforma = 3 Then
+                If UsuarioActual.Empresa.CvePlataforma = 1 Then
+                    Dim DtClientesAcceso As DataTable = Nothing
+                    If Not HuboError AndAlso ObjUsuarios.GetUsuarioCliente(CveUsuario, CveCliente) Then
+                        'DEBE AGREGAR EL USUARIO AL CLIENTE
+                        If ObjUsuarios.DtResultados.Rows.Count = 0 Then
+                            If Not HuboError AndAlso Not ObjUsuarios.AddUsuarioCliente(CveUsuario, CveCliente) Then
+                                HuboError = True
+                            End If
+                        End If
+                    Else
+                        HuboError = True
+                    End If
+                ElseIf UsuarioActual.Empresa.CvePlataforma = 3 Then
                     If Not ObjUsuarios.UpdateUsuario(LtlUsuario.Text.Trim, TxtNombre.Text, -1, TxtEmail.Text, -1, -1, False, True, -1, CveUsuario, -1, -1) Then
                         HuboError = True
                     End If
@@ -855,6 +867,8 @@ Partial Class Sistemas_PopUpAddUsuario
         CargaModulosPermisos()
         CargaComandos()
         UpDatos.Update()
+
+        RegistraScript(" $('.CustomSpinner').hide();")
     End Sub
 
 End Class