function printIntervention( pNumClient: Variant; pIdIntervention: Integer; pShow: Boolean = True ): Boolean;
var
  p: TUIFreeReportPreviewer;
  q: TIBQuery;
  d: TfrDBDataSet;
begin
  Result := False;
  p := TUIFreeReportPreviewer.Create( nil );
  p.lPrintType := [ptIntervention];
  p.lReportFilePath := p.lReportFilePath + 'Intervention.frf';
  p.Hint := 'LogicAlarm - Impression Intervention';
  //
  with p.qCustom do
  begin
    SQL.Text := 'SELECT DATE_TI, START_HOUR_TI, END_HOUR_TI, ' +
      'FAMILY_NAME_TECHNICIAN || '' '' || NAME_TECHNICIAN AS FULL_NAME_TECHNICIAN ' +
      'FROM TECHNICIANS_INTERVENTION ' +
      'INNER JOIN TECHNICIANS ON ID_TECHNICIAN_TI = ID_TECHNICIAN ' +
      'AND ID_INTERVENTION_TI = :idinter';
    Params[0].AsInteger := pIdIntervention;
  end;
  //
  q := newQuery;
  with q do
  begin
    SQL.Text := 'SELECT ART_REFERENCE, ART_DESIGNATION, QTY_ARTICLE_MI, ' +
      'BILLABLE_ARTICLE_MI ' +
      'FROM MATERIAL_INTERVENTION ' +
      'INNER JOIN ARTICLES ON ART_NUM_ARTICLE = NUM_ARTICLE_MI ' +
      'AND ID_INTERVENTION_MI = :idinter';
    Params[0].AsInteger := pIdIntervention;
  end;
  // if file not exists, cancel
  if ( not FileExists( p.lReportFilePath ) ) then
  begin                                              
    ShowMessage( Format( 'L''etat %s n''existe pas, annulation.', [ p.lReportFilePath ] ) );
    p.Release;
    q.Free;
    Exit;
  end;
  p.frReport.Title := p.Hint;
  // prepare queries
  p.prepareQueries( pNumClient );
  p.qCustom.Open;
  q.Open;
  if ( not ( p.qCustom.Eof and q.Eof ) ) then
  begin
    p.seCopyNumber.Value := 1;
    //
    p.frDBDataSet.DataSet := p.qCustom;
    d := TfrDBDataSet.Create( p );
    d.Name := 'frDB';
    d.DataSet := q;
    // load report
    p.frReport.LoadFromFile( p.lReportFilePath );
    TfrBandView( p.frReport.FindObject( 'materialDatas' ) ).DataSet := d.Name;
    // prepare repart
    p.finishPrepareReport;
    Result := p.previewReport( pShow );
  end
  else
    ShowMessage( NO_DATA );
  // liberation memoire
  if ( Assigned( p ) ) then
    p.Release;
  // free memory
  q.Free;
  d.Free;
end;