Обработка событий справки по исполнителям

var
  PageHdr: string;
  sum1: extended;
  sum2: extended;

procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);
begin
  if <TOTALPAGES> = <PAGE#> then
	PageHdr := '''Окончание справки по исполнителям на '''
  else
	PageHdr := '''Продолжение справки по исполнителям на ''';
end;

procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);
begin
  sum1 := 0;
  sum2 := 0;
end;

procedure Memo18OnBeforePrint(Sender: TfrxComponent);
begin
  sum1 := sum1 + <SUM(<STAFFUSAGE."SUQUANTP">)>;
end;

procedure Memo50OnBeforePrint(Sender: TfrxComponent);
begin
  sum2 := sum2 + <SUM(<STAFFUSAGE."SUSUMMP">)>;
end;

procedure MemoHdrItogOnBeforePrint(Sender: TfrxComponent);
begin
  MemoHdrPrjTop.Width := Engine.CurX - MemoHdrPost.Left - MemoHdrPost.Width;
  MemoHdrPrjTop.Left := MemoHdrPost.Left + MemoHdrPost.Width;
end;

begin

end.