Скачать: CL | DM;

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

← →
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]

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

---

← →
MsGuns ©   (2008-06-05 09:05) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c