(

Description:

Make a company available to work with


Parameters:
comp	Company number

global
updating procedure ServerUnlockCompany(Integer comp)
BEGIN
  record CYBlock CYr;
  
  UnlockCompany(comp);
  BlockLoad(CYr);
  CYr.LockedBy = "";
  CYr.LockedLevel = 0;
  BlockStore(CYr);
  RETURN;
END;


Related topics:

««