InraPorc

unit UFRapSeqAliT ;

interface

uses

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

  Dialogs, OleCtrls, StdCtrls, ComCtrls, DB, DBClient, ExtCtrls, QRCtrls,

  QuickRpt, QRPrntr, MidasLib, UVariables, gnugettext;

type

  TFRapSeqAliT = class(TForm)

    QRRapport: TQuickRep;

    PHBRapport: TQRBand;

    DBRapport: TQRBand;

    QRLTitre: TQRLabel;

    CDSRapport: TClientDataSet;

    SFSeqAli: TStringField;

    PFBRapport: TQRBand;

    QRLUser: TQRLabel;

    QRLWarning: TQRLabel;

    QRLSeqAli: TQRLabel;

    QRDBTSeqAli: TQRDBText;

    QRLMemo: TQRLabel;

    QRMMemo: TQRMemo;

    QRSDDate: TQRSysData;

    QRSEntete: TQRShape;

    DSRelation: TDataSource;

    CDSRegles: TClientDataSet;

    SFIndex: TStringField;

    IFNo: TIntegerField;

    SFModeFin: TStringField;

    SFAliment: TStringField;

    QRLRegles: TQRLabel;

    QRLNo: TQRLabel;

    QRDBTNo: TQRDBText;

    QRShape2: TQRShape;

    QRLModeFin: TQRLabel;

    QRDBTModeFin: TQRDBText;

    QRLAliment: TQRLabel;

    QRDBTAliment: TQRDBText;

    QRSDRegles: TQRSubDetail;

    TBRapport: TQRBand;

    QRDBTEtat: TQRDBText;

    IFEtat: TIntegerField;

    CDSRapport_Etat_: TIntegerField;

    SFStrEtat: TStringField;

    QRIInraPorc: TQRImage;

    QRLInraPorc: TQRLabel;

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FRapSeqAliT: TFRapSeqAliT;

implementation

uses

  UStrings, UUtil, UFSeqAliT, UFPrevRap ;

{$R *.dfm}

{ TFRapSeqAliT }

procedure TFRapSeqAliT.FormCreate(Sender: TObject);

var

  etat, regle, nb : integer;

begin

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

  then

    Font.Name := 'Arial Unicode MS';

  TranslateComponent(Self);

  // Licence

  if IsEducation and (Length (Course) > 0)

  then

    QRLUSer.Caption := Format('%s (%s)', [Course, Company])

  else

  if IsComplete or IsEducation

  then

    QRLUSer.Caption := Format('%s %s (%s)', [FirstName, LastName, Company])

  else

  if IsEvaluation

  then

    QRLUSer.Caption := StrEvaluation

  else

  begin

    QRLUSer.Caption := StrReadOnly;

    QRLUser.Font.Color := clRed;

  end;

  with CDSRapport do

  begin

    CreateDataSet;

    for etat := 0 to 2 do

    begin

      Append;

      FieldValues['_SeqAli_'] := FSeqAliT.CBSeqAli.Text;

      FieldValues['_Etat_'] := etat;

      FieldValues['_StrEtat_'] := FSeqAliT.TC.Tabs[etat];

      Post;

    end;

  end;

  QRMMemo.Lines.Add(FSeqAliT.CBSeqAli.Hint);

  with CDSRegles do

  begin

    CreateDataSet;

    for etat := 0 to 2 do

    begin

      case etat of

        0 : // Gestation

          nb := PSeqAliT.NbRuleGest;

        1 : // Lactation

          nb := PSeqAliT.NbRuleLact;

        else // I.S.S.F.

          nb := PSeqAliT.NbRuleISSF;

      end;

      for regle := 1 to nb do

      begin

        Append;

        FieldValues['_SeqAli_'] := FSeqAliT.CBSeqAli.Text;

        FieldValues['_Etat_'] := etat;

        FieldValues['_No_'] := regle;

        FieldValues['_ModeFin_'] := FSeqAliT.StrModeFin(etat, regle);

        FieldValues['_Aliment_'] := FSeqAliT.StrAliment(etat, regle);

        Post;

      end;

    end;

  end;

  RegisterPreviewClass(TQRPrevRapInterface);

//  QRRapport.PreviewModal;

//  RegisterPreviewClass(TQRStandardPreviewInterface);

end;

end.