InraPorc

unit UFRapportAli ;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, ExtCtrls, QuickRpt, UVariables, gnugettext;

type

  TFRapportAli = class(TForm)

    SBRapAliElem: TSpeedButton;

    SBRapAliAA: TSpeedButton;

    SBRapAliAG: TSpeedButton;

    SBRapAliMin: TSpeedButton;

    SBRapAliMat: TSpeedButton;

    ChkRapAliElem: TCheckBox;

    ChkRapAliAA: TCheckBox;

    ChkRapAliAG: TCheckBox;

    CHKRapAliMin: TCheckBox;

    ChkRapAliMat: TCheckBox;

    PMat: TPanel;

    BBPrint: TBitBtn;

    PD: TPrintDialog;

    BBClose: TBitBtn;

    procedure SBRapAliElemClick(Sender: TObject);

    procedure SBRapAliAAClick(Sender: TObject);

    procedure SBRapAliAGClick(Sender: TObject);

    procedure SBRapAliMinClick(Sender: TObject);

    procedure SBRapAliMatClick(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure BBPrintClick(Sender: TObject);

    procedure ChkRapAliClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FRapportAli : TFRapportAli ;

implementation

uses

  Printers, UUtil, UFRapAliElem, UFRapAliAA, UFRapAliAG, UFRapAliMin,

  UFRapAliMat ;

{$R *.dfm}

{ TFRapportAli }

procedure TFRapportAli.FormCreate(Sender: TObject);

begin

  if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1

  then

    Font.Name := 'Arial Unicode MS';

  TranslateComponent(Self);

end;

procedure TFRapportAli.FormShow(Sender: TObject);

begin

  PMat.Visible:= ConfAffMP;

end;

procedure TFRapportAli.ChkRapAliClick(Sender: TObject);

begin

  BBPrint.Enabled := (IsComplete or IsEducation)

    and (ChkRapAliElem.Checked or ChkRapAliAA.Checked or ChkRapAliAG.Checked or ChkRapAliMin.Checked or ChkRapAliMat.Checked);

end;

procedure TFRapportAli.SBRapAliElemClick(Sender: TObject);

begin

  FRapAliElem := TFRapAliElem.Create (Self) ;

  FRapAliElem.QRRapport.PreviewModal ;

  FRapAliElem.Release ;

end;

procedure TFRapportAli.SBRapAliAAClick(Sender: TObject);

begin

  FRapAliAA := TFRapAliAA.Create (Self) ;

  FRapAliAA.QRRapport.PreviewModal ;

  FRapAliAA.Release ;

end;

procedure TFRapportAli.SBRapAliAGClick(Sender: TObject);

begin

  FRapAliAG := TFRapAliAG.Create (Self) ;

  FRapAliAG.QRRapport.PreviewModal ;

  FRapAliAG.Release ;

end;

procedure TFRapportAli.SBRapAliMinClick(Sender: TObject);

begin

  FRapAliMin := TFRapAliMin.Create (Self) ;

  FRapAliMin.QRRapport.PreviewModal ;

  FRapAliMin.Release ;

end;

procedure TFRapportAli.SBRapAliMatClick(Sender: TObject);

begin

  FRapAliMat := TFRapAliMat.Create (Self) ;

  FRapAliMat.QRRapport.PreviewModal ;

  FRapAliMat.Release ;

end;

procedure TFRapportAli.BBPrintClick(Sender: TObject);

begin

  if PD.Execute

  then

  begin

    if ChkRapAliElem.Checked

    then

    begin

      FRapAliElem := TFRapAliElem.Create (Self) ;

      FRapAliElem.QRRapport.PrinterSettings.PrinterIndex := Printer.PrinterIndex;

      FRapAliElem.QRRapport.Print ;

      FRapAliElem.Release ;

    end ;

    if ChkRapAliAA.Checked

    then

    begin

      FRapAliAA := TFRapAliAA.Create (Self) ;

      FRapAliAA.QRRapport.PrinterSettings.PrinterIndex := Printer.PrinterIndex;

      FRapAliAA.QRRapport.Print ;

      FRapAliAA.Release ;

    end ;

    if ChkRapAliAG.Checked

    then

    begin

      FRapAliAG := TFRapAliAG.Create (Self) ;

      FRapAliAG.QRRapport.PrinterSettings.PrinterIndex := Printer.PrinterIndex;

      FRapAliAG.QRRapport.Print ;

      FRapAliAG.Release ;

    end ;

    if ChkRapAliMin.Checked

    then

    begin

      FRapAliMin := TFRapAliMin.Create (Self) ;

      FRapAliMin.QRRapport.PrinterSettings.PrinterIndex := Printer.PrinterIndex;

      FRapAliMin.QRRapport.Print ;

      FRapAliMin.Release ;

    end ;

    if ChkRapAliMat.Checked

    then

    begin

      FRapAliMat := TFRapAliMat.Create (Self) ;

      FRapAliMat.QRRapport.PrinterSettings.PrinterIndex := Printer.PrinterIndex;

      FRapAliMat.QRRapport.Print ;

      FRapAliMat.Release ;

    end ;

    Close;

  end;

end;

end.