InraPorc

unit UFRapSensSimulP ;

interface

uses

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

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

  QuickRpt, QRPrntr, MidasLib, UVariables, gnugettext;

type

  TFRapSensSimulP = class(TForm)

    QRRapport: TQuickRep;

    PHBRapport: TQRBand;

    QRLTitre: TQRLabel;

    PFBRapport: TQRBand;

    QRLUser: TQRLabel;

    QRLWarning: TQRLabel;

    QRSDDate: TQRSysData;

    QRSEntete: TQRShape;

    CDSRapport: TClientDataSet;

    IFAgeDeb_1: TIntegerField;

    IFAgeFin_1: TIntegerField;

    FFPoidsDeb_1: TFloatField;

    FFPoidsFin_1: TFloatField;

    FFConso_1: TFloatField;

    FFIngere_1: TFloatField;

    FFTMP_1: TFloatField;

    FFP2_1: TFloatField;

    FFRC_1: TFloatField;

    IFAgeDeb_2: TIntegerField;

    IFAgeFin_2: TIntegerField;

    FFPoidsDeb_2: TFloatField;

    FFPoidsFin_2: TFloatField;

    FFConso_2: TFloatField;

    FFIngere_2: TFloatField;

    FFTMP_2: TFloatField;

    FFP2_2: TFloatField;

    FFRC_2: TFloatField;

    IFAgeDeb_3: TIntegerField;

    IFAgeFin_3: TIntegerField;

    FFPoidsDeb_3: TFloatField;

    FFPoidsFin_3: TFloatField;

    FFConso_3: TFloatField;

    FFIngere_3: TFloatField;

    FFTMP_3: TFloatField;

    FFP2_3: TFloatField;

    FFRC_3: TFloatField;

    IFAgeDeb_4: TIntegerField;

    IFAgeFin_4: TIntegerField;

    FFPoidsDeb_4: TFloatField;

    FFPoidsFin_4: TFloatField;

    FFConso_4: TFloatField;

    FFIngere_4: TFloatField;

    FFTMP_4: TFloatField;

    FFP2_4: TFloatField;

    FFRC_4: TFloatField;

    IFAgeDeb_5: TIntegerField;

    IFAgeFin_5: TIntegerField;

    FFPoidsDeb_5: TFloatField;

    FFPoidsFin_5: TFloatField;

    FFConso_5: TFloatField;

    FFIngere_5: TFloatField;

    FFTMP_5: TFloatField;

    FFP2_5: TFloatField;

    FFRC_5: TFloatField;

    CDSSimul: TClientDataSet;

    SFSimul: TStringField;

    DBRapport: TQRBand;

    QRDBTRC_5: TQRDBText;

    QRDBTP2_5: TQRDBText;

    QRDBTTMP_5: TQRDBText;

    QRDBTAliTot_5: TQRDBText;

    QRDBTAgeFin_5: TQRDBText;

    QRDBTAgeDeb_5: TQRDBText;

    QRDBTPoidsFin_5: TQRDBText;

    QRDBTPoidsDeb_5: TQRDBText;

    QREDuree_5: TQRExpr;

    QREGMQ_5: TQRExpr;

    QREAliMoy_5: TQRExpr;

    QREPD_5: TQRExpr;

    QRELD_5: TQRExpr;

    QREWastage_5: TQRExpr;

    QRDBTRC_4: TQRDBText;

    QRDBTP2_4: TQRDBText;

    QRDBTTMP_4: TQRDBText;

    QRDBTAliTot_4: TQRDBText;

    QRDBTAgeFin_4: TQRDBText;

    QRDBTAgeDeb_4: TQRDBText;

    QRDBTPoidsFin_4: TQRDBText;

    QRDBTPoidsDeb_4: TQRDBText;

    QREDuree_4: TQRExpr;

    QREGMQ_4: TQRExpr;

    QREAliMoy_4: TQRExpr;

    QREPD_4: TQRExpr;

    QRELD_4: TQRExpr;

    QREWastage_4: TQRExpr;

    QRDBTRC_3: TQRDBText;

    QRDBTP2_3: TQRDBText;

    QRDBTTMP_3: TQRDBText;

    QRDBTAliTot_3: TQRDBText;

    QRDBTAgeFin_3: TQRDBText;

    QRDBTAgeDeb_3: TQRDBText;

    QRDBTPoidsFin_3: TQRDBText;

    QRDBTPoidsDeb_3: TQRDBText;

    QREDuree_3: TQRExpr;

    QREGMQ_3: TQRExpr;

    QREAliMoy_3: TQRExpr;

    QREPD_3: TQRExpr;

    QRELD_3: TQRExpr;

    QREWastage_3: TQRExpr;

    QRDBTRC_2: TQRDBText;

    QRDBTP2_2: TQRDBText;

    QRDBTTMP_2: TQRDBText;

    QRDBTAliTot_2: TQRDBText;

    QRDBTAgeFin_2: TQRDBText;

    QRDBTAgeDeb_2: TQRDBText;

    QRDBTPoidsFin_2: TQRDBText;

    QRDBTPoidsDeb_2: TQRDBText;

    QREDuree_2: TQRExpr;

    QREGMQ_2: TQRExpr;

    QREAliMoy_2: TQRExpr;

    QREPD_2: TQRExpr;

    QRELD_2: TQRExpr;

    QREWastage_2: TQRExpr;

    QREWastage_1: TQRExpr;

    QRELD_1: TQRExpr;

    QREPD_1: TQRExpr;

    QREAliMoy_1: TQRExpr;

    QREGMQ_1: TQRExpr;

    QREDuree_1: TQRExpr;

    QRLPerf: TQRLabel;

    QRLPoidsDeb: TQRLabel;

    QRLPoidsFin: TQRLabel;

    QRDBTPoidsDeb_1: TQRDBText;

    QRDBTPoidsFin_1: TQRDBText;

    QRLAgeDeb: TQRLabel;

    QRLAgeFin: TQRLabel;

    QRDBTAgeDeb_1: TQRDBText;

    QRDBTAgeFin_1: TQRDBText;

    QRLDuree: TQRLabel;

    QRLGMQ: TQRLabel;

    QRLPD: TQRLabel;

    QRLLD: TQRLabel;

    QRLAliTot: TQRLabel;

    QRLAliMoy: TQRLabel;

    QRDBTAliTot_1: TQRDBText;

    QRLWastage: TQRLabel;

    QRLFeed: TQRLabel;

    QRLTMP: TQRLabel;

    QRDBTTMP_1: TQRDBText;

    QRLP2: TQRLabel;

    QRDBTP2_1: TQRDBText;

    QRLRC: TQRLabel;

    QRDBTRC_1: TQRDBText;

    QRLCaract: TQRLabel;

    QRLSimulNo: TQRLabel;

    QRLNo1: TQRLabel;

    QRLabel1: TQRLabel;

    QRLabel2: TQRLabel;

    QRLabel3: TQRLabel;

    QRLabel4: TQRLabel;

    QRSDRapport: TQRSubDetail;

    QRDBTProfil: TQRDBText;

    QRLProfil: TQRLabel;

    QRLSeqAli: TQRLabel;

    QRLRation: TQRLabel;

    QRDBTSeqAli: TQRDBText;

    QRDBTRation: TQRDBText;

    QRDBTSimulNo: TQRDBText;

    QRDBTVariation: TQRDBText;

    QRLVariation: TQRLabel;

    SFProfil: TStringField;

    SFSeqAli: TStringField;

    SFRation: TStringField;

    SFVariation: TStringField;

    CDSRapport_Simul_: TStringField;

    QRLSimul: TQRLabel;

    QRDBTSimul: TQRDBText;

    QRLMemo: TQRLabel;

    QRMMemo: TQRMemo;

    QRIInraPorc: TQRImage;

    QRLInraPorc: TQRLabel;

    FFpDeb_1: TFloatField;

    FFpFin_1: TFloatField;

    FFlDeb_1: TFloatField;

    FFlFin_1: TFloatField;

    FFpDeb_2: TFloatField;

    FFpFin_2: TFloatField;

    FFlDeb_2: TFloatField;

    FFlFin_2: TFloatField;

    FFpDeb_3: TFloatField;

    FFpFin_3: TFloatField;

    FFlDeb_3: TFloatField;

    FFlFin_3: TFloatField;

    FFpDeb_4: TFloatField;

    FFpFin_4: TFloatField;

    FFlDeb_4: TFloatField;

    FFlFin_4: TFloatField;

    FFpDeb_5: TFloatField;

    FFpFin_5: TFloatField;

    FFlDeb_5: TFloatField;

    FFlFin_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

  FRapSensSimulP: TFRapSensSimulP;

implementation

uses

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

{$R *.dfm}

{ TFRapSimulP }

procedure TFRapSensSimulP.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

    begin

      Append;

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

      FieldValues['_Variation_'] := Format (StrVariation, [FSimulP.CBVariable.Items[FSimulP.CBVariable.ItemIndex], TabSimulP[k].Variation * 100]);

      Post;

    end;

  end;

  with CDSRapport do

  begin

    CreateDataSet;

    Append;

    for k := 1 to 5 do

    begin

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

      PSimulP := ListSimulP[FindIdxSimulP (FSimulP.CBSensSimul.Text)];

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

      FieldValues['_Simul_'] := PSimulP.Nom;

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

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

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

      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;

    Post;

  end;

  QRMMemo.Lines.Add(FSimulP.CBSensSimul.Hint);

  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.