InraPorc

unit UFRapBesLactE ;

interface

uses

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

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

  QRCtrls, QuickRpt, QRPrntr, MidasLib, UVariables, gnugettext;

type

  TFRapBesLactE = class(TForm)

    QRRapport: TQuickRep;

    PHBRapport: TQRBand;

    DBRapport: TQRBand;

    QRLTitre: TQRLabel;

    CDSRapport: TClientDataSet;

    IFCycle: TIntegerField;

    FFGMQPort: TFloatField;

    FFPdsMB: TFloatField;

    FFP2MB: TFloatField;

    IFDureeLact: TIntegerField;

    FFBesEMEnt: TFloatField;

    FFBesEMLait: TFloatField;

    FFBesEMTot: TFloatField;

    FFAppED: TFloatField;

    FFAppEM: TFloatField;

    FFAppEN: TFloatField;

    FFBesAli: TFloatField;

    FFLys: TFloatField;

    FFMet: TFloatField;

    FFMetCys: TFloatField;

    FFTrp: TFloatField;

    FFThr: TFloatField;

    FFPhe: TFloatField;

    FFPheTyr: TFloatField;

    FFLeu: TFloatField;

    FFIle: TFloatField;

    FFVal: TFloatField;

    FFHis: TFloatField;

    FFArg: TFloatField;

    QREBesENTot: TQRExpr;

    QRLBesENTot: TQRLabel;

    QREPctPort: TQRExpr;

    QREPctEnt: TQRExpr;

    QRDBText3: TQRDBText;

    QRDBText2: TQRDBText;

    QRLPoids: TQRLabel;

    QRLCaract: TQRLabel;

    QRLMiseBas: TQRLabel;

    QRLP2: TQRLabel;

    QRLAge: TQRLabel;

    QRLSevres: TQRLabel;

    QRLPdsPt: TQRLabel;

    QRDBTPdsMB: TQRDBText;

    QRDBTP2MB: TQRDBText;

    QRDBTAgeMB: TQRDBText;

    QRLNRJ: TQRLabel;

    QRLAA: TQRLabel;

    QRLNRJEnt: TQRLabel;

    QRLNRJPort: TQRLabel;

    QRLNRJTot: TQRLabel;

    QRDBTEMEnt: TQRDBText;

    QRLEMEnt: TQRLabel;

    QRLPctEnt: TQRLabel;

    QRDBTEMPort: TQRDBText;

    QRLEMPort: TQRLabel;

    QRLPctPort: TQRLabel;

    QRDBTBesEMTot: TQRDBText;

    QRLBesEMTot: TQRLabel;

    QREArgPctLys: TQRExpr;

    QREHisPctLys: TQRExpr;

    QREValPctLys: TQRExpr;

    QREIlePctLys: TQRExpr;

    QRELeuPctLys: TQRExpr;

    QREPheTyrPctLys: TQRExpr;

    QREPhePctLys: TQRExpr;

    QREThrPctLys: TQRExpr;

    QRETrpPctLys: TQRExpr;

    QREMetCysPctLys: TQRExpr;

    QREMetPctLys: TQRExpr;

    QRELysPctLys: TQRExpr;

    QREArgAli: TQRExpr;

    QREHisAli: TQRExpr;

    QREValAli: TQRExpr;

    QREIleAli: TQRExpr;

    QRELeuAli: TQRExpr;

    QREPheTyrAli: TQRExpr;

    QREPheAli: TQRExpr;

    QREThrAli: TQRExpr;

    QRETrpAli: TQRExpr;

    QREMetCysAli: TQRExpr;

    QREMetAli: TQRExpr;

    QRELysAli: TQRExpr;

    QRLAATot: TQRLabel;

    QRLAAAli: TQRLabel;

    QRLPctLys: 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;

    QRDBTLysTot: TQRDBText;

    QRDBTMetTot: TQRDBText;

    QRDBTMetCysTot: TQRDBText;

    QRDBTTrpTot: TQRDBText;

    QRDBTThrTot: TQRDBText;

    QRDBTPheTot: TQRDBText;

    QRDBTPheTyrTot: TQRDBText;

    QRDBTLeuTot: TQRDBText;

    QRDBTIleTot: TQRDBText;

    QRDBTValTot: TQRDBText;

    QRDBTHisTot: TQRDBText;

    QRDBTArgTot: TQRDBText;

    QRShape1: TQRShape;

    QRLDeficit: TQRLabel;

    QRDBTBesAli: TQRDBText;

    QRLBesAli: TQRLabel;

    QREDefEN: TQRExpr;

    QRLDefEN: TQRLabel;

    QRDBTDefEM: TQRDBText;

    QRLDefEM: TQRLabel;

    QRDBTDefAli: TQRDBText;

    QRLDefAli: TQRLabel;

    FFDefEM: TFloatField;

    FFDefAli: TFloatField;

    QRLMin: TQRLabel;

    QRECaAli: TQRExpr;

    QREPAli: TQRExpr;

    QRLabel2: TQRLabel;

    QRLabel3: TQRLabel;

    QRLP: TQRLabel;

    QRLCa: TQRLabel;

    QRDBTPTot: TQRDBText;

    QRDBTCaTot: TQRDBText;

    FFP: TFloatField;

    FFCa: TFloatField;

    FFSevres: TFloatField;

    PFBRapport: TQRBand;

    QRLUser: TQRLabel;

    QRLWarning: TQRLabel;

    QRLabel1: TQRLabel;

    QRLabel4: TQRLabel;

    QRLabel5: TQRLabel;

    QRLabel6: TQRLabel;

    QREAppEM: TQRExpr;

    QREAppEN: TQRExpr;

    QREAppAli: TQRExpr;

    SFProfil: TStringField;

    QRShape6: TQRShape;

    QRDBTCycle: TQRDBText;

    QRLCycle: TQRLabel;

    QRLProfil: TQRLabel;

    QRDBTProfil: TQRDBText;

    QRSDDate: TQRSysData;

    QRIInraPorc: TQRImage;

    QRLInraPorc: TQRLabel;

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FRapBesLactE: TFRapBesLactE;

implementation

uses

  UStrings, UUtil, UFBesLactE, UFPrevRap ;

{$R *.dfm}

{ TFRapBesLactE }

procedure TFRapBesLactE.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_'] := FBesLactE.CBProfil.Text ;

      FieldValues['_DureeLact_'] := PPRofilT.DureeLact ;

      FieldValues['_Sevres_'] := PProfilT.Porcelets[Cycle].Sevres ;

      FieldValues['_GMQPort_'] := (PProfilT.Porcelets[Cycle].PdsSev - PProfilT.Porcelets[Cycle].PdsNais) * PProfilT.Porcelets[Cycle].Sevres / PPRofilT.DureeLact ;

      FieldValues['_PdsMB_'] := PProfilT.Truies[Cycle].PdsApMB ;

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

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

      FieldValues['_BesEMLait_'] := FBesLactE.BesEMLaitTot[Cycle] ;

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

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

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

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

      if (FBesLactE.AppEMTot[Cycle] = 0)

      then

        FieldValues['_BesAli_'] := 0

      else

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

      if (FBesLactE.BesEMTot[Cycle] > FBesLactE.AppEMTot[Cycle] / PProfilT.DureeLact)

      then // D?ficit

      begin

        FieldValues['_DefEM_'] := FBesLactE.BesEMTot[Cycle] - FBesLactE.AppEMTot[Cycle] / PProfilT.DureeLact ;

        FieldValues['_DefAli_'] := FBesLactE.BesEMTot[Cycle] * FBesLactE.AppAliTot[Cycle] / FBesLactE.AppEMTot[Cycle] - FBesLactE.AppAliTot[Cycle] / PProfilT.DureeLact ;

      end

      else // Exc?s

      begin

        FieldValues['_DefEM_'] := 0 ;

        FieldValues['_DefAli_'] := 0 ;

      end ;

      FieldValues['_Lys_'] := Mean (Slice (FBesLactE.BesAA[Cycle, 1], PProfilT.DureeLact)) ;

      FieldValues['_Met_'] := Mean (Slice (FBesLactE.BesAA[Cycle, 2], PProfilT.DureeLact)) ;

      FieldValues['_MetCys_'] := Mean (Slice (FBesLactE.BesAA[Cycle, 13], PProfilT.DureeLact)) ;

      FieldValues['_Trp_'] := Mean (Slice (FBesLactE.BesAA[Cycle, 4], PProfilT.DureeLact)) ;

      FieldValues['_Thr_'] := Mean (Slice (FBesLactE.BesAA[Cycle, 5], PProfilT.DureeLact)) ;

      FieldValues['_Phe_'] := Mean (Slice (FBesLactE.BesAA[Cycle, 6], PProfilT.DureeLact)) ;

      FieldValues['_PheTyr_'] := Mean (Slice (FBesLactE.BesAA[Cycle, 14], PProfilT.DureeLact)) ;

      FieldValues['_Leu_'] := Mean (Slice (FBesLactE.BesAA[Cycle, 8], PProfilT.DureeLact)) ;

      FieldValues['_Ile_'] := Mean (Slice (FBesLactE.BesAA[Cycle, 9], PProfilT.DureeLact)) ;

      FieldValues['_Val_'] := Mean (Slice (FBesLactE.BesAA[Cycle, 10], PProfilT.DureeLact)) ;

      FieldValues['_His_'] := Mean (Slice (FBesLactE.BesAA[Cycle, 11], PProfilT.DureeLact)) ;

      FieldValues['_Arg_'] := Mean (Slice (FBesLactE.BesAA[Cycle, 12], PProfilT.DureeLact)) ;

      FieldValues['_P_'] := Mean (Slice (FBesLactE.BesP[Cycle], PProfilT.DureeLact)) ;

      FieldValues['_Ca_'] := Mean (Slice (FBesLactE.BesCa[Cycle], PProfilT.DureeLact)) ;

      Post;

    end ;

  end ;

  RegisterPreviewClass(TQRPrevRapInterface);

//  QRRapport.PreviewModal;

//  RegisterPreviewClass(TQRStandardPreviewInterface);

end;

end.