получить остаток на основании накладных

← →
Jeqa © (2008-06-04 23:50) [0]

на основание приходов и расходов (NType) неполучается выводить остаток товара на складе (TQuan).

делаю это так:
procedure TDM.MoveBeforeDelete(DataSet: TDataSet);
begin
Tovars.Edit;
case NaklsNType.AsInteger of 2, 3, 5: //Тип накладной. соотвествует цифре. напр. 1-поступление, 2-реализация, 5-списание
TovarsTQuan.Value:= TovarsTQuan.Value-MoveMQuan.Value; //если расход
else
TovarsTQuan.Value:= TovarsTQuan.Value+MoveMQuan.Value;//тогда приход
end;
Tovars.Post; //чик
end;

заполняю накладные.. но чото никаких изменений в TQuan :(

← →
Jeqa © (2008-06-04 23:52) [1]

ну или примерчик закинте, а?!

← →
Anatoly Podgoretsky © (2008-06-05 00:23) [2]

> Jeqa (04.06.2008 23:50:00) [0]

А отладчик для чего существует, вот и пройди с ним по шагам.

Остаток нужно проверять не при извлечении документа, а непосредственно перед записью в базу

получить остаток на основании накладных Найти похожие ветки