| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
получить остаток на основании накладных [D7, Paradox]
Jeqa © (2008-06-04 23:50:00)на основание приходов и расходов (NType) неполучается выводить остаток товара на складе (TQuan).
делаю это так:
procedure TDM. MoveBeforeDelete(DataSet: TDataSet);
begin
Tovars.Edit;
case Nakls NType.AsInteger of 2, 3, 5: //Тип накладной. соотвествует цифре. напр. 1-поступление, 2-реализация, 5-списание
Tovars TQuan.Value:= TovarsTQuan.Value-MoveMQuan.Value; //если расход
else
TovarsTQuan.Value:= TovarsTQuan.Value+MoveMQuan.Value;//тогда приход
end;
Tovars.Post; //чик
end;
заполняю накладные.. но чото никаких изменений в TQuan :(
MsGuns (2008-06-05 09:05:00) [1]Остаток нужно проверять не при извлечении документа, а непосредственно перед записью в базу
Anatoly Podgoretsky (2008-06-05 00:23:00) [2]> Jeqa (04.06.2008 23:50:00) [0]
А отладчик для чего существует, вот и пройди с ним по шагам.
Jeqa (2008-06-04 23:52:00) [3]ну или примерчик закинте, а?!
| |
