Fix: erronous QXdef0 > 0

Fix #2

Fix: erronous QXdef0 > 0
Fix #2
7efa2c8a · Dorchies David · e81a5a47 · 7efa2c8a
Commit 7efa2c8a authored 4 years ago by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing

with 3 additions and 2 deletions
+3 -2
--- a/src/CALCULS1.PAS
+++ b/src/CALCULS1.PAS
@@ -1897,15 +1897,16 @@ Procedure
  {--absolue, due aux contraintes physiques et consignes locales ; ZQXdef2 : --}
  {--ajout‚e … ZQXdef0 du fait des volumes pr‚sents dans les r‚servoirs ;    --}
  {--ZQXdef1 : due … toutes ces causes (ZQXdef1  = ZQXdef0 + ZQXdef2)           --}
+  ZQXdef[0]:=0;
  if ZTypeObjectif=0 then
   begin
    ZQXdef[1]:=B_max(0,XQSTtmin3-ZQXsous);
-    ZQXdef[0]:=B_max(0,XQSTtmin1-ZQXsous);
+    if ZQXsous <= 0 then ZQXdef[0]:=B_max(0,XQSTtmin1-ZQXsous);
   end
  else
   begin
    ZQXdef[1]:=B_max(0,ZQXsous-XQSTtmax3);
-    ZQXdef[0]:=B_max(0,ZQXsous-XQSTtmax1);
+    if ZQXsous >= 0 then ZQXdef[0]:=B_max(0,ZQXsous-XQSTtmax1);
   end;
  ZQXdef[2]:=ZQXdef[1]-ZQXdef[0];