Помогите разобраться с ошибкой

[Muchacho]

Помогите пожалуста разобраться с ошибкой.Во вкладке Статистика>Статистика расхода почему то перестало работать: Дабавить запись, редактировать запись. При добавлении записи или ее редактирование программа вылетает.

[VVM]

Ошибка переполнения стека в модуле DataModuleUnit.

procedure TDataModule1.BookTable2CalcFields(DataSet: TDataSet);
begin
BookTable2DSDesigner6.Value := BookTable2DSDesigner3.AsInteger*
BookTable2DSDesigner5.AsInteger;
BookTable2DSDesigner4.Value := 'шт.';
end;

Глава 36. TDataSet.OnCalcFields

Событие OnCalcFields Затрагиваемые объекты TDataSet
Назначение Событие OnCalcFields ссылается на процедуру обработчика событий, в которой можно указать пользовательскую обработку для определения значений любых вычисляемых полей в TDataSet.
Объявление Туре TDataSetNotifyEvent = procedure(DataSet: TDataSet) of object;
property OnCalcFields: TDataSetNotifyEvent;
Пример синтаксиса // Назначить или отменить назначение обработчика событий OnCalcFields
//в соответствии с флажком
procedure TTDataSetTestForm.OnCalcFieldsCheck BoxClick(Sender:TObject);
begin
if OnCalcFieldsCheckBox.Checked
then CustomerTable.OnCalcFields := CustomerTableCalcFields
else CustomerTable.OnCalcFields := Nil;
end;

// Процедура обработчика событий OnCalcFields
procedure TTDataSetTestForm.CustomerTableCalc Fields(DataSet: TDataSet);
begin
// Примечание: данная CustomerTableDaysSinceLastlnvoice вычисляется.
// TFloatField добавляется к CustomerTable через Fields Editor,
if not CustomerTableLastlnvoiceData.isNull then
CustomerTableDaysSinceLastInvoice.V alue := Int(Date —
CustomerTableLastlnvoiceDate.Value) ;
end;
Описание
Событие OnCalcFields в TDataSet включается всякий раз при считывании запись из базы данных. Событие OnCalcFields включается также и тогда, когда пользователь интерактивно модифицирует невычисляемые поля (когда TDataSet находится в состоянии Edit или Insert) и его свойство AutoCalcFields установлено в True. Обратите внимание, что во время выполнения процедуры обработчика событий OnCalcFields состояние TDataSet устанавливается в CalcFields. В то время, когда TDataSet находится в состоянии CalcFields изменять значения вычисляемых полей не следует. Знайте о том, что если любое невычисляемое поле TDataSet (или даже любое поле связанного TDataSet) модифицируется во время выполнения процедуры обработчика событий OnCalcFields, то скорее всего возникнет бесконечный цикл. Если процедуре обработчика событий OnCalcFields необходимо сослаться на поля из другого TDataSet, самое первое обращение к другому TDataSet (во время создания формы) может функционировать некорректно, если TDataSet, на который ссылаются, еще на создан. Для обеспечения правильного порядка создания TDataSet (тот TDataSet, на который ссылаются, чаще всего должен идти первым), следует использовать команду меню File|Creation Form Designer, с помощью которой можно установить желаемый порядок создания. Естественно, прежде чем ссылаться на вычисляемые поля внутри процедуры обработчика событий OnCalcFields необходимо использовать Fields Editor для их создания.

[VVM]

Хитрость OnCalcFields


Событие OncalcFields генерится ОЧЕНЬ часто и может быть необязательным и занимать большое количество времени, например, у вас есть таблица с неким вычисляемым полем, и при каждом редактировании таблицы вызывается следующий код:
MyCalcField.AsInteger := Table1Field1.AsInteger + 10;



Теперь, если Вы решили пройти последовательно каждую запись огромной таблицы, вы можете представить, какое количество таких событий будет сгенерировано! Они будут необязательны в случае, если вы сделаете обработку полей в отдельной процедуре.

Мой совет следующий: выключите генерацию события OnCalcFields, обработайте все поля и снова включите генерацию данного события, к примеру так:
Procedure TForm1.BigProcessingFunction;
begin
Table1.OnCalcFields := nil;
// <Включите любые по сложности вычисления в этом месте!>
Table1.OnCalcFields := Table1OnCalcFields;
end;



Поля не вычисляются в течение времени обработки, которое может быть достаточно велико, но при наличие громоздких вычислений специфического поля (или даже нескольких полей), все вычисляется за один проход!

Данный метод позволяет исключить необязательный код и может быть использован повсюду, где применяются большие таблицы или сложный алгоритм калькуляции поля. Разница в скорости обработки таблицы довольно ощутима.

Таким образом преобразуем:

procedure TDataModule1.BookTable2CalcFields(DataSet: TDataSet);
begin
  BookTable2.OnCalcFields := nil;
  BookTable2DSDesigner6.Value := BookTable2DSDesigner3.AsInteger*
  BookTable2DSDesigner5.AsInteger;
  BookTable2DSDesigner4.Value := 'шт.';
  BookTable2.OnCalcFields := BookTable2.OnCalcFields;
end;

[Muchacho]

Спасибо большое!

[VVM]

как мне теперь сделать так чтобы в "Расходе" указывался только тот матераиал, который есть в "Приходе"

Ну мне только 2 варианта в голову приходит:
1. Во время добавления записи в "расход" идет проверка наличия соответствующих полей и их содержимого в "Приходе".
2. Во время добавления записи в "расход" появляется список-подсказка (как в delphi при нажатии ctrl + space во время написания кода) из которой можно выбрать готовый вариант, заведомо существующий в "Приходе".

[Muchacho]

Еще один вопрос. Как же мне все таки сделать так чтобы в "Расходе" мне можно было отображать только тот материал и его цену, которая числится за этим материалом в "Приходе"?

[Muchacho]

Сообщение от VVM

1. Во время добавления записи в "расход" идет проверка наличия соответствующих полей и их содержимого в "Приходе".

А как организовать такую проверку?

[VVM]

Цитата:Сообщение от VVM
1. Во время добавления записи в "расход" идет проверка наличия соответствующих полей и их содержимого в "Приходе".

А как организовать такую проверку?

Ну приблизительно следующим образом:
Лезем в таблицу "приход", перебираем записи и смотрим, есть ли там нужное количество указанного материала (колонка "Кол-во" по материалу). Цена, предположим, константа.

[Muchacho]

Спасибо!!!