Секретные материалы

Claw.ru | Рефераты по информатике, программированию | MIDAS. Практическое применение

MIDAS. Практическое применение

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: курсовая работа по менеджменту, доклад по обж
| Добавил(а) на сайт: Roman.

Предыдущая страница реферата | 14 15 16 17 18 19 20 21 22 23 24 | Следующая страница реферата

FieldByName('DOC_DATE').asDateTime := Date;

FieldByName('DOC_SUM').asCurrency := 0;

FieldByName('FROM_ID').AsInteger := 0;

FieldByName('TO_ID').AsInteger := 0;

end;

procedure TrdmDoc.cdsBodyNewRecord(DataSet: TDataSet);

begin

cdsBody.FieldByName('DOC_ID').AsInteger := FDocID;

end;

В дополнение ко всему нужна еще одна процедура в секции private, для подсчета суммы документа:

function TrdmDoc.CalcSum: Currency;

begin

Result := 0;

if not cdsBody.Active then Exit;

with cdsBody do

begin

First;

while not EOF do

begin

Result := Result

+ FieldByName('COUNT_NUM').asCurrency

* FieldByName('PRICE').asCurrency;

Next;

end;

Рекомендуем скачать другие рефераты по теме: зимнее сочинение, шпаргалки по уголовному.

Claw.ru | Рефераты по информатике, программированию | MIDAS. Практическое применение

MIDAS. Практическое применение

Категории:

Поделитесь этой записью или добавьте в закладки

Рефераты от А до Я

Полезные заметки