Table of Content
HAL Forum
function string WindEFstr (
Integer wn)
Description:
Returns previous value of EditField
Parameters:
wn Window Number
function Boolean JobDClassCUCodeEFAfter(integer wn,Integer rownr,Integer changedf)
begin
  record JobVc Jobr;
  Boolean res;
  string 255 efstr,tstr;

  if (changedf!=0) then begin
    GetWindowRecord(wn,Jobr);
    efstr = WindEFstr(wn);
    if ((efstr!=Jobr.CUCode) and (nonblank(efstr))) then begin
      tstr = Jobr.Objects;
      RemoveOldCustObjects(efstr,tstr);
      Jobr.Objects = tstr;
    end;
  end;
  JobDClassCUCodeEFAfter = res;
  RETURN;
END;

Related topics:
««