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