EvaPig

unit UnitDeclaration;

interface

uses

  SysUtils, Classes, DB, DBTables, DbClient, SQLiteTable3, Forms, Windows,

  Dialogs, Variants, Math, MidasLib, LbClass, LbCipher, gnugettext;

const

  CALORIE = 4.184; // Conversion J -> cal

  NDF_CB = 3.0;

  NDF_ADF = 2.5;

  MAX_SUM = 1.15; // 115%

  CoefMAT = 14.73 * 100 * CALORIE / 1000;

  CoefMG = 52.4 * 100 * CALORIE / 1000;

  CoefMM = -44.6 * 100 * CALORIE / 1000;

  dLys = 0.770;

  dThr = 0.760;

  dMet = 0.846;

  dCys = 0.733;

  dMetCys = 0.788;

  dTrp = 0.772;

  dIle = 0.807;

  dVal = 0.777;

  dLeu = 0.833;

  dPhe = 0.842;

  dTyr = 0.855;

  dPheTyr = 0.847;

  dHis = 0.841;

  dArg = 0.887;

  dAla = 0.773;

  dAsp = 0.791;

  dGlu = 0.861;

  dGly = 0.718;

  dSer = 0.807;

  dPro = 0.787;

type

  TDataModuleDeclaration = class(TDataModule)

    ClientDataSetClasses: TClientDataSet;

    ClientDataSetClassesId: TIntegerField;

    ClientDataSetClassesName: TWideStringField;

    ClientDataSetInraAfz: TClientDataSet;

    ClientDataSetInraAfzId: TAutoIncField;

    ClientDataSetInraAfzName: TStringField;

    ClientDataSetInraAfzComment: TStringField;

    ClientDataSetInraAfzSource: TStringField;

    ClientDataSetInraAfzClass: TIntegerField;

    ClientDataSetInraAfzMS: TFloatField;

    ClientDataSetInraAfzMM: TFloatField;

    ClientDataSetInraAfzMAT: TFloatField;

    ClientDataSetInraAfzMG: TFloatField;

    ClientDataSetInraAfzCB: TFloatField;

    ClientDataSetInraAfzCoefCB: TFloatField;

    ClientDataSetInraAfzNDF: TFloatField;

    ClientDataSetInraAfzCoefNDF: TFloatField;

    ClientDataSetInraAfzADF: TFloatField;

    ClientDataSetInraAfzCoefADF: TFloatField;

    ClientDataSetInraAfzADL: TFloatField;

    ClientDataSetInraAfzAmidon: TFloatField;

    ClientDataSetInraAfzSucres: TFloatField;

    ClientDataSetInraAfzEB: TFloatField;

    ClientDataSetInraAfzdEc: TFloatField;

    ClientDataSetInraAfzEMc_EDc: TFloatField;

    ClientDataSetInraAfzENc_EMc: TFloatField;

    ClientDataSetInraAfzEMt_EDt: TFloatField;

    ClientDataSetInraAfzENt_EMt: TFloatField;

    ClientDataSetInraAfzEDt_EDc: TFloatField;

    ClientDataSetInraAfza: TFloatField;

    ClientDataSetInraAfzb: TFloatField;

    ClientDataSetInraAfzdNc: TFloatField;

    ClientDataSetInraAfzdNt: TFloatField;

    ClientDataSetInraAfzLys: TFloatField;

    ClientDataSetInraAfzThr: TFloatField;

    ClientDataSetInraAfzMet: TFloatField;

    ClientDataSetInraAfzCys: TFloatField;

    ClientDataSetInraAfzMetCys: TFloatField;

    ClientDataSetInraAfzTrp: TFloatField;

    ClientDataSetInraAfzIle: TFloatField;

    ClientDataSetInraAfzVal: TFloatField;

    ClientDataSetInraAfzLeu: TFloatField;

    ClientDataSetInraAfzPhe: TFloatField;

    ClientDataSetInraAfzTyr: TFloatField;

    ClientDataSetInraAfzPheTyr: TFloatField;

    ClientDataSetInraAfzHis: TFloatField;

    ClientDataSetInraAfzArg: TFloatField;

    ClientDataSetInraAfzAla: TFloatField;

    ClientDataSetInraAfzAsp: TFloatField;

    ClientDataSetInraAfzGlu: TFloatField;

    ClientDataSetInraAfzGly: TFloatField;

    ClientDataSetInraAfzSer: TFloatField;

    ClientDataSetInraAfzPro: TFloatField;

    ClientDataSetInraAfzdLys: TFloatField;

    ClientDataSetInraAfzdThr: TFloatField;

    ClientDataSetInraAfzdMet: TFloatField;

    ClientDataSetInraAfzdCys: TFloatField;

    ClientDataSetInraAfzdMetCys: TFloatField;

    ClientDataSetInraAfzdTrp: TFloatField;

    ClientDataSetInraAfzdIle: TFloatField;

    ClientDataSetInraAfzdVal: TFloatField;

    ClientDataSetInraAfzdLeu: TFloatField;

    ClientDataSetInraAfzdPhe: TFloatField;

    ClientDataSetInraAfzdTyr: TFloatField;

    ClientDataSetInraAfzdPheTyr: TFloatField;

    ClientDataSetInraAfzdHis: TFloatField;

    ClientDataSetInraAfzdArg: TFloatField;

    ClientDataSetInraAfzdAla: TFloatField;

    ClientDataSetInraAfzdAsp: TFloatField;

    ClientDataSetInraAfzdGlu: TFloatField;

    ClientDataSetInraAfzdGly: TFloatField;

    ClientDataSetInraAfzdSer: TFloatField;

    ClientDataSetInraAfzdPro: TFloatField;

    ClientDataSetInraAfzCa: TFloatField;

    ClientDataSetInraAfzP: TFloatField;

    ClientDataSetInraAfzdP: TFloatField;

    ClientDataSetInraAfzdPphy: TFloatField;

    ClientDataSetInraAfzNa: TFloatField;

    ClientDataSetInraAfzK: TFloatField;

    ClientDataSetInraAfzCl: TFloatField;

    DataSourceInraAfz: TDataSource;

    ClientDataSetIngredients: TClientDataSet;

    ClientDataSetIngredientsId: TIntegerField;

    ClientDataSetIngredientsName: TWideStringField;

    ClientDataSetIngredientsDefinition: TWideStringField;

    ClientDataSetIngredientsClass: TIntegerField;

    ClientDataSetIngredientsClassName: TWideStringField;

    ClientDataSetIngredientsUser: TBooleanField;

    ClientDataSetIngredientsModel: TIntegerField;

    ClientDataSetIngredientsSource: TWideStringField;

    ClientDataSetIngredientsMS: TFloatField;

    ClientDataSetIngredientsMS2: TFloatField;

    ClientDataSetIngredientsMM: TFloatField;

    ClientDataSetIngredientsMAT: TFloatField;

    ClientDataSetIngredientsMG: TFloatField;

    ClientDataSetIngredientsCB: TFloatField;

    ClientDataSetIngredientsNDF: TFloatField;

    ClientDataSetIngredientsADF: TFloatField;

    ClientDataSetIngredientsADL: TFloatField;

    ClientDataSetIngredientsAmidon: TFloatField;

    ClientDataSetIngredientsSucres: TFloatField;

    ClientDataSetIngredientsEB: TFloatField;

    ClientDataSetIngredientsBonus: TFloatField;

    ClientDataSetIngredientsdEc: TFloatField;

    ClientDataSetIngredientsEDc: TFloatField;

    ClientDataSetIngredientsEMc_EDc: TFloatField;

    ClientDataSetIngredientsEMc: TFloatField;

    ClientDataSetIngredientsENc_EMc: TFloatField;

    ClientDataSetIngredientsENc: TFloatField;

    ClientDataSetIngredientsdEt: TFloatField;

    ClientDataSetIngredientsEDt: TFloatField;

    ClientDataSetIngredientsEMt_EDt: TFloatField;

    ClientDataSetIngredientsEMt: TFloatField;

    ClientDataSetIngredientsENt_EMt: TFloatField;

    ClientDataSetIngredientsENt: TFloatField;

    ClientDataSetIngredientsEDt_EDc: TFloatField;

    ClientDataSetIngredientsEMt_EMc: TFloatField;

    ClientDataSetIngredientsENt_ENc: TFloatField;

    ClientDataSetIngredientsdNc: TFloatField;

    ClientDataSetIngredientsdNt: TFloatField;

    ClientDataSetIngredientsLys: TFloatField;

    ClientDataSetIngredientsThr: TFloatField;

    ClientDataSetIngredientsMet: TFloatField;

    ClientDataSetIngredientsCys: TFloatField;

    ClientDataSetIngredientsMetCys: TFloatField;

    ClientDataSetIngredientsTrp: TFloatField;

    ClientDataSetIngredientsIle: TFloatField;

    ClientDataSetIngredientsVal: TFloatField;

    ClientDataSetIngredientsLeu: TFloatField;

    ClientDataSetIngredientsPhe: TFloatField;

    ClientDataSetIngredientsTyr: TFloatField;

    ClientDataSetIngredientsPheTyr: TFloatField;

    ClientDataSetIngredientsHis: TFloatField;

    ClientDataSetIngredientsArg: TFloatField;

    ClientDataSetIngredientsAla: TFloatField;

    ClientDataSetIngredientsAsp: TFloatField;

    ClientDataSetIngredientsGlu: TFloatField;

    ClientDataSetIngredientsGly: TFloatField;

    ClientDataSetIngredientsSer: TFloatField;

    ClientDataSetIngredientsPro: TFloatField;

    ClientDataSetIngredientsLys_MAT: TFloatField;

    ClientDataSetIngredientsThr_MAT: TFloatField;

    ClientDataSetIngredientsMet_MAT: TFloatField;

    ClientDataSetIngredientsCys_MAT: TFloatField;

    ClientDataSetIngredientsMetCys_MAT: TFloatField;

    ClientDataSetIngredientsTrp_MAT: TFloatField;

    ClientDataSetIngredientsIle_MAT: TFloatField;

    ClientDataSetIngredientsVal_MAT: TFloatField;

    ClientDataSetIngredientsLeu_MAT: TFloatField;

    ClientDataSetIngredientsPhe_MAT: TFloatField;

    ClientDataSetIngredientsTyr_MAT: TFloatField;

    ClientDataSetIngredientsPheTyr_MAT: TFloatField;

    ClientDataSetIngredientsHis_MAT: TFloatField;

    ClientDataSetIngredientsArg_MAT: TFloatField;

    ClientDataSetIngredientsAla_MAT: TFloatField;

    ClientDataSetIngredientsAsp_MAT: TFloatField;

    ClientDataSetIngredientsGlu_MAT: TFloatField;

    ClientDataSetIngredientsGly_MAT: TFloatField;

    ClientDataSetIngredientsSer_MAT: TFloatField;

    ClientDataSetIngredientsPro_MAT: TFloatField;

    ClientDataSetIngredientsdLys: TFloatField;

    ClientDataSetIngredientsdThr: TFloatField;

    ClientDataSetIngredientsdMet: TFloatField;

    ClientDataSetIngredientsdCys: TFloatField;

    ClientDataSetIngredientsdMetCys: TFloatField;

    ClientDataSetIngredientsdTrp: TFloatField;

    ClientDataSetIngredientsdIle: TFloatField;

    ClientDataSetIngredientsdVal: TFloatField;

    ClientDataSetIngredientsdLeu: TFloatField;

    ClientDataSetIngredientsdPhe: TFloatField;

    ClientDataSetIngredientsdTyr: TFloatField;

    ClientDataSetIngredientsdPheTyr: TFloatField;

    ClientDataSetIngredientsdHis: TFloatField;

    ClientDataSetIngredientsdArg: TFloatField;

    ClientDataSetIngredientsdAla: TFloatField;

    ClientDataSetIngredientsdAsp: TFloatField;

    ClientDataSetIngredientsdGlu: TFloatField;

    ClientDataSetIngredientsdGly: TFloatField;

    ClientDataSetIngredientsdSer: TFloatField;

    ClientDataSetIngredientsdPro: TFloatField;

    ClientDataSetIngredientsLysd: TFloatField;

    ClientDataSetIngredientsThrd: TFloatField;

    ClientDataSetIngredientsMetd: TFloatField;

    ClientDataSetIngredientsCysd: TFloatField;

    ClientDataSetIngredientsMetCysd: TFloatField;

    ClientDataSetIngredientsTrpd: TFloatField;

    ClientDataSetIngredientsIled: TFloatField;

    ClientDataSetIngredientsVald: TFloatField;

    ClientDataSetIngredientsLeud: TFloatField;

    ClientDataSetIngredientsPhed: TFloatField;

    ClientDataSetIngredientsTyrd: TFloatField;

    ClientDataSetIngredientsPheTyrd: TFloatField;

    ClientDataSetIngredientsHisd: TFloatField;

    ClientDataSetIngredientsArgd: TFloatField;

    ClientDataSetIngredientsAlad: TFloatField;

    ClientDataSetIngredientsAspd: TFloatField;

    ClientDataSetIngredientsGlud: TFloatField;

    ClientDataSetIngredientsGlyd: TFloatField;

    ClientDataSetIngredientsSerd: TFloatField;

    ClientDataSetIngredientsProd: TFloatField;

    ClientDataSetIngredientsLysd_ENc: TFloatField;

    ClientDataSetIngredientsLysd_ENt: TFloatField;

    ClientDataSetIngredientsCa: TFloatField;

    ClientDataSetIngredientsP: TFloatField;

    ClientDataSetIngredientsdP: TFloatField;

    ClientDataSetIngredientsdPphy: TFloatField;

    ClientDataSetIngredientsNa: TFloatField;

    ClientDataSetIngredientsK: TFloatField;

    ClientDataSetIngredientsCl: TFloatField;

    ClientDataSetIngredientsBE: TFloatField;

    DataSourceIngredients: TDataSource;

    ClientDataSetComposition: TClientDataSet;

    ClientDataSetCompositionFeed: TIntegerField;

    ClientDataSetCompositionIngredient: TIntegerField;

    ClientDataSetCompositionUser: TBooleanField;

    ClientDataSetCompositionIngredientName: TWideStringField;

    ClientDataSetCompositionRank: TIntegerField;

    ClientDataSetCompositionMS: TFloatField;

    ClientDataSetCompositionLevel: TFloatField;

    DataSourceComposition: TDataSource;

    ClientDataSetPhytase: TClientDataSet;

    ClientDataSetPhytaseId: TAutoIncField;

    ClientDataSetPhytaseType: TFloatField;

    ClientDataSetPhytaseCoef: TFloatField;

    DataSourcePhytase: TDataSource;

    ClientDataSetFeeds: TClientDataSet;

    ClientDataSetFeedsId: TIntegerField;

    ClientDataSetFeedsName: TWideStringField;

    ClientDataSetFeedsDescription: TWideStringField;

    ClientDataSetFeedsPresentation: TIntegerField;

    ClientDataSetFeedsBonusC: TFloatField;

    ClientDataSetFeedsBonusT: TFloatField;

    ClientDataSetFeedsMS: TFloatField;

    ClientDataSetFeedsMS2: TFloatField;

    ClientDataSetFeedsMM: TFloatField;

    ClientDataSetFeedsMAT: TFloatField;

    ClientDataSetFeedsMG: TFloatField;

    ClientDataSetFeedsCB: TFloatField;

    ClientDataSetFeedsNDF: TFloatField;

    ClientDataSetFeedsADF: TFloatField;

    ClientDataSetFeedsADL: TFloatField;

    ClientDataSetFeedsAmidon: TFloatField;

    ClientDataSetFeedsSucres: TFloatField;

    ClientDataSetFeedsEB: TFloatField;

    ClientDataSetFeedsdEc: TFloatField;

    ClientDataSetFeedsEDc: TFloatField;

    ClientDataSetFeedsEMc_EDc: TFloatField;

    ClientDataSetFeedsEMc: TFloatField;

    ClientDataSetFeedsENc_EMc: TFloatField;

    ClientDataSetFeedsENc: TFloatField;

    ClientDataSetFeedsdEt: TFloatField;

    ClientDataSetFeedsEDt: TFloatField;

    ClientDataSetFeedsEMt_EDt: TFloatField;

    ClientDataSetFeedsEMt: TFloatField;

    ClientDataSetFeedsENt_EMt: TFloatField;

    ClientDataSetFeedsENt: TFloatField;

    ClientDataSetFeedsEDt_EDc: TFloatField;

    ClientDataSetFeedsEMt_EMc: TFloatField;

    ClientDataSetFeedsENt_ENc: TFloatField;

    ClientDataSetFeedsdNc: TFloatField;

    ClientDataSetFeedsdNt: TFloatField;

    ClientDataSetFeedsLys: TFloatField;

    ClientDataSetFeedsThr: TFloatField;

    ClientDataSetFeedsMet: TFloatField;

    ClientDataSetFeedsCys: TFloatField;

    ClientDataSetFeedsMetCys: TFloatField;

    ClientDataSetFeedsTrp: TFloatField;

    ClientDataSetFeedsIle: TFloatField;

    ClientDataSetFeedsVal: TFloatField;

    ClientDataSetFeedsLeu: TFloatField;

    ClientDataSetFeedsPhe: TFloatField;

    ClientDataSetFeedsTyr: TFloatField;

    ClientDataSetFeedsPheTyr: TFloatField;

    ClientDataSetFeedsHis: TFloatField;

    ClientDataSetFeedsArg: TFloatField;

    ClientDataSetFeedsAla: TFloatField;

    ClientDataSetFeedsAsp: TFloatField;

    ClientDataSetFeedsGlu: TFloatField;

    ClientDataSetFeedsGly: TFloatField;

    ClientDataSetFeedsSer: TFloatField;

    ClientDataSetFeedsPro: TFloatField;

    ClientDataSetFeedsLysd: TFloatField;

    ClientDataSetFeedsThrd: TFloatField;

    ClientDataSetFeedsMetd: TFloatField;

    ClientDataSetFeedsCysd: TFloatField;

    ClientDataSetFeedsMetCysd: TFloatField;

    ClientDataSetFeedsTrpd: TFloatField;

    ClientDataSetFeedsIled: TFloatField;

    ClientDataSetFeedsVald: TFloatField;

    ClientDataSetFeedsLeud: TFloatField;

    ClientDataSetFeedsPhed: TFloatField;

    ClientDataSetFeedsTyrd: TFloatField;

    ClientDataSetFeedsPheTyrd: TFloatField;

    ClientDataSetFeedsHisd: TFloatField;

    ClientDataSetFeedsArgd: TFloatField;

    ClientDataSetFeedsAlad: TFloatField;

    ClientDataSetFeedsAspd: TFloatField;

    ClientDataSetFeedsGlud: TFloatField;

    ClientDataSetFeedsGlyd: TFloatField;

    ClientDataSetFeedsSerd: TFloatField;

    ClientDataSetFeedsProd: TFloatField;

    ClientDataSetFeedsLysd_ENc: TFloatField;

    ClientDataSetFeedsLysd_ENt: TFloatField;

    ClientDataSetFeedsThrd_Lysd: TFloatField;

    ClientDataSetFeedsMetd_Lysd: TFloatField;

    ClientDataSetFeedsCysd_Lysd: TFloatField;

    ClientDataSetFeedsMetCysd_Lysd: TFloatField;

    ClientDataSetFeedsTrpd_Lysd: TFloatField;

    ClientDataSetFeedsIled_Lysd: TFloatField;

    ClientDataSetFeedsVald_Lysd: TFloatField;

    ClientDataSetFeedsLeud_Lysd: TFloatField;

    ClientDataSetFeedsPhed_Lysd: TFloatField;

    ClientDataSetFeedsTyrd_Lysd: TFloatField;

    ClientDataSetFeedsPheTyrd_Lysd: TFloatField;

    ClientDataSetFeedsHisd_Lysd: TFloatField;

    ClientDataSetFeedsArgd_Lysd: TFloatField;

    ClientDataSetFeedsAlad_Lysd: TFloatField;

    ClientDataSetFeedsAspd_Lysd: TFloatField;

    ClientDataSetFeedsGlud_Lysd: TFloatField;

    ClientDataSetFeedsGlyd_Lysd: TFloatField;

    ClientDataSetFeedsSerd_Lysd: TFloatField;

    ClientDataSetFeedsProd_Lysd: TFloatField;

    ClientDataSetFeedsCa: TFloatField;

    ClientDataSetFeedsP: TFloatField;

    ClientDataSetFeedsPd: TFloatField;

    ClientDataSetFeedsCa_Pd: TFloatField;

    ClientDataSetFeedsPd_ENc: TFloatField;

    ClientDataSetFeedsPd_ENt: TFloatField;

    ClientDataSetFeedsPhytaseId: TIntegerField;

    ClientDataSetFeedsPhytaseType: TFloatField;

    ClientDataSetFeedsPhytaseConcentration: TFloatField;

    ClientDataSetFeedsPhytaseIncorporation: TFloatField;

    ClientDataSetFeedsPhytaseLevel: TFloatField;

    ClientDataSetFeedsLevelSum: TFloatField;

    ClientDataSetFeedsTotal: TFloatField;

    ClientDataSetFeedsRemain: TFloatField;

    ClientDataSetFeedsNa: TFloatField;

    ClientDataSetFeedsK: TFloatField;

    ClientDataSetFeedsCl: TFloatField;

    ClientDataSetFeedsBE: TFloatField;

    DataSourceFeeds: TDataSource;

    procedure DataModuleCreate(Sender: TObject);

    procedure DataModuleDestroy(Sender: TObject);

    procedure ClientDataSetIngredientsFilterRecord(DataSet: TDataSet; var Accept: Boolean);

    procedure ClientDataSetFeedsCalcFields(DataSet: TDataSet);

    procedure AggregateLevelSumUpdate(Agg: TAggregate);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

    DBUser: TSQLiteDatabase;

    TableIngredients: TSQLiteTable;

    TableFeeds: TSQLiteTable;

    TableComposition: TSQLiteTable;

    RapMS, RapMAT: Double;

    ClassList, UserList, FeedList: TStrings;

    FilterOnClass, FilterOnDatabase, FilterOnName: Boolean;

    FilteredClass, FilteredDatabase: Integer;

    FilteredName: String;

    procedure CalcInraAfz;

    procedure CalcOriginal;

    procedure CalcCopy;

    procedure CalcFeed;

    function CalcBilanElectrolytique(Na, K, Cl: Double): Double;

    function InputProximal(Value, MS: Double; ExpressionMode, ProximalUnit: Integer): Double;

    function InputEnergy(Value, MS: Double; ExpressionMode, EnergyUnit: Integer): Double;

    function InputAA(Value, MAT, MS: Double; ExpressionMode, AAUnit: Integer): Double;

    function InputMinerals(Value, MS: Double; ExpressionMode, MineralsUnit: Integer): Double;

    function InputIncorporation(Value: Double; IncorporationUnit: Integer): Double;

    function OutputProximal(Value, MS: Double; ExpressionMode, ProximalUnit: Integer): Double;

    function OutputEnergy(Value, MS: Double; ExpressionMode, EnergyUnit: Integer): Double;

    function OutputAA(Value, MAT, MS: Double; ExpressionMode, AAUnit: Integer): Double;

    function OutputMinerals(Value, MS: Double; ExpressionMode, MineralsUnit: Integer): Double;

    function OutputIncorporation(Value: Double; IncorporationUnit: Integer): Double;

    function StrTrunc(S: String; Max: Integer): String;

  end;

var

  DataModuleDeclaration: TDataModuleDeclaration;

  MajorVersion, MinorVersion, ReleaseVersion, BuildVersion: Integer ;

implementation

{$R *.dfm}

uses

  SHFolder, StrUtils, UnitOptions;

procedure TDataModuleDeclaration.AggregateLevelSumUpdate(Agg: TAggregate);

begin

  if not ClientDataSetFeeds.Eof

  then

  begin

    ClientDataSetFeeds.Edit;

    if VarIsEmpty(Agg.Value) or VarIsNull(Agg.Value)

    then

      ClientDataSetFeedsLevelSum.Clear

    else

      ClientDataSetFeedsLevelSum.AsFloat := Agg.Value;

    ClientDataSetFeeds.Post;

  end;

end;

procedure TDataModuleDeclaration.ClientDataSetFeedsCalcFields(DataSet: TDataSet);

begin

  if ClientDataSetFeedsPhytaseIncorporation.IsNull or ClientDataSetFeedsPhytaseConcentration.IsNull

  or (ClientDataSetFeedsPhytaseConcentration.Value = 0)

  then

    ClientDataSetFeedsPhytaseLevel.Clear

  else

    ClientDataSetFeedsPhytaseLevel.Value := OutputIncorporation(ClientDataSetFeedsPhytaseIncorporation.Value / ClientDataSetFeedsPhytaseConcentration.Value / 1000, FormOptions.Incorporation);

  ClientDataSetFeedsTotal.Value := ClientDataSetFeedsLevelSum.Value + ClientDataSetFeedsPhytaseLevel.Value;

  ClientDataSetFeedsRemain.Value := OutputIncorporation(1, FormOptions.Incorporation) - ClientDataSetFeedsTotal.Value;

end;

procedure TDataModuleDeclaration.ClientDataSetIngredientsFilterRecord(DataSet: TDataSet; var Accept: Boolean);

begin

  Accept := True;

  if FilterOnClass and (FilteredClass > 0)

  then

    Accept := Accept and (DataSet.FieldByName('Class').AsInteger = FilteredClass);

  if FilterOnDatabase

  then

    case FilteredDatabase of

      1: // User database

        Accept := Accept and DataSet.FieldByName('User').AsBoolean;

      2: // Reference tables

        Accept := Accept and not DataSet.FieldByName('User').AsBoolean;

    end;

  if FilterOnName and (FilteredName <> '')

  then

    Accept := Accept and (Pos(FilteredName, DataSet.FieldByName('Name').AsWideString) > 0);

end;

procedure TDataModuleDeclaration.DataModuleCreate(Sender: TObject);

var

  i: Integer;

  ExeDir, DataDir, DataFile: String;

  Cryptage: TLbBlowfish;

  FluxClair, FluxCrypte: TMemoryStream;

  DocumentsPath: array[0..MAX_PATH] of Char;

begin

  // Classes

  ClassList := TStringList.Create;

  ClassList.Add('Cereals');

  ClassList.Add('Wheat by-products');

  ClassList.Add('Maize by-products');

  ClassList.Add('Other cereal by-products');

  ClassList.Add('Rice by-products');

  ClassList.Add('Legume and oil seeds');

  ClassList.Add('Oil seed meals');

  ClassList.Add('Starch, roots and tubers');

  ClassList.Add('Fruits and vegetables by-products');

  ClassList.Add('Molasses and vinasses');

  ClassList.Add('Other plant products');

  ClassList.Add('Dehydrated forages');

  ClassList.Add('Dairy products');

  ClassList.Add('Fish meals and solubles');

  ClassList.Add('Other animal by-products');

  ClassList.Add('Fats and oils');

  ClassList.Add('Amino acids');

  ClassList.Add('Mineral sources');

  ClassList.Add('Not referenced');

  ClientDataSetClasses.CreateDataSet;

  for i := 0 to ClassList.Count - 1 do

    ClientDataSetClasses.AppendRecord([i + 1, dgettext('InraAfz', ClassList[i])]);

  // Phytase

  ClientDataSetPhytase.CreateDataSet;

  ClientDataSetPhytase.AppendRecord([1, 0.60, 0.67]);

  ClientDataSetPhytase.AppendRecord([2, 0.65, 0.76]);

  ClientDataSetPhytase.AppendRecord([3, 0.70, 0.87]);

  ClientDataSetPhytase.AppendRecord([4, 0.75, 1.00]);

  ClientDataSetPhytase.AppendRecord([5, 0.80, 1.15]);

  ClientDataSetPhytase.AppendRecord([6, 0.85, 1.34]);

  ClientDataSetPhytase.AppendRecord([7, 0.90, 1.60]);

  ClientDataSetPhytase.AppendRecord([8, 0.95, 1.98]);

  // Tables de r?f?rence

  ExeDir := ExtractFilePath(Application.ExeName);

  DataFile := ExeDir + 'EvaPig2020.dat';

  if not FileExists(DataFile)

  then // Erreur

  begin

    MessageDlg(_('Reference tables of composition and nutritional values of feed materials for pigs') + sLineBreak

      + Format(_('%s: file not found'), [DataFile]), mtError, [mbOK], 0);

    Application.Terminate;

    Exit;

  end;

  ClientDataSetInraAfz.CreateDataSet;

  Cryptage := TlbBlowfish.Create(nil);

  Cryptage.GenerateKey('Tables of Composition and Nutritional Value of Feed Materials');

  FluxCrypte := TMemoryStream.Create;

  FluxClair := TMemoryStream.Create;

  try

    FluxCrypte.LoadFromFile(DataFile);

    FluxCrypte.Position := 0;

    Cryptage.DecryptStream(FluxCrypte, FluxClair);

    FluxClair.Position := 0;

    try

      ClientDataSetInraAfz.LoadFromStream(FluxClair);

    except

      MessageDlg(_('Reference tables of composition and nutritional values of feed materials for pigs') + sLineBreak

        + _('Invalid data format'), mtError, [mbOK], 0);

      Application.Terminate;

      Exit;

    end;

  finally

    FluxCrypte.Free;

    FluxClair.Free;

    Cryptage.Free;

  end;

  // Base User.sqb

  SHGetFolderPath(0, CSIDL_PERSONAL, 0, SHGFP_TYPE_CURRENT, DocumentsPath);

  DataDir := IncludeTrailingPathDelimiter(IncludeTrailingPathDelimiter(DocumentsPath) + Application.Title);

  ForceDirectories(DataDir);

  if not FileExists(ExeDir + 'sqlite3.dll')

  then // Erreur

  begin

    MessageDlg(_('SQLite') + sLineBreak

      + Format(_('%s: driver missing'), [ExeDir + 'sqlite3.dll']), mtError, [mbOK], 0);

    Application.Terminate;

    Exit;

  end;

  DBUser := TSQLiteDatabase.Create(DataDir + 'User.sqb');

  if not DBUser.TableExists('Ingredients')

  then // Cr?ation de la table Ingredients

  begin

    DBUser.ExecSQL('CREATE TABLE Ingredients ('

      + 'Id INTEGER PRIMARY KEY, '

      + 'Name TEXT, '

      + 'Definition TEXT, '

      + 'Class INTEGER, '

      + 'Model INTEGER, '

      + 'MS REAL, '

      + 'MM REAL, '

      + 'MAT REAL, '

      + 'MG REAL, '

      + 'CB REAL, '

      + 'NDF REAL, '

      + 'ADF REAL, '

      + 'ADL REAL, '

      + 'Amidon REAL, '

      + 'Sucres REAL, '

      + 'EB REAL, '

      + 'Bonus REAL, '

      + 'Lys REAL, '

      + 'Thr REAL, '

      + 'Met REAL, '

      + 'Cys REAL, '

      + 'MetCys REAL, '

      + 'Trp REAL, '

      + 'Ile REAL, '

      + 'Val REAL, '

      + 'Leu REAL, '

      + 'Phe REAL, '

      + 'Tyr REAL, '

      + 'PheTyr REAL, '

      + 'His REAL, '

      + 'Arg REAL, '

      + 'Ala REAL, '

      + 'Asp REAL, '

      + 'Glu REAL, '

      + 'Gly REAL, '

      + 'Ser REAL, '

      + 'Pro REAL, '

      + 'dLys REAL, '

      + 'dThr REAL, '

      + 'dMet REAL, '

      + 'dCys REAL, '

      + 'dMetCys REAL, '

      + 'dTrp REAL, '

      + 'dIle REAL, '

      + 'dVal REAL, '

      + 'dLeu REAL, '

      + 'dPhe REAL, '

      + 'dTyr REAL, '

      + 'dPheTyr REAL, '

      + 'dHis REAL, '

      + 'dArg REAL, '

      + 'dAla REAL, '

      + 'dAsp REAL, '

      + 'dGlu REAL, '

      + 'dGly REAL, '

      + 'dSer REAL, '

      + 'dPro REAL, '

      + 'Ca REAL, '

      + 'P REAL, '

      + 'Na REAL, '

      + 'K REAL, '

      + 'Cl REAL, '

      + 'dP REAL, '

      + 'dPphy REAL)');

    DBUser.ExecSQL('CREATE INDEX IdxClasses ON Ingredients (Class)');

    DBUser.ExecSQL('CREATE INDEX IdxModels ON Ingredients (Model)');

  end;

  if not DBUser.TableExists('Feeds')

  then // Cr?ation de la table Feeds

    DBUser.ExecSQL('CREATE TABLE Feeds ('

      + 'Id INTEGER PRIMARY KEY, '

      + 'Name TEXT, '

      + 'Description TEXT, '

      + 'Presentation INTEGER, '

      + 'BonusC REAL, '

      + 'BonusT REAL, '

      + 'Phytase INTEGER, '

      + 'Concentration REAL, '

      + 'Incorporation REAL)');

  if not DBUser.TableExists('Composition')

  then // Cr?ation de la table Composition

  begin

    DBUser.ExecSQL('CREATE TABLE Composition ('

      + 'Feed INTEGER, '

      + 'Ingredient INTEGER, '

      + 'User BOOLEAN, '

      + 'Rank INTEGER, '

      + 'MS REAL, '

      + 'Level REAL)');

    DBUser.ExecSQL('CREATE INDEX IdxFeeds ON Composition (Feed)');

    DBUser.ExecSQL('CREATE INDEX IdxIngredients ON Composition (Ingredient)');

  end;

  Application.ProcessMessages;

  // Liste des mati?res premi?res utilisateur

  UserList := TStringList.Create;

  TableIngredients := DBUser.GetTable('SELECT Name FROM Ingredients');

  with TableIngredients do

    try

      while not Eof do

      begin

        UserList.Add(FieldAsString(FieldIndex['Name']));

        Next;

      end;

    finally

      Free;

    end;

  // Liste des r?gimes

  FeedList := TStringList.Create;

  TableFeeds := DBUser.GetTable('SELECT Name FROM Feeds');

  with TableFeeds do

    try

      while not Eof do

      begin

        FeedList.Add(FieldAsString(FieldIndex['Name']));

        Next;

      end;

    finally

      Free;

    end;

end;

procedure TDataModuleDeclaration.DataModuleDestroy(Sender: TObject);

begin

  ClientDataSetClasses.Close;

  ClientDataSetPhytase.Close;

  ClientDataSetInraAfz.Close;

  ClassList.Free;

  UserList.Free;

  FeedList.Free;

  Application.ProcessMessages;

  DBUser.ExecSQL('VACUUM'); // Compacter la base User.sqb

  DBUser.Free;

  Application.ProcessMessages;

end;

procedure TDataModuleDeclaration.CalcInraAfz;

// Renseigner l'enregistrement courant de ClientDataSetIngredients

// ? partir de l'enregistrement courant de ClientDataSetInraAfz

// en tenant compte des unit?s configur?es

begin

  // Analyse proximale

  RapMS := ClientDataSetInraAfzMS.Value;

  ClientDataSetIngredientsMS.Value := OutputProximal(RapMS, 1, 1, FormOptions.Proximal);

  ClientDataSetIngredientsMS2.Value := OutputProximal(1, RapMS, FormOptions.Expression, FormOptions.Proximal);

  ClientDataSetIngredientsMM.Value := OutputProximal(ClientDataSetInraAfzMM.Value, RapMS, FormOptions.Expression, FormOptions.Proximal);

  RapMAT := ClientDataSetInraAfzMAT.Value;

  ClientDataSetIngredientsMAT.Value := OutputProximal(RapMAT, RapMS, FormOptions.Expression, FormOptions.Proximal);

  ClientDataSetIngredientsMG.Value := OutputProximal(ClientDataSetInraAfzMG.Value, RapMS, FormOptions.Expression, FormOptions.Proximal);

  ClientDataSetIngredientsCB.Value := OutputProximal(ClientDataSetInraAfzCB.Value, RapMS, FormOptions.Expression, FormOptions.Proximal);

  ClientDataSetIngredientsNDF.Value := OutputProximal(ClientDataSetInraAfzNDF.Value, RapMS, FormOptions.Expression, FormOptions.Proximal);

  ClientDataSetIngredientsADF.Value := OutputProximal(ClientDataSetInraAfzADF.Value, RapMS, FormOptions.Expression, FormOptions.Proximal);

  ClientDataSetIngredientsADL.Value := OutputProximal(ClientDataSetInraAfzADL.Value, RapMS, FormOptions.Expression, FormOptions.Proximal);

  ClientDataSetIngredientsAmidon.Value := OutputProximal(ClientDataSetInraAfzAmidon.Value, RapMS, FormOptions.Expression, FormOptions.Proximal);

  ClientDataSetIngredientsSucres.Value := OutputProximal(ClientDataSetInraAfzSucres.Value, RapMS, FormOptions.Expression, FormOptions.Proximal);

  // Energie

  ClientDataSetIngredientsEB.Value := OutputEnergy(ClientDataSetInraAfzEB.Value, RapMS, FormOptions.Expression, FormOptions.Energy);

  ClientDataSetIngredientsBonus.Value := 0;

  if ClientDataSetIngredientsEB.Value = 0

  then

    ClientDataSetIngredientsdEt.Clear

  else

    ClientDataSetIngredientsdEc.Value := ClientDataSetInraAfzdEc.Value * 100;

  ClientDataSetIngredientsEDc.Value := ClientDataSetIngredientsEB.Value * ClientDataSetIngredientsdEc.Value / 100;

  if ClientDataSetIngredientsEDc.Value = 0

  then

    ClientDataSetIngredientsEMc_EDc.Clear

  else

    ClientDataSetIngredientsEMc_EDc.Value := ClientDataSetInraAfzEMc_EDc.Value * 100;

  ClientDataSetIngredientsEMc.Value := ClientDataSetIngredientsEDc.Value * ClientDataSetIngredientsEMc_EDc.Value / 100;

  if ClientDataSetIngredientsEMc.Value = 0

  then

    ClientDataSetIngredientsENc_EMc.Clear

  else

    ClientDataSetIngredientsENc_EMc.Value := ClientDataSetInraAfzENc_EMc.Value * 100;

  ClientDataSetIngredientsENc.Value := ClientDataSetIngredientsEMc.Value * ClientDataSetIngredientsENc_EMc.Value / 100;

  if ClientDataSetIngredientsEDc.Value = 0

  then

    ClientDataSetIngredientsEDt_EDc.Clear

  else

    ClientDataSetIngredientsEDt_EDc.Value := ClientDataSetInraAfzEDt_EDc.Value * 100;

  ClientDataSetIngredientsEDt.Value := ClientDataSetIngredientsEDc.Value * ClientDataSetIngredientsEDt_EDc.Value / 100;

  if ClientDataSetIngredientsEDt.Value = 0

  then

    ClientDataSetIngredientsEMt_EDt.Clear

  else

    ClientDataSetIngredientsEMt_EDt.Value := ClientDataSetInraAfzEMt_EDt.Value * 100;

  ClientDataSetIngredientsEMt.Value := ClientDataSetIngredientsEDt.Value * ClientDataSetIngredientsEMt_EDt.Value / 100;

  if ClientDataSetIngredientsEMt.Value = 0

  then

    ClientDataSetIngredientsENt_EMt.Clear

  else

    ClientDataSetIngredientsENt_EMt.Value := ClientDataSetInraAfzENt_EMt.Value * 100;

  ClientDataSetIngredientsENt.Value := ClientDataSetIngredientsEMt.Value * ClientDataSetIngredientsENt_EMt.Value / 100;

  if ClientDataSetIngredientsEB.Value = 0

  then

    ClientDataSetIngredientsdEt.Clear

  else

    ClientDataSetIngredientsdEt.Value := ClientDataSetIngredientsEDt.Value / ClientDataSetIngredientsEB.Value * 100;

  if ClientDataSetIngredientsEMc.Value = 0

  then

    ClientDataSetIngredientsEMt_EMc.Clear

  else

    ClientDataSetIngredientsEMt_EMc.Value := ClientDataSetIngredientsEMt.Value / ClientDataSetIngredientsEMc.Value * 100;

  if ClientDataSetIngredientsENc.Value = 0

  then

    ClientDataSetIngredientsENt_ENc.Clear

  else

    ClientDataSetIngredientsENt_ENc.Value := ClientDataSetIngredientsENt.Value / ClientDataSetIngredientsENc.Value * 100;

  // Digestibilit? f?cale de l'azote

  if RapMAT = 0

  then

    ClientDataSetIngredientsdNc.Clear

  else

    ClientDataSetIngredientsdNc.Value := ClientDataSetInraAfzdNc.Value * 100;

  if RapMAT = 0

  then

    ClientDataSetIngredientsdNt.Clear

  else

    ClientDataSetIngredientsdNt.Value := ClientDataSetInraAfzdNt.Value * 100;

  // Acides amin?s

  if RapMAT = 0

  then // En l'absence de MAT, il n'y a pas d'acides amin?s

  begin

    // Teneurs

    ClientDataSetIngredientsLys.Value := 0;

    ClientDataSetIngredientsThr.Value := 0;

    ClientDataSetIngredientsMet.Value := 0;

    ClientDataSetIngredientsCys.Value := 0;

    ClientDataSetIngredientsMetCys.Value := 0;

    ClientDataSetIngredientsTrp.Value := 0;

    ClientDataSetIngredientsIle.Value := 0;

    ClientDataSetIngredientsVal.Value := 0;

    ClientDataSetIngredientsLeu.Value := 0;

    ClientDataSetIngredientsPhe.Value := 0;

    ClientDataSetIngredientsTyr.Value := 0;

    ClientDataSetIngredientsPheTyr.Value := 0;

    ClientDataSetIngredientsHis.Value := 0;

    ClientDataSetIngredientsArg.Value := 0;

    ClientDataSetIngredientsAla.Value := 0;

    ClientDataSetIngredientsAsp.Value := 0;

    ClientDataSetIngredientsGlu.Value := 0;

    ClientDataSetIngredientsGly.Value := 0;

    ClientDataSetIngredientsSer.Value := 0;

    ClientDataSetIngredientsPro.Value := 0;

    // % MAT

    ClientDataSetIngredientsLys_MAT.Clear;

    ClientDataSetIngredientsThr_MAT.Clear;

    ClientDataSetIngredientsMet_MAT.Clear;

    ClientDataSetIngredientsCys_MAT.Clear;

    ClientDataSetIngredientsMetCys_MAT.Clear;

    ClientDataSetIngredientsTrp_MAT.Clear;

    ClientDataSetIngredientsIle_MAT.Clear;

    ClientDataSetIngredientsVal_MAT.Clear;

    ClientDataSetIngredientsLeu_MAT.Clear;

    ClientDataSetIngredientsPhe_MAT.Clear;

    ClientDataSetIngredientsTyr_MAT.Clear;

    ClientDataSetIngredientsPheTyr_MAT.Clear;

    ClientDataSetIngredientsHis_MAT.Clear;

    ClientDataSetIngredientsArg_MAT.Clear;

    ClientDataSetIngredientsAla_MAT.Clear;

    ClientDataSetIngredientsAsp_MAT.Clear;

    ClientDataSetIngredientsGlu_MAT.Clear;

    ClientDataSetIngredientsGly_MAT.Clear;

    ClientDataSetIngredientsSer_MAT.Clear;

    ClientDataSetIngredientsPro_MAT.Clear;

    // Digestibilit?s

    ClientDataSetIngredientsdLys.Clear;

    ClientDataSetIngredientsdThr.Clear;

    ClientDataSetIngredientsdMet.Clear;

    ClientDataSetIngredientsdCys.Clear;

    ClientDataSetIngredientsdMetCys.Clear;

    ClientDataSetIngredientsdTrp.Clear;

    ClientDataSetIngredientsdIle.Clear;

    ClientDataSetIngredientsdVal.Clear;

    ClientDataSetIngredientsdLeu.Clear;

    ClientDataSetIngredientsdPhe.Clear;

    ClientDataSetIngredientsdTyr.Clear;

    ClientDataSetIngredientsdPheTyr.Clear;

    ClientDataSetIngredientsdHis.Clear;

    ClientDataSetIngredientsdArg.Clear;

    ClientDataSetIngredientsdAla.Clear;

    ClientDataSetIngredientsdAsp.Clear;

    ClientDataSetIngredientsdGlu.Clear;

    ClientDataSetIngredientsdGly.Clear;

    ClientDataSetIngredientsdSer.Clear;

    ClientDataSetIngredientsdPro.Clear;

    // Teneurs digestibles

    ClientDataSetIngredientsLysd.Value := 0;

    ClientDataSetIngredientsThrd.Value := 0;

    ClientDataSetIngredientsMetd.Value := 0;

    ClientDataSetIngredientsCysd.Value := 0;

    ClientDataSetIngredientsMetCysd.Value := 0;

    ClientDataSetIngredientsTrpd.Value := 0;

    ClientDataSetIngredientsIled.Value := 0;

    ClientDataSetIngredientsVald.Value := 0;

    ClientDataSetIngredientsLeud.Value := 0;

    ClientDataSetIngredientsPhed.Value := 0;

    ClientDataSetIngredientsTyrd.Value := 0;

    ClientDataSetIngredientsPheTyrd.Value := 0;

    ClientDataSetIngredientsHisd.Value := 0;

    ClientDataSetIngredientsArgd.Value := 0;

    ClientDataSetIngredientsAlad.Value := 0;

    ClientDataSetIngredientsAspd.Value := 0;

    ClientDataSetIngredientsGlud.Value := 0;

    ClientDataSetIngredientsGlyd.Value := 0;

    ClientDataSetIngredientsSerd.Value := 0;

    ClientDataSetIngredientsProd.Value := 0;

  end

  else

  begin

    // Lys

    if ClientDataSetInraAfzLys.Value = 0

    then

    begin

      ClientDataSetIngredientsLys.Value := 0;

      ClientDataSetIngredientsLys_MAT.Clear;

      ClientDataSetIngredientsdLys.Clear;

      ClientDataSetIngredientsLysd.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsLys.Value := OutputAA(ClientDataSetInraAfzLys.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsLys.Value = 0

      then

        ClientDataSetIngredientsLys_MAT.Clear

      else

        ClientDataSetIngredientsLys_MAT.Value := InputAA(ClientDataSetIngredientsLys.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdLys.IsNull

      then

        ClientDataSetIngredientsdLys.Value := dLys * 100

      else

        ClientDataSetIngredientsdLys.Value := ClientDataSetInraAfzdLys.Value * 100;

      ClientDataSetIngredientsLysd.Value := ClientDataSetIngredientsdLys.Value / 100 * ClientDataSetIngredientsLys.Value;

    end;

    // Thr

    if ClientDataSetInraAfzThr.Value = 0

    then

    begin

      ClientDataSetIngredientsThr.Value := 0;

      ClientDataSetIngredientsThr_MAT.Clear;

      ClientDataSetIngredientsdThr.Clear;

      ClientDataSetIngredientsThrd.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsThr.Value := OutputAA(ClientDataSetInraAfzThr.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsThr.Value = 0

      then

        ClientDataSetIngredientsThr_MAT.Clear

      else

        ClientDataSetIngredientsThr_MAT.Value := InputAA(ClientDataSetIngredientsThr.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdThr.IsNull

      then

        ClientDataSetIngredientsdThr.Value := dThr * 100

      else

        ClientDataSetIngredientsdThr.Value := ClientDataSetInraAfzdThr.Value * 100;

      ClientDataSetIngredientsThrd.Value := ClientDataSetIngredientsdThr.Value / 100 * ClientDataSetIngredientsThr.Value;

    end;

    // Met

    if ClientDataSetInraAfzMet.Value = 0

    then

    begin

      ClientDataSetIngredientsMet.Value := 0;

      ClientDataSetIngredientsMet_MAT.Clear;

      ClientDataSetIngredientsdMet.Clear;

      ClientDataSetIngredientsMetd.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsMet.Value := OutputAA(ClientDataSetInraAfzMet.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsMet.Value = 0

      then

        ClientDataSetIngredientsMet_MAT.Clear

      else

        ClientDataSetIngredientsMet_MAT.Value := InputAA(ClientDataSetIngredientsMet.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdMet.IsNull

      then

        ClientDataSetIngredientsdMet.Value := dMet * 100

      else

        ClientDataSetIngredientsdMet.Value := ClientDataSetInraAfzdMet.Value * 100;

      ClientDataSetIngredientsMetd.Value := ClientDataSetIngredientsdMet.Value / 100 * ClientDataSetIngredientsMet.Value;

    end;

    // Cys

    if ClientDataSetInraAfzCys.Value = 0

    then

    begin

      ClientDataSetIngredientsCys.Value := 0;

      ClientDataSetIngredientsCys_MAT.Clear;

      ClientDataSetIngredientsdCys.Clear;

      ClientDataSetIngredientsCysd.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsCys.Value := OutputAA(ClientDataSetInraAfzCys.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsCys.Value = 0

      then

        ClientDataSetIngredientsCys_MAT.Clear

      else

        ClientDataSetIngredientsCys_MAT.Value := InputAA(ClientDataSetIngredientsCys.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdCys.IsNull

      then

        ClientDataSetIngredientsdCys.Value := dCys * 100

      else

        ClientDataSetIngredientsdCys.Value := ClientDataSetInraAfzdCys.Value * 100;

      ClientDataSetIngredientsCysd.Value := ClientDataSetIngredientsdCys.Value / 100 * ClientDataSetIngredientsCys.Value;

    end;

    // Met + Cys

    if ClientDataSetInraAfzMetCys.Value = 0

    then

    begin

      ClientDataSetIngredientsMetCys.Value := 0;

      ClientDataSetIngredientsMetCys_MAT.Clear;

      ClientDataSetIngredientsdMetCys.Clear;

      ClientDataSetIngredientsMetCysd.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsMetCys.Value := OutputAA(ClientDataSetInraAfzMetCys.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsMetCys.Value = 0

      then

        ClientDataSetIngredientsMetCys_MAT.Clear

      else

        ClientDataSetIngredientsMetCys_MAT.Value := InputAA(ClientDataSetIngredientsMetCys.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdMetCys.IsNull

      then

        ClientDataSetIngredientsdMetCys.Value := dMetCys * 100

      else

        ClientDataSetIngredientsdMetCys.Value := ClientDataSetInraAfzdMetCys.Value * 100;

      ClientDataSetIngredientsMetCysd.Value := ClientDataSetIngredientsdMetCys.Value / 100 * ClientDataSetIngredientsMetCys.Value;

    end;

    // Trp

    if ClientDataSetInraAfzTrp.Value = 0

    then

    begin

      ClientDataSetIngredientsTrp.Value := 0;

      ClientDataSetIngredientsTrp_MAT.Clear;

      ClientDataSetIngredientsdTrp.Clear;

      ClientDataSetIngredientsTrpd.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsTrp.Value := OutputAA(ClientDataSetInraAfzTrp.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsTrp.Value = 0

      then

        ClientDataSetIngredientsTrp_MAT.Clear

      else

        ClientDataSetIngredientsTrp_MAT.Value := InputAA(ClientDataSetIngredientsTrp.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdTrp.IsNull

      then

        ClientDataSetIngredientsdTrp.Value := dTrp * 100

      else

        ClientDataSetIngredientsdTrp.Value := ClientDataSetInraAfzdTrp.Value * 100;

      ClientDataSetIngredientsTrpd.Value := ClientDataSetIngredientsdTrp.Value / 100 * ClientDataSetIngredientsTrp.Value;

    end;

    // Ile

    if ClientDataSetInraAfzIle.Value = 0

    then

    begin

      ClientDataSetIngredientsIle.Value := 0;

      ClientDataSetIngredientsIle_MAT.Clear;

      ClientDataSetIngredientsdIle.Clear;

      ClientDataSetIngredientsIled.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsIle.Value := OutputAA(ClientDataSetInraAfzIle.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsIle.Value = 0

      then

        ClientDataSetIngredientsIle_MAT.Clear

      else

        ClientDataSetIngredientsIle_MAT.Value := InputAA(ClientDataSetIngredientsIle.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdIle.IsNull

      then

        ClientDataSetIngredientsdIle.Value := dIle * 100

      else

        ClientDataSetIngredientsdIle.Value := ClientDataSetInraAfzdIle.Value * 100;

      ClientDataSetIngredientsIled.Value := ClientDataSetIngredientsdIle.Value / 100 * ClientDataSetIngredientsIle.Value;

    end;

    // Val

    if ClientDataSetInraAfzVal.Value = 0

    then

    begin

      ClientDataSetIngredientsVal.Value := 0;

      ClientDataSetIngredientsVal_MAT.Clear;

      ClientDataSetIngredientsdVal.Clear;

      ClientDataSetIngredientsVald.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsVal.Value := OutputAA(ClientDataSetInraAfzVal.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsVal.Value = 0

      then

        ClientDataSetIngredientsVal_MAT.Clear

      else

        ClientDataSetIngredientsVal_MAT.Value := InputAA(ClientDataSetIngredientsVal.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdVal.IsNull

      then

        ClientDataSetIngredientsdVal.Value := dVal * 100

      else

        ClientDataSetIngredientsdVal.Value := ClientDataSetInraAfzdVal.Value * 100;

      ClientDataSetIngredientsVald.Value := ClientDataSetIngredientsdVal.Value / 100 * ClientDataSetIngredientsVal.Value;

    end;

    // Leu

    if ClientDataSetInraAfzLeu.Value = 0

    then

    begin

      ClientDataSetIngredientsLeu.Value := 0;

      ClientDataSetIngredientsLeu_MAT.Clear;

      ClientDataSetIngredientsdLeu.Clear;

      ClientDataSetIngredientsLeud.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsLeu.Value := OutputAA(ClientDataSetInraAfzLeu.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsLeu.Value = 0

      then

        ClientDataSetIngredientsLeu_MAT.Clear

      else

        ClientDataSetIngredientsLeu_MAT.Value := InputAA(ClientDataSetIngredientsLeu.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdLeu.IsNull

      then

        ClientDataSetIngredientsdLeu.Value := dLeu * 100

      else

        ClientDataSetIngredientsdLeu.Value := ClientDataSetInraAfzdLeu.Value * 100;

      ClientDataSetIngredientsLeud.Value := ClientDataSetIngredientsdLeu.Value / 100 * ClientDataSetIngredientsLeu.Value;

    end;

    // Phe

    if ClientDataSetInraAfzPhe.Value = 0

    then

    begin

      ClientDataSetIngredientsPhe.Value := 0;

      ClientDataSetIngredientsPhe_MAT.Clear;

      ClientDataSetIngredientsdPhe.Clear;

      ClientDataSetIngredientsPhed.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsPhe.Value := OutputAA(ClientDataSetInraAfzPhe.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsPhe.Value = 0

      then

        ClientDataSetIngredientsPhe_MAT.Clear

      else

        ClientDataSetIngredientsPhe_MAT.Value := InputAA(ClientDataSetIngredientsPhe.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdPhe.IsNull

      then

        ClientDataSetIngredientsdPhe.Value := dPhe * 100

      else

        ClientDataSetIngredientsdPhe.Value := ClientDataSetInraAfzdPhe.Value * 100;

      ClientDataSetIngredientsPhed.Value := ClientDataSetIngredientsdPhe.Value / 100 * ClientDataSetIngredientsPhe.Value;

    end;

    // Tyr

    if ClientDataSetInraAfzTyr.Value = 0

    then

    begin

      ClientDataSetIngredientsTyr.Value := 0;

      ClientDataSetIngredientsTyr_MAT.Clear;

      ClientDataSetIngredientsdTyr.Clear;

      ClientDataSetIngredientsTyrd.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsTyr.Value := OutputAA(ClientDataSetInraAfzTyr.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsTyr.Value = 0

      then

        ClientDataSetIngredientsTyr_MAT.Clear

      else

        ClientDataSetIngredientsTyr_MAT.Value := InputAA(ClientDataSetIngredientsTyr.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdTyr.IsNull

      then

        ClientDataSetIngredientsdTyr.Value := dTyr * 100

      else

        ClientDataSetIngredientsdTyr.Value := ClientDataSetInraAfzdTyr.Value * 100;

      ClientDataSetIngredientsTyrd.Value := ClientDataSetIngredientsdTyr.Value / 100 * ClientDataSetIngredientsTyr.Value;

    end;

    // Phe + Tyr

    if ClientDataSetInraAfzPheTyr.Value = 0

    then

    begin

      ClientDataSetIngredientsPheTyr.Value := 0;

      ClientDataSetIngredientsPheTyr_MAT.Clear;

      ClientDataSetIngredientsdPheTyr.Clear;

      ClientDataSetIngredientsPheTyrd.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsPheTyr.Value := OutputAA(ClientDataSetInraAfzPheTyr.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsPheTyr.Value = 0

      then

        ClientDataSetIngredientsPheTyr_MAT.Clear

      else

        ClientDataSetIngredientsPheTyr_MAT.Value := InputAA(ClientDataSetIngredientsPheTyr.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdPheTyr.IsNull

      then

        ClientDataSetIngredientsdPheTyr.Value := dPheTyr * 100

      else

        ClientDataSetIngredientsdPheTyr.Value := ClientDataSetInraAfzdPheTyr.Value * 100;

      ClientDataSetIngredientsPheTyrd.Value := ClientDataSetIngredientsdPheTyr.Value / 100 * ClientDataSetIngredientsPheTyr.Value;

    end;

    // His

    if ClientDataSetInraAfzHis.Value = 0

    then

    begin

      ClientDataSetIngredientsHis.Value := 0;

      ClientDataSetIngredientsHis_MAT.Clear;

      ClientDataSetIngredientsdHis.Clear;

      ClientDataSetIngredientsHisd.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsHis.Value := OutputAA(ClientDataSetInraAfzHis.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsHis.Value = 0

      then

        ClientDataSetIngredientsHis_MAT.Clear

      else

        ClientDataSetIngredientsHis_MAT.Value := InputAA(ClientDataSetIngredientsHis.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdHis.IsNull

      then

        ClientDataSetIngredientsdHis.Value := dHis * 100

      else

        ClientDataSetIngredientsdHis.Value := ClientDataSetInraAfzdHis.Value * 100;

      ClientDataSetIngredientsHisd.Value := ClientDataSetIngredientsdHis.Value / 100 * ClientDataSetIngredientsHis.Value;

    end;

    // Arg

    if ClientDataSetInraAfzArg.Value = 0

    then

    begin

      ClientDataSetIngredientsArg.Value := 0;

      ClientDataSetIngredientsArg_MAT.Clear;

      ClientDataSetIngredientsdArg.Clear;

      ClientDataSetIngredientsArgd.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsArg.Value := OutputAA(ClientDataSetInraAfzArg.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsArg.Value = 0

      then

        ClientDataSetIngredientsArg_MAT.Clear

      else

        ClientDataSetIngredientsArg_MAT.Value := InputAA(ClientDataSetIngredientsArg.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdArg.IsNull

      then

        ClientDataSetIngredientsdArg.Value := dArg * 100

      else

        ClientDataSetIngredientsdArg.Value := ClientDataSetInraAfzdArg.Value * 100;

      ClientDataSetIngredientsArgd.Value := ClientDataSetIngredientsdArg.Value / 100 * ClientDataSetIngredientsArg.Value;

    end;

    // Ala

    if ClientDataSetInraAfzAla.Value = 0

    then

    begin

      ClientDataSetIngredientsAla.Value := 0;

      ClientDataSetIngredientsAla_MAT.Clear;

      ClientDataSetIngredientsdAla.Clear;

      ClientDataSetIngredientsAlad.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsAla.Value := OutputAA(ClientDataSetInraAfzAla.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsAla.Value = 0

      then

        ClientDataSetIngredientsAla_MAT.Clear

      else

        ClientDataSetIngredientsAla_MAT.Value := InputAA(ClientDataSetIngredientsAla.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdAla.IsNull

      then

        ClientDataSetIngredientsdAla.Value := dAla * 100

      else

        ClientDataSetIngredientsdAla.Value := ClientDataSetInraAfzdAla.Value * 100;

      ClientDataSetIngredientsAlad.Value := ClientDataSetIngredientsdAla.Value / 100 * ClientDataSetIngredientsAla.Value;

    end;

    // Asp

    if ClientDataSetInraAfzAsp.Value = 0

    then

    begin

      ClientDataSetIngredientsAsp.Value := 0;

      ClientDataSetIngredientsAsp_MAT.Clear;

      ClientDataSetIngredientsdAsp.Clear;

      ClientDataSetIngredientsAspd.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsAsp.Value := OutputAA(ClientDataSetInraAfzAsp.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsAsp.Value = 0

      then

        ClientDataSetIngredientsAsp_MAT.Clear

      else

        ClientDataSetIngredientsAsp_MAT.Value := InputAA(ClientDataSetIngredientsAsp.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdAsp.IsNull

      then

        ClientDataSetIngredientsdAsp.Value := dAsp * 100

      else

        ClientDataSetIngredientsdAsp.Value := ClientDataSetInraAfzdAsp.Value * 100;

      ClientDataSetIngredientsAspd.Value := ClientDataSetIngredientsdAsp.Value / 100 * ClientDataSetIngredientsAsp.Value;

    end;

    // Glu

    if ClientDataSetInraAfzGlu.Value = 0

    then

    begin

      ClientDataSetIngredientsGlu.Value := 0;

      ClientDataSetIngredientsGlu_MAT.Clear;

      ClientDataSetIngredientsdGlu.Clear;

      ClientDataSetIngredientsGlud.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsGlu.Value := OutputAA(ClientDataSetInraAfzGlu.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsGlu.Value = 0

      then

        ClientDataSetIngredientsGlu_MAT.Clear

      else

        ClientDataSetIngredientsGlu_MAT.Value := InputAA(ClientDataSetIngredientsGlu.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdGlu.IsNull

      then

        ClientDataSetIngredientsdGlu.Value := dGlu * 100

      else

        ClientDataSetIngredientsdGlu.Value := ClientDataSetInraAfzdGlu.Value * 100;

      ClientDataSetIngredientsGlud.Value := ClientDataSetIngredientsdGlu.Value / 100 * ClientDataSetIngredientsGlu.Value;

    end;

    // Gly

    if ClientDataSetInraAfzGly.Value = 0

    then

    begin

      ClientDataSetIngredientsGly.Value := 0;

      ClientDataSetIngredientsGly_MAT.Clear;

      ClientDataSetIngredientsdGly.Clear;

      ClientDataSetIngredientsGlyd.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsGly.Value := OutputAA(ClientDataSetInraAfzGly.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsGly.Value = 0

      then

        ClientDataSetIngredientsGly_MAT.Clear

      else

        ClientDataSetIngredientsGly_MAT.Value := InputAA(ClientDataSetIngredientsGly.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdGly.IsNull

      then

        ClientDataSetIngredientsdGly.Value := dGly * 100

      else

        ClientDataSetIngredientsdGly.Value := ClientDataSetInraAfzdGly.Value * 100;

      ClientDataSetIngredientsGlyd.Value := ClientDataSetIngredientsdGly.Value / 100 * ClientDataSetIngredientsGly.Value;

    end;

    // Ser

    if ClientDataSetInraAfzSer.Value = 0

    then

    begin

      ClientDataSetIngredientsSer.Value := 0;

      ClientDataSetIngredientsSer_MAT.Clear;

      ClientDataSetIngredientsdSer.Clear;

      ClientDataSetIngredientsSerd.Value := 0;

    end

    else

    begin

      ClientDataSetIngredientsSer.Value := OutputAA(ClientDataSetInraAfzSer.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA);

      if ClientDataSetIngredientsSer.Value = 0

      then

        ClientDataSetIngredientsSer_MAT.Clear

      else

        ClientDataSetIngredientsSer_MAT.Value := InputAA(ClientDataSetIngredientsSer.Value, RapMAT, RapMS, FormOptions.Expression, FormOptions.AA) * 100;

      if ClientDataSetInraAfzdSer.IsNull

      then

        ClientDataSetIngredientsdSer.Value := dSer * 100