InraPorc

unit UFRapBesGestE ;

interface

uses

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

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

  QuickRpt, QRPrntr, MidasLib, Math, UVariables, gnugettext;

type

  TFRapBesGestE = class(TForm)

    QRRapport: TQuickRep;

    PHBRapport: TQRBand;

    DBRapport: TQRBand;

    QRLTitre: TQRLabel;

    CDSRapport: TClientDataSet;

    QRLSaillie: TQRLabel;

    QRLPoids: TQRLabel;

    QRLCaract: TQRLabel;

    QRLMiseBas: TQRLabel;

    QRLP2: TQRLabel;

    QRLAge: TQRLabel;

    QRLNesVifs: TQRLabel;

    QRLPdsPt: TQRLabel;

    FFPdsSail: TFloatField;

    FFPdsMB: TFloatField;

    FFP2Sail: TFloatField;

    FFP2MB: TFloatField;

    IFAgeSail: TIntegerField;

    IFAgeMB: TIntegerField;

    QRLVariation: TQRLabel;

    QRDBTPdsSail: TQRDBText;

    QRDBTPdsMB: TQRDBText;

    QREPds: TQRExpr;

    QRDBTP2Sail: TQRDBText;

    QRDBTP2MB: TQRDBText;

    QREP2: TQRExpr;

    QRDBTAgeSail: TQRDBText;

    QRDBTAgeMB: TQRDBText;

    QREAge: TQRExpr;

    IFCycle: TIntegerField;

    FFPdsPort: TFloatField;

    QRDBText2: TQRDBText;

    QRDBText3: TQRDBText;

    QRLNRJ: TQRLabel;

    QRLAA: TQRLabel;

    QRLNRJEnt: TQRLabel;

    QRLNRJAct: TQRLabel;

    QRLNRJThe: TQRLabel;

    QRLNRJPort: TQRLabel;

    QRLNRJRes: TQRLabel;

    QRLNRJTot: TQRLabel;

    QRDBTEMEnt: TQRDBText;

    QRLEMEnt: TQRLabel;

    QRLPctEnt: TQRLabel;

    QRDBTEMThe: TQRDBText;

    QRLEMThe: TQRLabel;

    QRLPctThe: TQRLabel;

    QRDBTEMRes: TQRDBText;

    QRLEMRes: TQRLabel;

    QRLPctRes: TQRLabel;

    QRDBTEMAct: TQRDBText;

    QRLEMAct: TQRLabel;

    QRLPctAct: TQRLabel;

    QRDBTEMPort: TQRDBText;

    QRLEMPort: TQRLabel;

    QRLPctPort: TQRLabel;

    QRDBTEMTot: TQRDBText;

    QREPctEnt: TQRExpr;

    QREPctThe: TQRExpr;

    QREPctRes: TQRExpr;

    QREPctAct: TQRExpr;

    QREPctPort: TQRExpr;

    FFBesEMEnt: TFloatField;

    FFBesEMAct: TFloatField;

    FFBesEMThe: TFloatField;

    FFBesEMPort: TFloatField;

    FFBesEMRes: TFloatField;

    FFBesEMTot: TFloatField;

    FFAppED: TFloatField;

    FFAppEM: TFloatField;

    FFAppEN: TFloatField;

    FFBesAli: TFloatField;

    QRLEMTot: TQRLabel;

    QRLENTot: TQRLabel;

    QREENTot: TQRExpr;

    QRLAli: TQRLabel;

    QRDBTAli: TQRDBText;

    QRLAATot: TQRLabel;

    QRLAAAli: TQRLabel;

    QRLPctLys: TQRLabel;

    QRLAATot35: TQRLabel;

    QRLAATot105: TQRLabel;

    QRLAAAli35: TQRLabel;

    QRLAAAli105: TQRLabel;

    QRLLys: TQRLabel;

    QRLMet: TQRLabel;

    QRLMetCys: TQRLabel;

    QRLTrp: TQRLabel;

    QRLThr: TQRLabel;

    QRLPhe: TQRLabel;

    QRLPheTyr: TQRLabel;

    QRLLeu: TQRLabel;

    QRLIle: TQRLabel;

    QRLVal: TQRLabel;

    QRLHis: TQRLabel;

    QRLArg: TQRLabel;

    QRDBTLysTot35: TQRDBText;

    QRDBTMetTot35: TQRDBText;

    QRDBTMetCysTot35: TQRDBText;

    QRDBTTrpTot35: TQRDBText;

    QRDBTThrTot35: TQRDBText;

    QRDBTPheTot35: TQRDBText;

    QRDBTPheTyrTot35: TQRDBText;

    QRDBTLeuTot35: TQRDBText;

    QRDBTIleTot35: TQRDBText;

    QRDBTValTot305: TQRDBText;

    QRDBTHisTot35: TQRDBText;

    QRDBTArgTot35: TQRDBText;

    QRDBTLysTot105: TQRDBText;

    QRDBTMetTot105: TQRDBText;

    QRDBTMetCysTot105: TQRDBText;

    QRDBTTrpTot105: TQRDBText;

    QRDBTThrTot105: TQRDBText;

    QRDBTPheTot105: TQRDBText;

    QRDBTPheTyrTot105: TQRDBText;

    QRDBTLeuTot105: TQRDBText;

    QRDBTIleTot105: TQRDBText;

    QRDBTValTot105: TQRDBText;

    QRDBTHisTot105: TQRDBText;

    QRDBTArgTot105: TQRDBText;

    QRELysAli35: TQRExpr;

    QREMetAli35: TQRExpr;

    QREMetCysAli35: TQRExpr;

    QRETrpAli35: TQRExpr;

    QREThrAli35: TQRExpr;

    QREPheAli35: TQRExpr;

    QREPheTyrAli35: TQRExpr;

    QRELeuAli35: TQRExpr;

    QREIleAli35: TQRExpr;

    QREValAli35: TQRExpr;

    QREHisAli35: TQRExpr;

    QREArgAli35: TQRExpr;

    QRELysAli105: TQRExpr;

    QREMetAli105: TQRExpr;

    QREMetCysAli105: TQRExpr;

    QRETrpAli105: TQRExpr;

    QREThrAli105: TQRExpr;

    QREPheAli105: TQRExpr;

    QREPheTyrAli105: TQRExpr;

    QRELeuAli105: TQRExpr;

    QREIleAli105: TQRExpr;

    QREValAli105: TQRExpr;

    QREHisAli105: TQRExpr;

    QREArgAli105: TQRExpr;

    QRELysPctLys: TQRExpr;

    QREMetPctLys: TQRExpr;

    QREMetCysPctLys: TQRExpr;

    QRETrpPctLys: TQRExpr;

    QREThrPctLys: TQRExpr;

    QREPhePctLys: TQRExpr;

    QREPheTyrPctLys: TQRExpr;

    QRELeuPctLys: TQRExpr;

    QREIlePctLys: TQRExpr;

    QREValPctLys: TQRExpr;

    QREHisPctLys: TQRExpr;

    QREArgPctLys: TQRExpr;

    FFLys105: TFloatField;

    FFMet105: TFloatField;

    FFMetCys105: TFloatField;

    FFTrp105: TFloatField;

    FFThr105: TFloatField;

    FFPhe105: TFloatField;

    FFPheTyr105: TFloatField;

    FFLeu105: TFloatField;

    FFIle105: TFloatField;

    FFVal105: TFloatField;

    FFHis105: TFloatField;

    FFArg105: TFloatField;

    FFLys35: TFloatField;

    FFMet35: TFloatField;

    FFMetCys35: TFloatField;

    FFTrp35: TFloatField;

    FFThr35: TFloatField;

    FFPhe35: TFloatField;

    FFPheTyr35: TFloatField;

    FFLeu35: TFloatField;

    FFIle35: TFloatField;

    FFVal35: TFloatField;

    FFHis35: TFloatField;

    FFArg35: TFloatField;

    QRShape1: TQRShape;

    QRShape2: TQRShape;

    QRShape3: TQRShape;

    QRLMinAli: TQRLabel;

    QRLMinTot: TQRLabel;

    QRShape4: TQRShape;

    QRShape5: TQRShape;

    QRLMin: TQRLabel;

    QRLMinTot35: TQRLabel;

    QRLMinTot105: TQRLabel;

    QRLMinAli35: TQRLabel;

    QRLMinAli105: TQRLabel;

    QREPAli105: TQRExpr;

    QREPAli35: TQRExpr;

    QRLabel9: TQRLabel;

    QRDBTP35Tot: TQRDBText;

    QRDBTP105Tot: TQRDBText;

    QRECaAli105: TQRExpr;

    QRECaAli35: TQRExpr;

    QRLabel10: TQRLabel;

    QRDBTCa35Tot: TQRDBText;

    QRDBTCa105Tot: TQRDBText;

    FFP35: TFloatField;

    FFCa35: TFloatField;

    FFP105: TFloatField;

    FFCa105: TFloatField;

    FFNesTotaux: TFloatField;

    PFBRapport: TQRBand;

    QRLUser: TQRLabel;

    QRLWarning: TQRLabel;

    SFProfil: TStringField;

    SFLoge: TStringField;

    QRLProfil: TQRLabel;

    QRDBTProfil: TQRDBText;

    QRLabel1: TQRLabel;

    QRDBTLoge: TQRDBText;

    QRShape6: TQRShape;

    QRDBTCycle: TQRDBText;

    QRLCycle: TQRLabel;

    QRSDDate: TQRSysData;

    QRIInraPorc: TQRImage;

    QRLInraPorc: TQRLabel;

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FRapBesGestE: TFRapBesGestE;

implementation

uses

  UStrings, UUtil, UFBesGestE, UFPrevRap ;

{$R *.dfm}

{ TFRapBesGestE }

procedure TFRapBesGestE.FormCreate(Sender: TObject);

var

  Cycle: 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 Cycle := 1 to NB_CYCLES do

    begin

      Append;

      FieldValues['_Cycle_'] := Cycle ;

      FieldValues['_Profil_'] := FBesGestE.CBProfil.Text ;

      FieldValues['_Loge_'] := FBesGestE.CBLoge.Text ;

      FieldValues['_NesTotaux_'] := PProfilT.Porcelets[Cycle].NesTotaux ;

      FieldValues['_PdsPort_'] := PProfilT.Porcelets[Cycle].NesTotaux * PProfilT.Porcelets[Cycle].PdsNais ;

      FieldValues['_PdsSail_'] := PProfilT.Truies[Cycle].PdsSail ;

      FieldValues['_PdsMB_'] := PProfilT.pmax * (1 - Exp ((- PProfilT.a / 1000) * Power (PProfilT.Truies[Cycle].AgeSail + DureeGest, PProfilT.b))) ;

      FieldValues['_P2Sail_'] := PProfilT.Truies[Cycle].P2Sail ;

      FieldValues['_P2MB_'] := PProfilT.Truies[Cycle].P2MB ;

      FieldValues['_AgeSail_'] := PProfilT.Truies[Cycle].AgeSail ;

      FieldValues['_AgeMB_'] := PProfilT.Truies[Cycle].AgeSail + DureeGest ;

      FieldValues['_BesEMEnt_'] := FBesGestE.BesEMEntTot[Cycle] ;

      FieldValues['_BesEMAct_'] := FBesGestE.BesEMActTot[Cycle] ;

      FieldValues['_BesEMThe_'] := FBesGestE.BesEMTheTot[Cycle] ;

      FieldValues['_BesEMPort_'] := FBesGestE.BesEMPortTot[Cycle] ;

      FieldValues['_BesEMRes_'] := FBesGestE.BesEMResTot[Cycle] ;

      FieldValues['_BesEMTot_'] := FBesGestE.BesEMTot[Cycle] ;

      FieldValues['_AppED_'] := FBesGestE.AppEDTot[Cycle] ;

      FieldValues['_AppEM_'] := FBesGestE.AppEMTot[Cycle] ;

      FieldValues['_AppEN_'] := FBesGestE.AppENTot[Cycle] ;

      if (FBesGestE.AppEMTot[Cycle] = 0)

      then

        FieldValues['_BesAli_'] := 0

      else

        FieldValues['_BesAli_'] := FBesGestE.BesEMTot[Cycle] * FBesGestE.AppAliTot[Cycle] / FBesGestE.AppEMTot[Cycle] ;

      FieldValues['_Lys35_'] := FBesGestE.BesAA[Cycle, 1, 35] ;

      FieldValues['_Met35_'] := FBesGestE.BesAA[Cycle, 2, 35] ;

      FieldValues['_MetCys35_'] := FBesGestE.BesAA[Cycle, 13, 35] ;

      FieldValues['_Trp35_'] := FBesGestE.BesAA[Cycle, 4, 35] ;

      FieldValues['_Thr35_'] := FBesGestE.BesAA[Cycle, 5, 35] ;

      FieldValues['_Phe35_'] := FBesGestE.BesAA[Cycle, 6, 35] ;

      FieldValues['_PheTyr35_'] := FBesGestE.BesAA[Cycle, 14, 35] ;

      FieldValues['_Leu35_'] := FBesGestE.BesAA[Cycle, 8, 35] ;

      FieldValues['_Ile35_'] := FBesGestE.BesAA[Cycle, 9, 35] ;

      FieldValues['_Val35_'] := FBesGestE.BesAA[Cycle, 10, 35] ;

      FieldValues['_His35_'] := FBesGestE.BesAA[Cycle, 11, 35] ;

      FieldValues['_Arg35_'] := FBesGestE.BesAA[Cycle, 12, 35] ;

      FieldValues['_Lys105_'] := FBesGestE.BesAA[Cycle, 1, 105] ;

      FieldValues['_Met105_'] := FBesGestE.BesAA[Cycle, 2, 105] ;

      FieldValues['_MetCys105_'] := FBesGestE.BesAA[Cycle, 13, 105] ;

      FieldValues['_Trp105_'] := FBesGestE.BesAA[Cycle, 4, 105] ;

      FieldValues['_Thr105_'] := FBesGestE.BesAA[Cycle, 5, 105] ;

      FieldValues['_Phe105_'] := FBesGestE.BesAA[Cycle, 6, 105] ;

      FieldValues['_PheTyr105_'] := FBesGestE.BesAA[Cycle, 14, 105] ;

      FieldValues['_Leu105_'] := FBesGestE.BesAA[Cycle, 8, 105] ;

      FieldValues['_Ile105_'] := FBesGestE.BesAA[Cycle, 9, 105] ;

      FieldValues['_Val105_'] := FBesGestE.BesAA[Cycle, 10, 105] ;

      FieldValues['_His105_'] := FBesGestE.BesAA[Cycle, 11, 105] ;

      FieldValues['_Arg105_'] := FBesGestE.BesAA[Cycle, 12, 105] ;

      FieldValues['_P35_'] := FBesGestE.BesP[Cycle, 35] ;

      FieldValues['_Ca35_'] := FBesGestE.BesCa[Cycle, 35] ;

      FieldValues['_P105_'] := FBesGestE.BesP[Cycle, 105] ;

      FieldValues['_Ca105_'] := FBesGestE.BesCa[Cycle, 105] ;

      Post;

    end ;

  end ;

  RegisterPreviewClass(TQRPrevRapInterface);

//  QRRapport.PreviewModal;

//  RegisterPreviewClass(TQRStandardPreviewInterface);

end;

end.