Advertisement
dandepp

Untitled

Mar 27th, 2023
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.47 KB | None | 0 0
  1. PROCEDURE getUserRoles()
  2.  
  3. response is array of MRoles = Projecte_Service.roles.GetAllByUserID(LOOP_RolsEmpleats.ATT_Codi)
  4.  
  5.  
  6. IF response.Count >= 1 THEN
  7.  
  8.     FOR EACH elem OF response
  9.         FOR index = 1 _TO_ LOOP_ArrayRoles.Count   
  10.             IF elem.NOM = LOOP_ArrayRoles[index].ATT_NombreRoles THEN
  11.                 LOOP_ArrayRoles[index].CBOX_CheckedRow = True
  12.                 currentRoles.Add(elem.ROLES_ID)            
  13.             END
  14.         END                
  15.     END
  16. END
  17. //get associations
  18. Projecte_Service.roles.getAllRolesAss()
  19.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement