InraPorc

unit UFRapCompSimulP ;

interface

uses

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

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

  QuickRpt, QRPrntr, MidasLib, UVariables, gnugettext;

type

  TFRapCompSimulP = class(TForm)

    QRRapport: TQuickRep;

    PHBRapport: TQRBand;

    DBRapport: TQRBand;

    QRLTitre: TQRLabel;

    QRLCaract: TQRLabel;

    QRLPerf: TQRLabel;

    QRLProfil: TQRLabel;

    QRLSeqAli: TQRLabel;

    QRLRation: TQRLabel;

    QRLPoidsDeb: TQRLabel;

    QRLPoidsFin: TQRLabel;

    QRDBTProfil: TQRDBText;

    QRDBTSeqAli: TQRDBText;

    QRDBTRation: TQRDBText;

    QRDBTPoidsDeb_1: TQRDBText;

    QRDBTPoidsFin_1: TQRDBText;

    QRLAgeDeb: TQRLabel;

    QRLAgeFin: TQRLabel;

    QRDBTAgeDeb_1: TQRDBText;

    QRDBTAgeFin_1: TQRDBText;

    QRLDuree: TQRLabel;

    QRLGMQ: TQRLabel;

    QREDuree_1: TQRExpr;

    QREGMQ_1: TQRExpr;

    QRLPD: TQRLabel;

    QRLLD: TQRLabel;

    QRLAliTot: TQRLabel;

    QRLAliMoy: TQRLabel;

    QRDBTAliTot_1: TQRDBText;

    QREAliMoy_1: TQRExpr;

    QREPD_1: TQRExpr;

    QRELD_1: TQRExpr;

    QRLWastage: TQRLabel;

    QREWastage_1: TQRExpr;

    QRLFeed: TQRLabel;

    QRLTMP: TQRLabel;

    QRDBTTMP_1: TQRDBText;

    QRLP2: TQRLabel;

    QRDBTP2_1: TQRDBText;

    CDSRapport: TClientDataSet;

    IFAgeDeb_1: TIntegerField;

    IFAgeFin_1: TIntegerField;

    FFPoidsDeb_1: TFloatField;

    FFPoidsFin_1: TFloatField;

    FFpDeb_1: TFloatField;

    FFlDeb_1: TFloatField;

    FFConso_1: TFloatField;

    FFTMP_1: TFloatField;

    FFP2_1: TFloatField;

    PFBRapport: TQRBand;

    QRLUser: TQRLabel;

    QRLWarning: TQRLabel;

    QRSDDate: TQRSysData;

    QRSEntete: TQRShape;

    QRLRC: TQRLabel;

    QRDBTRC_1: TQRDBText;

    FFRC_2: TFloatField;

    QRSDRapport: TQRSubDetail;

    CDSSimul: TClientDataSet;

    SFProfil: TStringField;

    SFSeqAli: TStringField;

    SFRation: TStringField;

    IFAgeDeb_2: TIntegerField;

    IFAgeFin_2: TIntegerField;

    FFPoidsDeb_2: TFloatField;

    FFPoidsFin_2: TFloatField;

    FFpDeb_2: TFloatField;

    FFlDeb_2: TFloatField;

    FFConso_2: TFloatField;

    FFTMP_2: TFloatField;

    FFP2_2: TFloatField;

    IFAgeDeb_3: TIntegerField;

    IFAgeFin_3: TIntegerField;

    FFPoidsDeb_3: TFloatField;

    FFPoidsFin_3: TFloatField;

    FFpDeb_3: TFloatField;

    FFlDeb_3: TFloatField;

    FFConso_3: TFloatField;

    FFTMP_3: TFloatField;

    FFP2_3: TFloatField;

    FFRC_3: TFloatField;

    IFAgeDeb_4: TIntegerField;

    IFAgeFin_4: TIntegerField;

    FFPoidsDeb_4: TFloatField;

    FFPoidsFin_4: TFloatField;

    FFpDeb_4: TFloatField;

    FFlDeb_4: TFloatField;

    FFConso_4: TFloatField;

    FFTMP_4: TFloatField;

    FFP2_4: TFloatField;

    FFRC_4: TFloatField;

    IFAgeDeb_5: TIntegerField;

    IFAgeFin_5: TIntegerField;

    FFPoidsDeb_5: TFloatField;

    FFPoidsFin_5: TFloatField;

    FFpDeb_5: TFloatField;

    FFlDeb_5: TFloatField;

    FFConso_5: TFloatField;

    FFTMP_5: TFloatField;

    FFP2_5: TFloatField;

    FFRC_5: TFloatField;

    FFRC_1: TFloatField;

    QREWastage_2: TQRExpr;

    QRELD_2: TQRExpr;

    QREPD_2: TQRExpr;

    QREAliMoy_2: TQRExpr;

    QREGMQ_2: TQRExpr;

    QREDuree_2: TQRExpr;

    QRDBTPoidsDeb_2: TQRDBText;

    QRDBTPoidsFin_2: TQRDBText;

    QRDBTAgeDeb_2: TQRDBText;

    QRDBTAgeFin_2: TQRDBText;

    QRDBTAliTot_2: TQRDBText;

    QRDBTTMP_2: TQRDBText;

    QRDBTP2_2: TQRDBText;

    QRDBTRC_2: TQRDBText;

    QREWastage_3: TQRExpr;

    QRELD_3: TQRExpr;

    QREPD_3: TQRExpr;

    QREAliMoy_3: TQRExpr;

    QREGMQ_3: TQRExpr;

    QREDuree_3: TQRExpr;

    QRDBTPoidsDeb_3: TQRDBText;

    QRDBTPoidsFin_3: TQRDBText;

    QRDBTAgeDeb_3: TQRDBText;

    QRDBTAgeFin_3: TQRDBText;

    QRDBTAliTot_3: TQRDBText;

    QRDBTTMP_3: TQRDBText;

    QRDBTP2_3: TQRDBText;

    QRDBTRC_3: TQRDBText;

    QREWastage_4: TQRExpr;

    QRELD_4: TQRExpr;

    QREPD_4: TQRExpr;

    QREAliMoy_4: TQRExpr;

    QREGMQ_4: TQRExpr;

    QREDuree_4: TQRExpr;

    QRDBTPoidsDeb_4: TQRDBText;

    QRDBTPoidsFin_4: TQRDBText;

    QRDBTAgeDeb_4: TQRDBText;

    QRDBTAgeFin_4: TQRDBText;

    QRDBTAliTot_4: TQRDBText;

    QRDBTTMP_4: TQRDBText;

    QRDBTP2_4: TQRDBText;

    QRDBTRC_4: TQRDBText;

    QREWastage_5: TQRExpr;

    QRELD_5: TQRExpr;

    QREPD_5: TQRExpr;

    QREAliMoy_5: TQRExpr;

    QREGMQ_5: TQRExpr;

    QREDuree_5: TQRExpr;

    QRDBTPoidsDeb_5: TQRDBText;

    QRDBTPoidsFin_5: TQRDBText;

    QRDBTAgeDeb_5: TQRDBText;

    QRDBTAgeFin_5: TQRDBText;

    QRDBTAliTot_5: TQRDBText;

    QRDBTTMP_5: TQRDBText;

    QRDBTP2_5: TQRDBText;

    QRDBTRC_5: TQRDBText;

    SFSimul: TStringField;

    QRDBTSimul: TQRDBText;

    QRLSimulNo: TQRLabel;

    QRLNo1: TQRLabel;

    QRLabel1: TQRLabel;

    QRLabel2: TQRLabel;

    QRLabel3: TQRLabel;

    QRLabel4: TQRLabel;

    QRIInraPorc: TQRImage;

    QRLInraPorc: TQRLabel;

    FFpFin_1: TFloatField;

    FFlFin_1: TFloatField;

    FFpFin_2: TFloatField;

    FFlFin_2: TFloatField;

    FFpFin_3: TFloatField;

    FFlFin_3: TFloatField;

    FFpFin_4: TFloatField;

    FFlFin_4: TFloatField;

    FFpFin_5: TFloatField;

    FFlFin_5: TFloatField;

    FFIngere_1: TFloatField;

    FFIngere_2: TFloatField;

    FFIngere_3: TFloatField;

    FFIngere_4: TFloatField;

    FFIngere_5: TFloatField;

    QREFeed_5: TQRExpr;

    QREFeed_4: TQRExpr;

    QREFeed_3: TQRExpr;

    QREFeed_2: TQRExpr;

    QREFeed_1: TQRExpr;

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FRapCompSimulP: TFRapCompSimulP;

implementation

uses

  UStrings, UFindRec, UCalcul, UUtil, UFSimulP, UFPrevRap ;

{$R *.dfm}

{ TFRapSimulP }

procedure TFRapCompSimulP.FormCreate(Sender: TObject);

var

  i, k, t : integer ;

  c : double ;

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 CDSSimul do

  begin

    CreateDataSet;

    for k := 1 to 5 do

      if TabSimulP[k].Ok

      then

      begin

        Append;

        FieldValues['_Simul_'] := Format (StrSimulNo, [k]) ;

        PSimulP := ListSimulP[FindIdxSimulP (FindNomSimulP (TabSimulP[k].Simul))] ;

        if TabSimulP[k].Profil = -1

        then // Profil de la simulation

          FieldValues['_Profil_'] := FindNomProfilP (PSimulP.Profil)

        else

          FieldValues['_Profil_'] := FindNomProfilP (TabSimulP[k].Profil) ;

        if TabSimulP[k].SeqAli = -1

        then // S?quence alimentaire de la simulation

          FieldValues['_SeqAli_'] := FindNomSeqAliP (PSimulP.SeqAli)

        else

          FieldValues['_SeqAli_'] := FindNomSeqAliP (TabSimulP[k].SeqAli) ;

        if TabSimulP[k].Ration = -1

        then // plan de rationnement de la simulation

          FieldValues['_Ration_'] := FindNomRationP (PSimulP.Ration)

        else

          FieldValues['_Ration_'] := FindNomRationP (TabSimulP[k].Ration) ;

        Post;

      end ;

  end ;

  with CDSRapport do

  begin

    CreateDataSet;

    Append;

    for k := 1 to 5 do

      if TabSimulP[k].Ok

      then

      begin

        if TabSimulP[k].Profil = -1

        then // Profil de la simulation

          PProfilP := ListProfilP[FindIdxProfilP (FindNomProfilP (PSimulP.Profil))]

        else

          PProfilP := ListProfilP[FindIdxProfilP (FindNomProfilP (TabSimulP[k].Profil))] ;

        t := TabSimulP[k].Result.NbJSim;

        FieldValues[Format('_AgeDeb_%d_', [k])] := TabSimulP[k].Result.TabResult[1, 1];

        FieldValues[Format('_AgeFin_%d_', [k])] := TabSimulP[k].Result.TabResult[1, t] + 1;

        FieldValues[Format('_PoidsDeb_%d_', [k])] := TabSimulP[k].Result.TabResult[2, 1];

        FieldValues[Format('_PoidsFin_%d_', [k])] := TabSimulP[k].Result.TabResult[2, t] + TabSimulP[k].Result.TabResult[84, t];

        FieldValues[Format('_pDeb_%d_', [k])] := TabSimulP[k].Result.TabResult[49, 1];

        FieldValues[Format('_pFin_%d_', [k])] := TabSimulP[k].Result.TabResult[49, t] + TabSimulP[k].Result.TabResult[79, t] / 1000;

        FieldValues[Format('_lDeb_%d_', [k])] := TabSimulP[k].Result.TabResult[50, 1];

        FieldValues[Format('_lFin_%d_', [k])] := TabSimulP[k].Result.TabResult[50, t] + TabSimulP[k].Result.TabResult[80, t] / 1000;

        c := 0;

        for i := 1 to t do

          c := c + TabSimulP[k].Result.TabResult[113, i];

        FieldValues[Format('_Conso_%d_', [k])] := c;

        c := 0;

        for i := 1 to t do

          c := c + TabSimulP[k].Result.TabResult[11, i];

        FieldValues[Format('_Ingere_%d_', [k])] := c;

        if FatInfo = 0

        then // P2

          FieldValues[Format('_P2_%d_', [k])] := CalcP2(FieldValues[Format('_lFin_%d_', [k])])

        else // User defined

          FieldValues[Format('_P2_%d_', [k])] := CalcUserFat(CalcPVV(FieldValues[Format('_PoidsFin_%d_', [k])]), FieldValues[Format('_pFin_%d_', [k])], FieldValues[Format('_lFin_%d_', [k])]);

        if LeanInfo = 0

        then // TMP

          FieldValues[Format('_TMP_%d_', [k])] := CalcTMP(CalcPVV(FieldValues[Format('_PoidsFin_%d_', [k])]), FieldValues[Format('_pFin_%d_', [k])], FieldValues[Format('_lFin_%d_', [k])])

        else // User defined

          FieldValues[Format('_TMP_%d_', [k])] := CalcUserLean(CalcPVV(FieldValues[Format('_PoidsFin_%d_', [k])]), FieldValues[Format('_pFin_%d_', [k])], FieldValues[Format('_lFin_%d_', [k])]);

        FieldValues[Format('_RC_%d_', [k])] := CalcRC(FieldValues[Format('_PoidsFin_%d_', [k])], CalcRCStd(PProfilP.PVFin, PProfilP.Carcasse), FieldValues[Format('_PoidsFin_%d_', [k])]) * 100;

      end

      else

      begin

        FieldValues[Format('_AgeDeb_%d_', [k])] := 0;

        FieldValues[Format('_AgeFin_%d_', [k])] := 0;

        FieldValues[Format('_PoidsDeb_%d_', [k])] := 0;

        FieldValues[Format('_PoidsFin_%d_', [k])] := 0;

        FieldValues[Format('_pDeb_%d_', [k])] := 0;

        FieldValues[Format('_pFin_%d_', [k])] := 0;

        FieldValues[Format('_lDeb_%d_', [k])] := 0;

        FieldValues[Format('_lFin_%d_', [k])] := 0;

        FieldValues[Format('_Conso_%d_', [k])] := 0;

        FieldValues[Format('_Ingere_%d_', [k])] := 0;

        FieldValues[Format('_P2_%d_', [k])] := 0;

        FieldValues[Format('_TMP_%d_', [k])] := 0;

        FieldValues[Format('_RC_%d_', [k])] := 0;

      end ;

    Post;

  end ;

  if FeedInfo = 0

  then // Indice de consommation

    QREFeed_1.Expression := 'IF(CDSRapport._PoidsDeb_1_ = CDSRapport._PoidsFin_1_, 0, CDSRapport._Conso_1_ / (CDSRapport._PoidsFin_1_ - CDSRapport._PoidsDeb_1_))'

  else // Efficacit? alimentaire

    QREFeed_1.Expression := 'IF(CDSRapport._Conso_1_ = 0, 0, (CDSRapport._PoidsFin_1_ - CDSRapport._PoidsDeb_1_) / CDSRapport._Conso_1_)';

  if FeedInfo = 0

  then // Indice de consommation

    QREFeed_2.Expression := 'IF(CDSRapport._PoidsDeb_2_ = CDSRapport._PoidsFin_2_, 0, CDSRapport._Conso_2_ / (CDSRapport._PoidsFin_2_ - CDSRapport._PoidsDeb_2_))'

  else // Efficacit? alimentaire

    QREFeed_2.Expression := 'IF(CDSRapport._Conso_2_ = 0, 0, (CDSRapport._PoidsFin_2_ - CDSRapport._PoidsDeb_2_) / CDSRapport._Conso_2_)';

  if FeedInfo = 0

  then // Indice de consommation

    QREFeed_3.Expression := 'IF(CDSRapport._PoidsDeb_3_ = CDSRapport._PoidsFin_3_, 0, CDSRapport._Conso_3_ / (CDSRapport._PoidsFin_3_ - CDSRapport._PoidsDeb_3_))'

  else // Efficacit? alimentaire

    QREFeed_3.Expression := 'IF(CDSRapport._Conso_3_ = 0, 0, (CDSRapport._PoidsFin_3_ - CDSRapport._PoidsDeb_3_) / CDSRapport._Conso_3_)';

  if FeedInfo = 0

  then // Indice de consommation

    QREFeed_4.Expression := 'IF(CDSRapport._PoidsDeb_4_ = CDSRapport._PoidsFin_4_, 0, CDSRapport._Conso_4_ / (CDSRapport._PoidsFin_4_ - CDSRapport._PoidsDeb_4_))'

  else // Efficacit? alimentaire

    QREFeed_4.Expression := 'IF(CDSRapport._Conso_4_ = 0, 0, (CDSRapport._PoidsFin_4_ - CDSRapport._PoidsDeb_4_) / CDSRapport._Conso_4_)';

  if FeedInfo = 0

  then // Indice de consommation

    QREFeed_5.Expression := 'IF(CDSRapport._PoidsDeb_5_ = CDSRapport._PoidsFin_5_, 0, CDSRapport._Conso_5_ / (CDSRapport._PoidsFin_5_ - CDSRapport._PoidsDeb_5_))'

  else // Efficacit? alimentaire

    QREFeed_5.Expression := 'IF(CDSRapport._Conso_5_ = 0, 0, (CDSRapport._PoidsFin_5_ - CDSRapport._PoidsDeb_5_) / CDSRapport._Conso_5_)';

  QRLAgeDeb.Caption := Format('%s (%s)', [QRLAgeDeb.Caption, _('d')]);

  QRLAgeFin.Caption := Format('%s (%s)', [QRLAgeFin.Caption, _('d')]);

  QRLDuree.Caption := Format('%s (%s)', [QRLDuree.Caption, _('d')]);

  QRLPoidsDeb.Caption := Format('%s (%s)', [QRLPoidsDeb.Caption, _('kg')]);

  QRLPoidsFin.Caption := Format('%s (%s)', [QRLPoidsFin.Caption, _('kg')]);

  QRLGMQ.Caption := Format('%s (%s/%s)', [QRLGMQ.Caption, _('g'), _('d')]);

  QRLPD.Caption := Format('%s (%s/%s)', [QRLPD.Caption, _('g'), _('d')]);

  QRLLD.Caption := Format('%s (%s/%s)', [QRLLD.Caption, _('g'), _('d')]);

  QRLAliTot.Caption := Format('%s (%s)', [QRLAliTot.Caption, _('kg')]);

  QRLAliMoy.Caption := Format('%s (%s/%s)', [QRLAliMoy.Caption, _('g'), _('d')]);

  QRLWastage.Caption := Format('%s (%%)', [QRLWastage.Caption]);

  if FeedInfo = 0

  then // Indice de consommation

    QRLFeed.Caption := Format('%s (%s/%s)', [_('Average feed-to-gain ratio'), _('kg feed'), _('kg gain')])

  else // Efficacit? alimentaire

    QRLFeed.Caption := Format('%s (%s/%s)', [_('Average gain-to-feed ratio'), _('kg gain'), _('kg feed')]);

  if FatInfo = 0

  then // P2

    QRLP2.Caption := Format('%s (%s)', [_('Backfat thickness at slaughter'), _('mm')])

  else // User defined

    if Length(UserFatLongName) = 0

    then

      QRLP2.Caption := Format('%s (%s)', [_('User-defined backfat thickness'), _('mm')])

    else

      QRLP2.Caption := Format('%s (%s)', [UserFatLongName, _('mm')]);

  if LeanInfo = 0

  then // TMP

    QRLTMP.Caption := Format('%s (%%)', [_('Lean meat at slaughter')])

  else // User defined

    if Length(UserLeanLongName) = 0

    then

      QRLTMP.Caption := Format('%s (%%)', [_('User-defined lean meat')])

    else

      QRLTMP.Caption := Format('%s (%%)', [UserLeanLongName]);

  QRLRC.Caption := Format('%s (%%)', [QRLRC.Caption]);

  RegisterPreviewClass(TQRPrevRapInterface);

//  QRRapport.PreviewModal;

//  RegisterPreviewClass(TQRStandardPreviewInterface);

end;

end.