function Boolean SetInSet

(

string firstset,string secondset)

Description:

Returns true if second string contains all values from first string.


Parameters:
firstset	first set of string values ("AAA","BBB")
secondset	second set of string values ("AAA","BBB","CCC","DDD")

global
function Boolean CheckedAllowedStatus(string fromstat,string tostat)
BEGIN
  record ReserSeqVc ReserSeqr;
  Boolean res;

  ReserSeqr.FromStatus = fromstat;
  if (ReadFirstMain(ReserSeqr,1,true)) then begin
    if (nonblank(tostat)) then begin
      if (SetInSet(tostat,ReserSeqr.StatusAllowed)) then begin
        res = true;
      end;
    end;
  end;
  CheckedAllowedStatus = res;
  RETURN;
END;


Related topics:

««