Révision 5 UnitDeclaration.pas

Voir les différences:

UnitDeclaration.pas
622 622 
      + 'dPro REAL, '
623 623 
      + 'Ca REAL, '
624 624 
      + 'P REAL, '
625 
      + 'Na REAL, '
626 
      + 'K REAL, '
627 
      + 'Cl REAL, '
625 628 
      + 'dP REAL, '
626 629 
      + 'dPphy REAL)');
627 630 
    DBUser.ExecSQL('CREATE INDEX IdxClasses ON Ingredients (Class)');
......
3515 3518 
    ClientDataSetFeedsNa.Clear;
3516 3519 
    ClientDataSetFeedsK.Clear;
3517 3520 
    ClientDataSetFeedsCl.Clear;
3521 
    ClientDataSetFeedsBE.Clear;
3518 3522 
    ClientDataSetFeedsPd.Clear;
3519 3523 
  end
3520 3524 
  else
......
4023 4027 
          ClientDataSetFeedsCl.Clear
4024 4028 
        else
4025 4029 
          ClientDataSetFeedsCl.Value := ClientDataSetFeedsCl.Value + ClientDataSetIngredientsCl.Value * Ratio;
4030 
      if ClientDataSetFeedsNa.IsNull or ClientDataSetFeedsK.IsNull or ClientDataSetFeedsCl.IsNull
4031 
      then
4032 
        ClientDataSetFeedsBE.Clear
4033 
      else
4034 
        ClientDataSetFeedsBE.Value := CalcBilanElectrolytique(InputMinerals(ClientDataSetFeedsNa.Value, RapMS, FormOptions.Expression, FormOptions.Minerals), InputMinerals(ClientDataSetFeedsK.Value, RapMS, FormOptions.Expression, FormOptions.Minerals), InputMinerals(ClientDataSetFeedsCl.Value, RapMS, FormOptions.Expression, FormOptions.Minerals));
4026 4035 
      if not ClientDataSetFeedsPd.IsNull
4027 4036 
      then
4028 4037 
        if ClientDataSetFeedsPresentation.Value = 0
......
4264 4273 
      if not ClientDataSetFeedsCl.IsNull
4265 4274 
      then
4266 4275 
        ClientDataSetFeedsCl.Value := ClientDataSetFeedsCl.Value / RapMS;
4276 
      if not ClientDataSetFeedsEB.IsNull
4277 
      then
4278 
        ClientDataSetFeedsEB.Value := ClientDataSetFeedsEB.Value / RapMS;
4267 4279 
      if not ClientDataSetFeedsPd.IsNull
4268 4280 
      then
4269 4281 
        ClientDataSetFeedsPd.Value := ClientDataSetFeedsPd.Value / RapMS;

Formats disponibles : Unified diff