InraPorc

unit UFRapBesLactT ;

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

  TFRapBesLactT = class(TForm)

    QRRapport: TQuickRep;

    PHBRapport: TQRBand;

    DBRapport: TQRBand;

    QRLTitre: TQRLabel;

    CDSRapport: TClientDataSet;

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

    QRDBText1: TQRDBText;

    QRLPoids: TQRLabel;

    QRLCaract: TQRLabel;

    QRLMiseBas: TQRLabel;

    QRLP2: TQRLabel;

    QRLAge: TQRLabel;

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

    QRSDDate: TQRSysData;

    QRIInraPorc: TQRImage;

    QRLInraPorc: TQRLabel;

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FRapBesLactT: TFRapBesLactT;

implementation

uses

  UStrings, UUtil, UFBesLactT, UFPrevRap ;

{$R *.dfm}

{ TFRapBesLactT }

procedure TFRapBesLactT.FormCreate(Sender: TObject);

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;

    Append;

    FieldValues['_Portee_'] := FBesLactT.PBPortee.AsInteger ;

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

    FieldValues['_Sevres_'] := FBesLactT.PBSevres.AsFloat ;

    FieldValues['_GMQPort_'] := FBesLactT.PBGMQ.AsFloat ;

    FieldValues['_PdsMB_'] := FBesLactT.PBPdsApMB.AsFloat ;

    FieldValues['_P2MB_'] := FBesLactT.PBP2MB.AsFloat ;

    FieldValues['_BesEMEnt_'] := FBesLactT.BesEMEntTot ;

    FieldValues['_BesEMLait_'] := FBesLactT.BesEMLaitTot ;

    FieldValues['_BesEMTot_'] := FBesLactT.BesEMTot ;

    FieldValues['_AppED_'] := FBesLactT.AppEDTot ;

    FieldValues['_AppEM_'] := FBesLactT.AppEMTot ;

    FieldValues['_AppEN_'] := FBesLactT.AppENTot ;

    if (FBesLactT.AppEMTot = 0)

    then

      FieldValues['_BesAli_'] := 0

    else

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

    if (FBesLactT.BesEMTot > FBesLactT.AppEMTot / PProfilT.DureeLact)

    then // D?ficit

    begin

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

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

    end

    else // Exc?s

    begin

      FieldValues['_DefEM_'] := 0 ;

      FieldValues['_DefAli_'] := 0 ;

    end ;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    Post;

  end ;

  RegisterPreviewClass(TQRPrevRapInterface);

//  QRRapport.PreviewModal;

//  RegisterPreviewClass(TQRStandardPreviewInterface);

end;

end.