InraPorc

unit UFRapSimulP ;

interface

uses

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

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

  QuickRpt, QRPrntr, MidasLib, UVariables, gnugettext;

type

  TFRapSimulP = class(TForm)

    QRRapport: TQuickRep;

    PHBRapport: TQRBand;

    DBRapport: TQRBand;

    QRLTitre: TQRLabel;

    QRLCaract: TQRLabel;

    QRLPerf: TQRLabel;

    QRLSimul: TQRLabel;

    QRLProfil: TQRLabel;

    QRLSeqAli: TQRLabel;

    QRLRation: TQRLabel;

    QRLPoidsDeb: TQRLabel;

    QRLPoidsFin: TQRLabel;

    QRDBTSimul: TQRDBText;

    QRDBTProfil: TQRDBText;

    QRDBTSeqAli: TQRDBText;

    QRDBTRation: TQRDBText;

    QRDBTPoidsDeb: TQRDBText;

    QRDBTPoidsFin: TQRDBText;

    QRLAgeDeb: TQRLabel;

    QRLAgeFin: TQRLabel;

    QRDBTAgeDeb: TQRDBText;

    QRDBTAgeFin: TQRDBText;

    QRLDuree: TQRLabel;

    QRLGMQ: TQRLabel;

    QREDuree: TQRExpr;

    QREGMQ: TQRExpr;

    QRLPD: TQRLabel;

    QRLLD: TQRLabel;

    QRLAliTot: TQRLabel;

    QRLAliMoy: TQRLabel;

    QRDBTAliTot: TQRDBText;

    QREAliMoy: TQRExpr;

    QREPD: TQRExpr;

    QRELD: TQRExpr;

    QRLWastage: TQRLabel;

    QRLTMP: TQRLabel;

    QRDBTTMP: TQRDBText;

    QRLP2: TQRLabel;

    QRDBTP2: TQRDBText;

    CDSRapport: TClientDataSet;

    SFSimul: TStringField;

    SFProfil: TStringField;

    SFSeqAli: TStringField;

    SFRation: TStringField;

    IFAgeDeb: TIntegerField;

    IFAgeFin: TIntegerField;

    FFPoidsDeb: TFloatField;

    FFPoidsFin: TFloatField;

    FFpFin: TFloatField;

    FFlFin: TFloatField;

    FFConso: TFloatField;

    FFTMP: TFloatField;

    FFP2: TFloatField;

    PFBRapport: TQRBand;

    QRLUser: TQRLabel;

    QRLWarning: TQRLabel;

    QRLMemo: TQRLabel;

    QRMMemo: TQRMemo;

    QRSDDate: TQRSysData;

    QRSEntete: TQRShape;

    QRLRC: TQRLabel;

    QRDBTRC: TQRDBText;

    FFRC: TFloatField;

    QRIInraPorc: TQRImage;

    QRLInraPorc: TQRLabel;

    QRLFeed: TQRLabel;

    QREFeed: TQRExpr;

    QREWastage: TQRExpr;

    FFIngere: TFloatField;

    FFpDeb: TFloatField;

    FFlDeb: TFloatField;

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FRapSimulP: TFRapSimulP;

implementation

uses

  UStrings, UCalcul, UUtil, UFSimulP, UFPrevRap ;

{$R *.dfm}

{ TFRapSimulP }

procedure TFRapSimulP.FormCreate(Sender: TObject);

var

  i, 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;

  t := PResSimulP.NbJSim;

  with CDSRapport do

  begin

    CreateDataSet;

    Append;

    FieldValues['_Simul_'] := FSimulP.CBSimul.Text;

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

    FieldValues['_SeqAli_'] := FSimulP.CBSeqAli.Text;

    FieldValues['_Ration_'] := FSimulP.CBRation.Text;

    FieldValues['_AgeDeb_'] := PResSimulP.TabResult[1, 1];

    FieldValues['_AgeFin_'] := PResSimulP.TabResult[1, t] + 1;

    FieldValues['_PoidsDeb_'] := PResSimulP.TabResult[2, 1];

    FieldValues['_PoidsFin_'] := PResSimulP.TabResult[83, t];

    FieldValues['_pDeb_'] := PResSimulP.TabResult[49, 1];

    FieldValues['_pFin_'] := PResSimulP.TabResult[49, t] + PResSimulP.TabResult[79, t] / 1000;

    FieldValues['_lDeb_'] := PResSimulP.TabResult[50, 1];

    FieldValues['_lFin_'] := PResSimulP.TabResult[50, t] + PResSimulP.TabResult[80, t] / 1000;

    c := 0;

    for i := 1 to t do

      c := c + PResSimulP.TabResult[113, i];

    FieldValues['_Conso_'] := c;

    c := 0;

    for i := 1 to t do

      c := c + PResSimulP.TabResult[11, i];

    FieldValues['_Ingere_'] := c;

    if FatInfo = 0

    then // P2

      FieldValues['_P2_'] := CalcP2(FieldValues['_lFin_'])

    else // User defined

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

    if LeanInfo = 0

    then // TMP

      FieldValues['_TMP_'] := CalcTMP(CalcPVV(FieldValues['_PoidsFin_']), FieldValues['_pFin_'], FieldValues['_lFin_'])

    else // User defined

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

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

    Post;

  end;

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

  if FeedInfo = 0

  then // Indice de consommation

    QREFeed.Expression := 'IF(CDSRapport._PoidsDeb_ = CDSRapport._PoidsFin_, 0, CDSRapport._Conso_ / (CDSRapport._PoidsFin_ - CDSRapport._PoidsDeb_))'

  else // Efficacit? alimentaire

    QREFeed.Expression := 'IF(CDSRapport._Conso_ = 0, 0, (CDSRapport._PoidsFin_ - CDSRapport._PoidsDeb_) / CDSRapport._Conso_)';

  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.