Реферат: MIDAS. Практическое применение
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; end; end; |
В функции CalcSum просматривается содержимое документа и рассчитывается общая сумма, которая возвращается в качестве результата.
Теперь н?