Table of Content
HAL Forum
procedure UpdateBrowses (
string FileName)
Description:
Updates browse window of specified Vc
Parameters:
FileName any Vc
global
updating procedure StartAccessIntORDsm()
begin
  record IntORVc IntORr;
  Integer wn;

  wn = CurWindow;
  GetWindowRecord(wn,IntORr);
  if (nonblank(IntORr.AcceptanceGroup)) then begin
    if (IntORr.StatusFlag==0) then begin
      IntORr.StatusFlag = 4;
      PutWindowRecord(wn,IntORr);
      if (WindowDoOK(wn,0)) then begin
        UpdateBrowses("IntORVc");
      end;
    end;
  end;
  return;
end;

Related topics:
««