EvaPig

unit UnitFeedDetail;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses

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

  Dialogs, gnugettext, StdCtrls, Mask, DB, DBCtrls, JvExStdCtrls, JvEdit,

  JvValidateEdit, ExtCtrls, RpBase, RpSystem, RpRender, RpRenderPDF, RpRave,

  RpDefine, RpCon, RpConDS, JvCsvData, RvClass, RvCsStd, RvCsData, ImgList,

  ComCtrls, ToolWin, ActnList, JvButton, JvCtrls, XMLIntf, XMLDoc, RpDevice;

type

  TFormFeedDetail = class(TForm)

    DBEditName: TDBEdit;

    GroupBoxProximal: TGroupBox;

    DBEditMS: TDBEdit;

    DBEditMAT: TDBEdit;

    DBEditCB: TDBEdit;

    DBEditMG: TDBEdit;

    DBEditMM: TDBEdit;

    DBEditNDF: TDBEdit;

    DBEditADF: TDBEdit;

    DBEditADL: TDBEdit;

    DBEditAmidon: TDBEdit;

    DBEditSucres: TDBEdit;

    GroupBoxAA: TGroupBox;

    GroupBoxMinerals: TGroupBox;

    DBEditCa: TDBEdit;

    DBEditP: TDBEdit;

    DBEditPd: TDBEdit;

    GroupBoxEnergyUtilization: TGroupBox;

    DBEditdEc: TDBEdit;

    DBEditdEt: TDBEdit;

    DBEditEMc_EDc: TDBEdit;

    DBEditEMt_EDt: TDBEdit;

    DBEditENc_EMc: TDBEdit;

    DBEditENt_EMt: TDBEdit;

    GroupBoxEnergy: TGroupBox;

    DBEditEBc: TDBEdit;

    DBEditEBt: TDBEdit;

    DBEditEDc: TDBEdit;

    DBEditEDt: TDBEdit;

    DBEditEMc: TDBEdit;

    DBEditEMt: TDBEdit;

    DBEditENc: TDBEdit;

    DBEditENt: TDBEdit;

    DBEditEDt_EDc: TDBEdit;

    DBEditEMt_EMc: TDBEdit;

    DBEditENt_ENc: TDBEdit;

    ValidateEditEBt_EBc: TJvValidateEdit;

    DBEditLysd_ENc: TDBEdit;

    DBEditLysd_ENt: TDBEdit;

    DBEditCa_Pd: TDBEdit;

    DBEditLys: TDBEdit;

    DBEditLysd: TDBEdit;

    DBEditTyr: TDBEdit;

    DBEditTyrd: TDBEdit;

    DBEditThr: TDBEdit;

    DBEditThrd: TDBEdit;

    DBEditPheTyr: TDBEdit;

    DBEditPheTyrd: TDBEdit;

    DBEditMet: TDBEdit;

    DBEditMetd: TDBEdit;

    DBEditHis: TDBEdit;

    DBEditHisd: TDBEdit;

    DBEditCys: TDBEdit;

    DBEditCysd: TDBEdit;

    DBEditArg: TDBEdit;

    DBEditArgd: TDBEdit;

    DBEditMetCys: TDBEdit;

    DBEditMetCysd: TDBEdit;

    DBEditAla: TDBEdit;

    DBEditAlad: TDBEdit;

    DBEditTrp: TDBEdit;

    DBEditTrpd: TDBEdit;

    DBEditAsp: TDBEdit;

    DBEditAspd: TDBEdit;

    DBEditIle: TDBEdit;

    DBEditIled: TDBEdit;

    DBEditGlu: TDBEdit;

    DBEditGlud: TDBEdit;

    DBEditVal: TDBEdit;

    DBEditVald: TDBEdit;

    DBEditGly: TDBEdit;

    DBEditGlyd: TDBEdit;

    DBEditLeu: TDBEdit;

    DBEditLeud: TDBEdit;

    DBEditSer: TDBEdit;

    DBEditSerd: TDBEdit;

    DBEditPhe: TDBEdit;

    DBEditPhed: TDBEdit;

    DBEditPro: TDBEdit;

    DBEditProd: TDBEdit;

    DBEditTyrd_Lysd: TDBEdit;

    DBEditPheTyrd_Lysd: TDBEdit;

    DBEditMetd_Lysd: TDBEdit;

    DBEditHisd_Lysd: TDBEdit;

    DBEditCysd_Lysd: TDBEdit;

    DBEditArgd_Lysd: TDBEdit;

    DBEditMetCysd_Lysd: TDBEdit;

    DBEditAlad_Lysd: TDBEdit;

    DBEditTrpd_Lysd: TDBEdit;

    DBEditAspd_Lysd: TDBEdit;

    DBEditIled_Lysd: TDBEdit;

    DBEditGlud_Lysd: TDBEdit;

    DBEditVald_Lysd: TDBEdit;

    DBEditGlyd_Lysd: TDBEdit;

    DBEditLeud_Lysd: TDBEdit;

    DBEditSerd_Lysd: TDBEdit;

    DBEditPhed_Lysd: TDBEdit;

    DBEditProd_Lysd: TDBEdit;

    ValidateEditLysd_Lysd: TJvValidateEdit;

    DBEditPd_ENc: TDBEdit;

    DBEditPd_ENt: TDBEdit;

    DBEditBonusC: TDBEdit;

    GroupBoxAzote: TGroupBox;

    DBEditdNc: TDBEdit;

    DBEditdNt: TDBEdit;

    DBEditBonusT: TDBEdit;

    DBMemoDescription: TDBMemo;

    SaveDialogExport: TSaveDialog;

    RvDataSetConnectionComposition: TRvDataSetConnection;

    RvDataSetConnectionFeeds: TRvDataSetConnection;

    RvProjectReport: TRvProject;

    RvSystemReport: TRvSystem;

    PanelMain: TPanel;

    PanelButtons: TPanel;

    ImageListIcons: TImageList;

    ActionListButtons: TActionList;

    ActionModify: TAction;

    ActionDelete: TAction;

    ActionPrint: TAction;

    ActionXML: TAction;

    ActionHelp: TAction;

    ActionClose: TAction;

    ActionGraphs: TAction;

    LabelDescription: TLabel;

    LabelMS: TLabel;

    LabelName: TLabel;

    LabelPresentation: TLabel;

    LabelAADig: TLabel;

    LabelAATot: TLabel;

    LabelIdealProtein: TLabel;

    LabelLys: TLabel;

    LabelTyr: TLabel;

    LabelThr: TLabel;

    LabelPheTyr: TLabel;

    LabelMet: TLabel;

    LabelHis: TLabel;

    LabelCys: TLabel;

    LabelArg: TLabel;

    LabelMetCys: TLabel;

    LabelAla: TLabel;

    LabelTrp: TLabel;

    LabelAsp: TLabel;

    LabelIle: TLabel;

    LabelGlu: TLabel;

    LabelVal: TLabel;

    LabelGly: TLabel;

    LabelLeu: TLabel;

    LabelSer: TLabel;

    LabelPhe: TLabel;

    LabelPro: TLabel;

    LabelCrois4: TLabel;

    LabelTruie4: TLabel;

    LabeldN: TLabel;

    LabelEB: TLabel;

    LabelED: TLabel;

    LabelEM: TLabel;

    LabelEN: TLabel;

    LabelCrois1: TLabel;

    LabelTruie1: TLabel;

    LabelRatio: TLabel;

    LabeldE: TLabel;

    LabelEM_ED: TLabel;

    LabelEN_EM: TLabel;

    LabelCrois2: TLabel;

    LabelTruie2: TLabel;

    LabelLysd_EN: TLabel;

    LabelBonus: TLabel;

    LabelCa: TLabel;

    LabelP: TLabel;

    LabelPd: TLabel;

    LabelCa_Pd: TLabel;

    LabelPd_EN: TLabel;

    LabelMAT: TLabel;

    LabelCB: TLabel;

    LabelMG: TLabel;

    LabelMM: TLabel;

    LabelNDF: TLabel;

    LabelADF: TLabel;

    LabelADL: TLabel;

    LabelAmidon: TLabel;

    LabelSucres: TLabel;

    EditPresentation: TEdit;

    JvImgBtnClose: TJvImgBtn;

    JvImgBtnHelp: TJvImgBtn;

    JvImgBtnXML: TJvImgBtn;

    JvImgBtnPrint: TJvImgBtn;

    JvImgBtnDelete: TJvImgBtn;

    JvImgBtnModify: TJvImgBtn;

    JvImgBtnGraphs: TJvImgBtn;

    PanelHead: TPanel;

    LabelNa: TLabel;

    LabelK: TLabel;

    LabelCl: TLabel;

    LabelBE: TLabel;

    DBEditNa: TDBEdit;

    DBEditK: TDBEdit;

    DBEditCl: TDBEdit;

    DBEditBE: TDBEdit;

    procedure FormCreate(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure ActionModifyExecute(Sender: TObject);

    procedure ActionDeleteExecute(Sender: TObject);

    procedure ActionGraphsExecute(Sender: TObject);

    procedure ActionPrintExecute(Sender: TObject);

    procedure ActionXMLExecute(Sender: TObject);

    procedure ActionHelpExecute(Sender: TObject);

    procedure ActionCloseExecute(Sender: TObject);

  private

    { D?clarations priv?es }

    procedure BuildReport;

    procedure EditEmpty(Edit: TJvValidateEdit);

  public

    { D?clarations publiques }

  end;

var

  FormFeedDetail: TFormFeedDetail;

implementation

uses

  UnitDeclaration, UnitOptions, UnitFeedEdition, UnitFeedCharts;

{$R *.dfm}

procedure TFormFeedDetail.ActionCloseExecute(Sender: TObject);

begin

  ModalResult := mrClose;

end;

procedure TFormFeedDetail.ActionXMLExecute(Sender: TObject);

var

  i: Integer;

  USFormatSettings: TFormatSettings;

  XMLDoc: IXMLDocument;

  Workbook, Worksheet, Table, Row: IXMLNode;

  procedure CellData(Row: IXMLNode; Value, Format: string);

  var

    Cell, Data: IXMLNode;

  begin

    Cell := Row.AddChild('Cell');

    Data := Cell.AddChild('Data');

    Data.Attributes['ss:Type'] := Format;

    Data.Text := Value;

  end;

begin

  if SaveDialogExport.Execute

  then

  begin

    GetLocaleFormatSettings(1033, USFormatSettings);

    XMLDoc := TXMLDocument.Create(nil);

    try

      XMLDoc.XML.Clear;

      XMLDoc.XML.Add('<?xml version="1.0" encoding="UTF-8" ?>');

      XMLDoc.XML.Add('<?mso-application progid="Excel.Sheet"?>');

      XMLDoc.XML.Add('<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet">');

      XMLDoc.XML.Add('</Workbook>');

      XMLDoc.Active := True;

      Workbook := XMLDoc.DocumentElement;

      Workbook.DeclareNamespace('o', 'urn:schemas-microsoft-com:office:office');

      Workbook.DeclareNamespace('x', 'urn:schemas-microsoft-com:office:excel');

      Workbook.DeclareNamespace('ss', 'urn:schemas-microsoft-com:office:spreadsheet');

      Workbook.DeclareNamespace('html', 'http://www.w3.org/TR/REC-html40');

      Worksheet := Workbook.AddChild('Worksheet');

      Worksheet.SetAttributeNS('ss:Name', Workbook.FindNamespaceURI('ss'), Caption);

      Table := Worksheet.AddChild('Table');

      // Titre

      Row := Table.AddChild('Row');

      CellData(Row, _('Label'), 'String');

      CellData(Row, _('Value'), 'String');

      CellData(Row, _('Unit'), 'String');

      // Donn?es

      with DataModuleDeclaration do

        for i := 0 to ClientDataSetFeeds.FieldCount - 1 do

          if not (i in [0, 2, 7, 106..108, 110..113])

          then // Champs export?s

          begin

            Row := Table.AddChild('Row');

            // Label

            CellData(Row, _(ClientDataSetFeeds.Fields[i].DisplayLabel), 'String');

            // Value

            case i of

              1:

                CellData(Row, ClientDataSetFeeds.Fields[i].AsWideString, 'String');

              3: // Pr?sentation

                if ClientDataSetFeedsPresentation.Value = 0

                then

                  CellData(Row, _('Mash'), 'String')

                else

                  CellData(Row, _('Pellet'), 'String');

              6, 8..16:

                if not ClientDataSetFeeds.Fields[i].IsNull

                then

                  CellData(Row, FloatToStrF(ClientDataSetFeeds.Fields[i].AsFloat, ffFixed, 15, FormOptions.ProximalDecimals, USFormatSettings), 'Number')

                else

                  CellData(Row, '', 'String');

              17, 19, 21, 23, 25, 27, 29:

                if not ClientDataSetFeeds.Fields[i].IsNull

                then

                  CellData(Row, FloatToStrF(ClientDataSetFeeds.Fields[i].AsFloat, ffFixed, 15, FormOptions.EnergyDecimals, USFormatSettings), 'Number')

                else

                  CellData(Row, '', 'String');

              4, 5, 18, 20, 22, 24, 26, 28, 30..34, 103:

                if not ClientDataSetFeeds.Fields[i].IsNull

                then

                  CellData(Row, FloatToStrF(ClientDataSetFeeds.Fields[i].AsFloat, ffFixed, 15, 1, USFormatSettings), 'Number')

                else

                  CellData(Row, '', 'String');

              35..54, 55..74:

                if not ClientDataSetFeeds.Fields[i].IsNull

                then

                  CellData(Row, FloatToStrF(ClientDataSetFeeds.Fields[i].AsFloat, ffFixed, 15, FormOptions.AADecimals, USFormatSettings), 'Number')

                else

                  CellData(Row, '', 'String');

              75..76, 104..105:

                if not ClientDataSetFeeds.Fields[i].IsNull

                then

                  CellData(Row, FloatToStrF(ClientDataSetFeeds.Fields[i].AsFloat, ffFixed, 15, 2, USFormatSettings), 'Number')

                else

                  CellData(Row, '', 'String');

              77..95, 109:

                if not ClientDataSetFeeds.Fields[i].IsNull

                then

                  CellData(Row, FloatToStrF(ClientDataSetFeeds.Fields[i].AsFloat, ffFixed, 15, 0, USFormatSettings), 'Number')

                else

                  CellData(Row, '', 'String');

              96..100, 102:

                if not ClientDataSetFeeds.Fields[i].IsNull

                then

                  CellData(Row, FloatToStrF(ClientDataSetFeeds.Fields[i].AsFloat, ffFixed, 15, FormOptions.MineralsDecimals, USFormatSettings), 'Number')

                else

                  CellData(Row, '', 'String');

              101:

                if not ClientDataSetIngredients.Fields[i].IsNull

                then

                  CellData(Row, FloatToStrF(ClientDataSetIngredients.Fields[i].AsFloat, ffFixed, 15, 2, USFormatSettings), 'Number')

                else

                  CellData(Row, '', 'String');

            end;

            // Unit

            case i of

              6: // MS

                CellData(Row, FormOptions.ComboBoxProximal.Items[FormOptions.Proximal], 'String');

              8..16: // Analyse proximale

                if FormOptions.Expression = 0

                then // sur frais

                  CellData(Row, FormOptions.ComboBoxProximal.Items[FormOptions.Proximal], 'String')

                else // sur mati?re s?che

                  CellData(Row, Format('%s %s', [FormOptions.ComboBoxProximal.Items[FormOptions.Proximal], _('DM')]), 'String');

              17, 19, 21, 23, 25, 27, 29: // Energie

                if FormOptions.Expression = 0

                then // sur frais

                  CellData(Row, FormOptions.ComboBoxEnergy.Items[FormOptions.Energy], 'String')

                else // sur mati?re s?che

                  CellData(Row, Format('%s %s', [FormOptions.ComboBoxEnergy.Items[FormOptions.Energy], _('DM')]), 'String');

              4..5, 18, 20, 22, 24, 26, 28, 30..34, 77..95, 103: // %

                CellData(Row, '%', 'String');

              35..54, 55..74: // AA

                if FormOptions.Expression = 0

                then // sur frais

                  CellData(Row, FormOptions.ComboBoxAA.Items[FormOptions.AA], 'String')

                else // sur mati?re s?che

                  CellData(Row, Format('%s %s', [FormOptions.ComboBoxAA.Items[FormOptions.AA], _('DM')]), 'String');

              75..76, 104..105: // Lysd/EN ou Pd/EN

                if FormOptions.Energy = 0

                then // MJ

                  CellData(Row, _('g/MJ'), 'String')

                else // kcal

                  CellData(Row, _('g/1000kcal'), 'String');

              96..100, 102: // Min?raux

                if FormOptions.Expression = 0

                then // sur frais

                  CellData(Row, FormOptions.ComboBoxMinerals.Items[FormOptions.Minerals], 'String')

                else // sur mati?re s?che

                  CellData(Row, Format('%s %s', [FormOptions.ComboBoxMinerals.Items[FormOptions.Minerals], _('DM')]), 'String');

              101: // %

                if FormOptions.Expression = 0

                then // sur frais

                  CellData(Row, _('mEq/kg'), 'String')

                else // sur mati?re s?che

                  CellData(Row, Format('%s %s', [_('mEq/kg'), _('DM')]), 'String');

              109:

                CellData(Row, _('IU/kg'), 'String');

            end;

          end;

      Worksheet := Workbook.AddChild('Worksheet');

      Worksheet.SetAttributeNS('ss:Name', Workbook.FindNamespaceURI('ss'), _('Ingredients'));

      Table := Worksheet.AddChild('Table');

      with DataModuleDeclaration do

      begin

        // Titres

        Row := Table.AddChild('Row');

        CellData(Row, _('Diet'), 'String');

        CellData(Row, ClientDataSetFeedsName.Value, 'String');

        Row := Table.AddChild('Row');

        Row := Table.AddChild('Row');

        CellData(Row, _('Ingredient'), 'String');

        CellData(Row, _('Dry matter'), 'String');

        CellData(Row, _('Incorporation level'), 'String');

        Row := Table.AddChild('Row');

        CellData(Row, '', 'String');

        CellData(Row, FormOptions.ComboBoxProximal.Items[FormOptions.Proximal], 'String');

        CellData(Row, FormOptions.ComboBoxIncorporation.Items[FormOptions.Incorporation], 'String');

        // Donn?es

        ClientDataSetComposition.Filter := Format('Feed = %d', [ClientDataSetFeedsId.Value]);

        ClientDataSetComposition.Filtered := True;

        ClientDataSetComposition.First;

        while not ClientDataSetComposition.Eof do

        begin

          Row := Table.AddChild('Row');

          CellData(Row, ClientDataSetCompositionIngredientName.Value, 'String');

          CellData(Row, FloatToStrF(ClientDataSetCompositionMS.AsFloat, ffFixed, 15, FormOptions.ProximalDecimals, USFormatSettings), 'Number');

          CellData(Row, FloatToStrF(ClientDataSetCompositionLevel.AsFloat, ffFixed, 15, FormOptions.IncorporationDecimals, USFormatSettings), 'Number');

          ClientDataSetComposition.Next;

        end;

        ClientDataSetComposition.Filtered := False;

        ClientDataSetComposition.Filter := '';

        if not ClientDataSetFeedsPhytaseId.IsNull

        then // Phytase

        begin

          Row := Table.AddChild('Row');

          CellData(Row, Format('%s %1.2f', [_('Phytase'), ClientDataSetFeedsPhytaseType.Value]), 'String');

          CellData(Row, '', 'String');

          CellData(Row, FloatToStrF(ClientDataSetFeedsPhytaseLevel.AsFloat, ffFixed, 15, FormOptions.IncorporationDecimals, USFormatSettings), 'Number');

        end;

      end;

      XMLDoc.SaveToFile(SaveDialogExport.FileName);

      XmlDoc.Active := False;

    finally

      XMLDoc := nil;

    end;

  end;

end;

procedure TFormFeedDetail.ActionDeleteExecute(Sender: TObject);

var

  FeedName: String;

begin

  with DataModuleDeclaration do

    if MessageDlg(_('Are sure you want to delete this record?') + sLineBreak + _('This action could not be canceled.'), mtConfirmation, [mbYes, mbNo], 0) = mrYes

    then

    begin

      ClientDataSetFeeds.DisableControls;

      try

        FeedName := ClientDataSetFeedsName.Value;

        // Supprimer la composition du r?gime

        DBUser.BeginTransaction;

        try

          DBUser.ExecSQL('DELETE FROM Composition '

            + Format('WHERE Feed = %d', [ClientDataSetFeedsId.Value]));

          DBUser.Commit;

        except

          DBUser.RollBack;

          MessageDlg(Format(_('Unknown error: %s %s %s'), ['UnitFeedDetail', 'ActionDeleteExecute', 'DBUser (DELETE FROM Composition)']), mtError, [mbOK], 0);

          Exit;

        end;

        // Suprimer de ClientDataSetComposition

        ClientDataSetComposition.Filter := Format('Feed = %d', [ClientDataSetFeedsId.Value]);

        ClientDataSetComposition.Filtered := True;

        ClientDataSetComposition.First;

        while not ClientDataSetComposition.Eof do

          ClientDataSetComposition.Delete;

        ClientDataSetComposition.Filtered := False;

        ClientDataSetComposition.Filter := '';

        // Suprimer l'aliment

        DBUser.BeginTransaction;

        try

          DBUser.ExecSQL('DELETE FROM Feeds '

            + Format('WHERE Id = %d', [ClientDataSetFeedsId.Value]));

          DBUser.Commit;

        except

          DBUser.RollBack;

          MessageDlg(Format(_('Unknown error: %s %s %s'), ['UnitFeedDetail', 'ActionDeleteExecute', 'DBUser (DELETE FROM Feeds)']), mtError, [mbOK], 0);

          Exit;

        end;

        // Suprimer de ClientDataSetFeeds

        ClientDataSetFeeds.Delete;

        // Suprimer le nom de la liste des r?gimes

        FeedList.Delete(FeedList.IndexOf(FeedName));

        // Fermer la fen?tre

        Close;

      finally

        ClientDataSetFeeds.EnableControls;

      end;

    end;

end;

procedure TFormFeedDetail.ActionGraphsExecute(Sender: TObject);

begin

  FormFeedCharts := TFormFeedCharts.Create(nil);

  try

    FormFeedCharts.ShowModal;

  finally

    FormFeedCharts.Release;

  end;

end;

procedure TFormFeedDetail.ActionHelpExecute(Sender: TObject);

begin

  Application.HelpContext(HelpContext);

end;

procedure TFormFeedDetail.ActionModifyExecute(Sender: TObject);

begin

  FormFeedEdition := TFormFeedEdition.Create(nil);

  try

    FormFeedEdition.ShowModal;

  finally

    FormFeedEdition.Release;

  end;

//  with DataModuleDeclaration do

//    Hint := ClientDataSetFeedsDescription.Value;

end;

procedure TFormFeedDetail.ActionPrintExecute(Sender: TObject);

begin

  if RpDev.PrinterSetupDialog

  then

  begin

    RvSystemReport.DoNativeOutput := false;

    RvSystemReport.DefaultDest := rdPrinter;

    RvSystemReport.RenderObject := nil;

    RvSystemReport.OutputFileName := '';

    RvProjectReport.Open;

    BuildReport;

    RvProjectReport.Execute;

    RvProjectReport.Close;

    with DataModuleDeclaration do

    begin

      ClientDataSetComposition.Filtered := False;

      ClientDataSetComposition.Filter := '';

    end;

  end;

end;

procedure TFormFeedDetail.BuildReport;

var

  i: Integer;

  Page: TRavePage;

begin

  with DataModuleDeclaration do

  begin

    if ClientDataSetFeeds.Eof

    then // Bug : seconde page blanche

      if ClientDataSetIngredients.RecordCount > 1

      then

      begin

        ClientDataSetIngredients.Prior;

        ClientDataSetIngredients.Next;

      end

      else

        ClientDataSetIngredients.First;

    ClientDataSetComposition.Filter := Format('Feed = %d', [ClientDataSetFeedsId.Value]);

    ClientDataSetComposition.Filtered := True;

    // Taux d'incorporation total

    ClientDataSetFeeds.Edit;

    if ClientDataSetComposition.Aggregates[0].Value = Null

    then

      ClientDataSetFeedsLevelSum.Clear

    else

      ClientDataSetFeedsLevelSum.Value := ClientDataSetComposition.Aggregates[0].Value;

    ClientDataSetFeeds.Post;

  end;

  Page := RvProjectReport.ProjMan.FindRaveComponent('ReportFeed.PageFeed1', nil) as TRavePage;

  for i := 0 to Page.ComponentCount - 1 do

  begin

    if Page.Components[i].ClassNameIs('TRaveText')

    then // Traduire

    begin

      if (Page.Components[i] as TRaveText).Name = 'TextPresentation2'

      then

        if DataModuleDeclaration.ClientDataSetFeedsPresentation.Value = 0

        then

          (Page.Components[i] as TRaveText).Text := 'Mash'

        else

          (Page.Components[i] as TRaveText).Text := 'Pellet';

      if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1

      then

        (Page.Components[i] as TRaveText).Font.Name := 'Arial Unicode MS';

      TranslateComponent(Page.Components[i]);

      if (Page.Components[i] as TRaveText).Name = 'TextMS'

      then

        with FormOptions do

          (Page.Components[i] as TRaveText).Text := Format('%s (%s)', [(Page.Components[i] as TRaveText).Text, ComboBoxProximal.Items[Proximal]]);

      if (Page.Components[i] as TRaveText).Name = 'TextUnitProximal'

      then

        with FormOptions do

          if Expression = 0

          then // sur frais

            (Page.Components[i] as TRaveText).Text := Format('(%s)', [ComboBoxProximal.Items[Proximal]])

          else // sur mati?re s?che

            (Page.Components[i] as TRaveText).Text := Format('(%s %s)', [ComboBoxProximal.Items[Proximal], _('DM')]);

      if (Page.Components[i] as TRaveText).Name = 'TextUnitEnergyC'

      then

        with FormOptions do

          if Expression = 0

          then // sur frais

            (Page.Components[i] as TRaveText).Text := Format('(%s)', [ComboBoxEnergy.Items[Energy]])

          else // sur mati?re s?che

            (Page.Components[i] as TRaveText).Text := Format('(%s %s)', [ComboBoxEnergy.Items[Energy], _('DM')]);

      if (Page.Components[i] as TRaveText).Name = 'TextUnitEnergyT'

      then

        with FormOptions do

          if Expression = 0

          then // sur frais

            (Page.Components[i] as TRaveText).Text := Format('(%s)', [ComboBoxEnergy.Items[Energy]])

          else // sur mati?re s?che

            (Page.Components[i] as TRaveText).Text := Format('(%s %s)', [ComboBoxEnergy.Items[Energy], _('DM')]);

      if (Page.Components[i] as TRaveText).Name = 'TextUnitEnergyRatio'

      then

        (Page.Components[i] as TRaveText).Text := '(%)';

      if (Page.Components[i] as TRaveText).Name = 'TextEBt_EBc'

      then

        (Page.Components[i] as TRaveText).Text := ValidateEditEBt_EBc.Text;

      if (Page.Components[i] as TRaveText).Name = 'TextBonus'

      then

        (Page.Components[i] as TRaveText).Text := Format('%s (%%)', [(Page.Components[i] as TRaveText).Text]);

      if (Page.Components[i] as TRaveText).Name = 'TextdE'

      then

        (Page.Components[i] as TRaveText).Text := Format('%s (%%)', [(Page.Components[i] as TRaveText).Text]);

      if (Page.Components[i] as TRaveText).Name = 'TextEM_ED'

      then

        (Page.Components[i] as TRaveText).Text := Format('%s (%%)', [(Page.Components[i] as TRaveText).Text]);

      if (Page.Components[i] as TRaveText).Name = 'TextEN_EM'

      then

        (Page.Components[i] as TRaveText).Text := Format('%s (%%)', [(Page.Components[i] as TRaveText).Text]);

    end;

    if Page.Components[i].ClassNameIs('TRaveDataMemo') and (Screen.Fonts.IndexOf('Arial Unicode MS') <> -1)

    then

      (Page.Components[i] as TRaveDataMemo).Font.Name := 'Arial Unicode MS';

    if Page.Components[i].ClassNameIs('TRaveDataText') and (Screen.Fonts.IndexOf('Arial Unicode MS') <> -1)

    then

      (Page.Components[i] as TRaveDataText).Font.Name := 'Arial Unicode MS';

  end;

  Page := RvProjectReport.ProjMan.FindRaveComponent('ReportFeed.PageFeed2', nil) as TRavePage;

  for i := 0 to Page.ComponentCount - 1 do

  begin

    if Page.Components[i].ClassNameIs('TRaveText')

    then // Traduire

    begin

      if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1

      then

        (Page.Components[i] as TRaveText).Font.Name := 'Arial Unicode MS';

      TranslateComponent(Page.Components[i]);

      if (Page.Components[i] as TRaveText).Name = 'TextdN'

      then

        (Page.Components[i] as TRaveText).Text := Format('%s (%%)', [(Page.Components[i] as TRaveText).Text]);

      if (Page.Components[i] as TRaveText).Name = 'TextUnitAATot'

      then

        with FormOptions do

          if Expression = 0

          then // sur frais

            (Page.Components[i] as TRaveText).Text := Format('(%s)', [ComboBoxAA.Items[AA]])

          else // sur mati?re s?che

            (Page.Components[i] as TRaveText).Text := Format('(%s %s)', [ComboBoxAA.Items[AA], _('DM')]);

      if (Page.Components[i] as TRaveText).Name = 'TextUnitAADig'

      then

        with FormOptions do

          if Expression = 0

          then // sur frais

            (Page.Components[i] as TRaveText).Text := Format('(%s)', [ComboBoxAA.Items[AA]])

          else // sur mati?re s?che

            (Page.Components[i] as TRaveText).Text := Format('(%s %s)', [ComboBoxAA.Items[AA], _('DM')]);

      if (Page.Components[i] as TRaveText).Name = 'TextUnitAAProtId'

      then

        (Page.Components[i] as TRaveText).Text := '(%)';

      if (Page.Components[i] as TRaveText).Name = 'TextLysd_Lysd'

      then

        (Page.Components[i] as TRaveText).Text := ValidateEditLysd_Lysd.Text;

      if (Page.Components[i] as TRaveText).Name = 'TextUnitLysd_EN'

      then

        if FormOptions.Energy = 0

        then // MJ

          (Page.Components[i] as TRaveText).Text := Format('%s (%s)', [(Page.Components[i] as TRaveText).Text, _('g/MJ')])

        else // kcal

          (Page.Components[i] as TRaveText).Text := Format('%s (%s)', [(Page.Components[i] as TRaveText).Text, _('g/1000kcal')]);

      if (Page.Components[i] as TRaveText).Name = 'TextUnitMinerals'

      then

        with FormOptions do

          if Expression = 0

          then // sur frais

            (Page.Components[i] as TRaveText).Text := Format('(%s)', [ComboBoxMinerals.Items[Minerals]])

          else // sur mati?re s?che

            (Page.Components[i] as TRaveText).Text := Format('(%s %s)', [ComboBoxMinerals.Items[Minerals], _('DM')]);

      if (Page.Components[i] as TRaveText).Name = 'TextUnitPd_EN'

      then

        if FormOptions.Energy = 0

        then // MJ

          (Page.Components[i] as TRaveText).Text := Format('%s (%s)', [(Page.Components[i] as TRaveText).Text, _('g/MJ')])

        else // kcal

          (Page.Components[i] as TRaveText).Text := Format('%s (%s)', [(Page.Components[i] as TRaveText).Text, _('g/1000kcal')]);

    end;

    if Page.Components[i].ClassNameIs('TRaveDataText') and (Screen.Fonts.IndexOf('Arial Unicode MS') <> -1)

    then

      (Page.Components[i] as TRaveDataText).Font.Name := 'Arial Unicode MS';

  end;

  Page := RvProjectReport.ProjMan.FindRaveComponent('ReportFeed.PageComposition', nil) as TRavePage;

  for i := 0 to Page.ComponentCount - 1 do

  begin

    if Page.Components[i].ClassNameIs('TRaveText')

    then // Traduire

    begin

      if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1

      then

        (Page.Components[i] as TRaveText).Font.Name := 'Arial Unicode MS';

      TranslateComponent(Page.Components[i]);

      if (Page.Components[i] as TRaveText).Name = 'TextMSUnit'

      then

        with FormOptions do

          (Page.Components[i] as TRaveText).Text := Format('(%s)', [ComboBoxProximal.Items[Proximal]]);

      if (Page.Components[i] as TRaveText).Name = 'TextLevelUnit'

      then

        with FormOptions do

          (Page.Components[i] as TRaveText).Text := Format('(%s)', [ComboBoxIncorporation.Items[Incorporation]]);

      if (Page.Components[i] as TRaveText).Name = 'TextPhytase'

      then

        with DataModuleDeclaration do

          if ClientDataSetFeedsPhytaseId.IsNull

          then

            (Page.Components[i] as TRaveText).Text := ''

          else

            (Page.Components[i] as TRaveText).Text := Format('%s %1.2f', [(Page.Components[i] as TRaveText).Text, ClientDataSetFeedsPhytaseType.Value]);

    end;

    if Page.Components[i].ClassNameIs('TRaveDataText') and (Screen.Fonts.IndexOf('Arial Unicode MS') <> -1)

    then

      (Page.Components[i] as TRaveDataText).Font.Name := 'Arial Unicode MS';

  end;

end;

procedure TFormFeedDetail.EditEmpty(Edit: TJvValidateEdit);

begin

  Edit.DisplayFormat := dfNone;

  Edit.Value := '';

end;

procedure TFormFeedDetail.FormCreate(Sender: TObject);

var

  ProximalUnit, EnergyUnit, AAUnit, MineralsUnit: String;

begin

  if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1

  then

    Font.Name := 'Arial Unicode MS';

//  PanelButtons.Font.Size := PanelButtons.Font.Size + 2;

  PanelButtons.Font.Style := [fsBold];

  LabelName.Font.Style := [fsBold];

  DBEditName.Font.Style := [fsBold];

  TranslateComponent(Self);

  with FormOptions do

    if Expression = 0

    then // sur frais

    begin

      ProximalUnit := ComboBoxProximal.Items[Proximal];

      EnergyUnit := ComboBoxEnergy.Items[Energy];

      AAUnit := ComboBoxAA.Items[AA];

      MineralsUnit := ComboBoxMinerals.Items[Minerals];

    end

    else // sur mati?re s?che

    begin

      ProximalUnit := Format('%s %s', [ComboBoxProximal.Items[Proximal], _('DM')]);

      EnergyUnit := Format('%s %s', [ComboBoxEnergy.Items[Energy], _('DM')]);

      AAUnit := Format('%s %s', [ComboBoxAA.Items[AA], _('DM')]);

      MineralsUnit := Format('%s %s', [ComboBoxMinerals.Items[Minerals], _('DM')]);

    end;

  with FormOptions do

    LabelMS.Caption := Format('%s (%s)', [LabelMS.Caption, ComboBoxProximal.Items[Proximal]]);

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

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

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

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

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

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

  if FormOptions.Expression = 0

  then // sur frais

    LabelBE.Caption := Format('%s (%s)', [LabelBE.Caption, _('mEq/kg')])

  else // sur mati?re s?che

    LabelBE.Caption := Format('%s (%s %s)', [LabelBE.Caption, _('mEq/kg'), _('DM')]);

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

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

  if FormOptions.Energy = 0

  then // MJ

    LabelLysd_EN.Caption := Format('%s (%s)', [LabelLysd_EN.Caption, _('g/MJ')])

  else // kcal

    LabelLysd_EN.Caption := Format('%s (%s)', [LabelLysd_EN.Caption, _('g/1000kcal')]);

  if FormOptions.Energy = 0

  then // MJ

    LabelPd_EN.Caption := Format('%s (%s)', [LabelPd_EN.Caption, _('g/MJ')])

  else // kcal

    LabelPd_EN.Caption := Format('%s (%s)', [LabelPd_EN.Caption, _('g/1000kcal')]);

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

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

end;

procedure TFormFeedDetail.FormShow(Sender: TObject);

begin

  with DataModuleDeclaration do

  begin

    if ClientDataSetFeedsPresentation.Value = 0

    then

      EditPresentation.Text := _('Mash')

    else

      EditPresentation.Text := _('Pellet');

    if ClientDataSetFeedsEB.IsNull

    then

      EditEmpty(ValidateEditEBt_EBc)

    else

      ValidateEditEBt_EBc.Value := 100;

    if ClientDataSetFeedsLysd.IsNull

    then

      EditEmpty(ValidateEditLysd_Lysd)

    else

      ValidateEditLysd_Lysd.Value := 100;

  end;

end;

end.