From 65985a7e2d782fe4f12d79e66b17f0b109472a72 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Thu, 26 Sep 2019 15:11:49 +0200 Subject: werteunit.inc: neuen Chef ignorieren, wenn er schon da ist --- epost.lps | 147 +++++++++++++++++++++++++++++----------------------------- werteunit.inc | 2 +- 2 files changed, 75 insertions(+), 74 deletions(-) diff --git a/epost.lps b/epost.lps index 1d65b15..f321f4a 100644 --- a/epost.lps +++ b/epost.lps @@ -22,10 +22,9 @@ - - - + + @@ -33,17 +32,15 @@ - - + + - - - + @@ -66,7 +63,7 @@ - + @@ -74,26 +71,28 @@ - - - + + + + + - + - + - + - + @@ -120,8 +119,8 @@ - - + + @@ -208,122 +207,124 @@ - + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + - - + + - - + + - + + - + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + - - + + - - + + + + + diff --git a/werteunit.inc b/werteunit.inc index 754cc46..4ee71ce 100644 --- a/werteunit.inc +++ b/werteunit.inc @@ -29,7 +29,7 @@ var i,j: longint; begin inherited create; - params.knownValues.neuerChef(original^.params.knownValues); + params.knownValues.neuerChef(original^.params.knownValues,true); tMax:=min(tMax,original^.params.tSiz-1); tMin:=max(tMin,0); params.tSiz:=tMax+1-tMin; -- cgit v1.2.3-70-g09d2