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
3. April 2017 16:21
IF Drinkline.Findlast THEN
LfdNr := LfdNr + 1
else
lfdNr := 1;