(

Description:

Make a company unavailable to work with


Parameters:
comp	Company number
level	Level of lock

global
updating procedure ServerLockCompany(Integer comp,Integer level,string usercode)
BEGIN
  record CYBlock CYr;
  
  BlockLoad(CYr);
  CYr.LockedBy = usercode;
  CYr.LockedLevel = level;
  BlockStore(CYr);
  LockCompany(comp,level);
  RETURN;
END;


Related topics:

««