Рефераты | Рефераты по информатике, программированию | MIDAS. Практическое применение | страница реферата 19 | Большая Энциклопедия Рефератов от А до Я
Большая Энциклопедия Рефератов от А до Я
  • Рефераты, курсовые, шпаргалки, сочинения, изложения
  • Дипломы, диссертации, решебники, рассказы, тезисы
  • Конспекты, отчеты, доклады, контрольные работы


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


    Рефераты | Рефераты по информатике, программированию | 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;

    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;


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



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




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

       

    Категории:



    Разделы сайта




    •