Cambios en portal de proveedores

Sistemas/PopUpAddUsuario.aspx.vb

@@ -350,6 +350,15 @@ Partial Class Sistemas_PopUpAddUsuario
                     Next
                 End If
 
+                If CvePlataforma = 7 Then
+                    'DEBE AGREGAR EL USUARIO AL PROVEEDOR
+                    If ObjUsuarios.DtResultados.Rows.Count = 0 Then
+                        If Not HuboError AndAlso Not ObjUsuarios.AddUsuarioProveedor(CveUsuario, CveProveedor) Then
+                            HuboError = True
+                        End If
+                    End If
+                End If
+
             ElseIf CveUsuario > 0 Then
                 'VALIDA NO ALTERAR DATOS DE OTRO USUARIO
                 'Dim DtUsuarios As DataTable = GlobalDTUsuarios.FiltraParametros($"CveUsuario <> {CveUsuario}")
@@ -403,7 +412,20 @@ Partial Class Sistemas_PopUpAddUsuario
                     If Not ObjUsuarios.UpdateUsuarioPortal(LtlUsuario.Text.Trim, TxtNombre.Text, TxtEmail.Text, ChkEstatus.Checked, "-1", CveCliente, CveProveedor, CveUsuario, UsuarioActual.CveUsuario) Then
                         HuboError = True
                     End If
-                End If
+                End If
+
+                If CvePlataforma = 7 Then
+                    If Not HuboError AndAlso ObjUsuarios.GetUsuarioProveedor(CveUsuario, CveProveedor) Then
+                        'DEBE AGREGAR EL USUARIO AL PROVEEDOR
+                        If ObjUsuarios.DtResultados.Rows.Count = 0 Then
+                            If Not HuboError AndAlso Not ObjUsuarios.AddUsuarioProveedor(CveUsuario, CveProveedor) Then
+                                HuboError = True
+                            End If
+                        End If
+                    Else
+                        HuboError = True
+                    End If
+                End If
 
                 If Not HuboError Then
                     For Each Row As GridViewRow In GvModulosAcceso.Rows

Sistemas/PopUpSeleccionarEmpresa.aspx.vb

@@ -16,10 +16,8 @@ Partial Class PopUpSeleccionarEmpresa
         End If
     End Sub
 
-    Private Sub GetEmpresas()
-
-
-        GlobalDTUsuarios(-1, -1) = Nothing 'Esto es por  los cambios de contaseña
+    Private Sub GetEmpresas()
+	GlobalDTUsuarios(-1, -1) = Nothing
         Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
 
         If Dt IsNot Nothing Then
@@ -90,10 +88,10 @@ Partial Class PopUpSeleccionarEmpresa
                             RegistraScript("Ir3();")
                         End If
                     End If
-                    dt.Dispose()
-                Else
-                    Alert($"Usuario Nulo {gvr.DataKey("Usuario")} , {gvr.DataKey("Contraseña")}, {IMEI}, {gvr.DataKey("CveEmpresa").ToEntero}", TipoMensaje.MsgAdvertencia)
-                End If
+                    dt.Dispose()
+
+                
+		End If
 
             End If
         End If