3. April 2017 13:35
3. April 2017 13:39
3. April 2017 15:41
3. April 2017 16:01
// Holt sich Informationen aus der Tabelle Drinkprice 
DrinkPrice.SETRANGE(DrinkID,DrinkID);
IF DrinkPrice.FINDFIRST THEN BEGIN  
  DrinkID := DrinkPrice.DrinkID;
  DrinkName := DrinkPrice.DrinkName;
  LineAmount := DrinkPrice.DrinkPrice;
END;3. April 2017 16:15
3. April 2017 16:19
 , lag an einer veralteten TableRealation bei dem Feld HeaderID
 , lag an einer veralteten TableRealation bei dem Feld HeaderID3. April 2017 16:21
IF Drinkline.Findlast THEN 
LfdNr := LfdNr + 1
else 
lfdNr := 1;