Суммирование данных таблицы.

[Corleone]

Попробуй так:

sum := 0;
item.RESET;
item.SETRANGE(Inventory);
if item.FIND('-') THEN
REPEAT
item.CALCFIELDS(Inventory);
sum += item.Inventory;
UNTIL item.NEXT =0;