ПОМОГИТЕ !!!

← →
Виталий Панасенко (2002-07-31 19:10) [0]

Народ !!! Помогите !!!!! Не мугу выяснить, почему под 98 (под 2000 все Ок)
при добавлении записи Append/Insert портятся значения полей таблицы-справочника.
Действие происходит так: пользователь выбирает группу товара появляется новая
форма в которой отфильтрована только эта группа (но можно показать и все -
получается одинаково). Выбираем необходимое наименование (Ввод/даблклик).
При этом в расходном документе делаем Append и проставляем цену,код товара и тд. Остается только указать количество. Но в процессе эксплуатации время от времени цена получалась фонарная. Начал трассировать и получил: после Append
в Watch"е для одного поля значение = "Floating point stack check at 004CE94E".
Это адрес GetAsFloat. Что это за ошибка и как с ней бороться. ПОМОГИТЕ !!!
ГОРЮ !!!!

← →
Виталий Панасенко (2002-08-01 08:49) [1]

Ну, никто не поможет ?..

← →
Mike Kouzmine (2002-08-01 10:31) [2]

Так ты расскажи о проблеме поподробнее, как-то: как связаны, текст вставки, ну и прочие "мелочи"

← →
Виталий Панасенко (2002-08-01 11:15) [3]

Кусочек исходника. Но прикол: если брик-поинт установить на самом последнем присваивании, то все работает

procedure TselectsldFrm.SetUpDocR;
var
Tmp : record
Cash_Code,
Postavshik_Code,
Owner_Code,
Produkt_Code,
Flag : Integer;
Produkt_CenaP,
Produkt_CenaR,
Produkt_CenaRFull : Currency;
Produkt_Box,
Produkt_Kolvo : Double;
end;//-record
begin
//-Присваиваем полям DocR необходимые значения
with SkladDM do
begin
//-Если в режиме просмотра то добавить новую запись
//-Если будет в режиме редактирования то просто переприсвоить
with Tmp do
begin
Cash_Code := sldTblCash_Code.AsInteger;//-Код ЭККА Вот тут docRTblProdukt_CenaR = "Floating piont stack check at"
Produkt_CenaP := sldTblProdukt_CenaP.Value;//-Приходная цена
Produkt_CenaR := sldTblProdukt_CenaR.Value;//-Предпол.расх.цена
Produkt_Code := sldTblProdukt_Code.AsInteger;//-Код товара
Flag := sldTblFlag.AsInteger;
Produkt_Box := sldTblProdukt_Box.AsFloat;//-В паке
Produkt_CenaRFull := sldTblProdukt_CenaR.Value + mdForm.nadbCE.Value;//-Цена продажи
Postavshik_Code := sldTblPostavshik_Code.AsInteger;
Owner_Code := sldTblOwner_Code.AsInteger;
end;

if docRTbl.State in [dsBrowse] then
docRTbl.Append;
with Tmp do
begin
docRTblCash_Code.AsInteger := Cash_Code;//-Код ЭККА
docRTblProdukt_CenaP.Value := Produkt_CenaP;//-Приходная цена
docRTblProdukt_CenaR.Value := Produkt_CenaR;//-Предпол.расх.цена
docRTblProdukt_Code.AsInteger := Produkt_Code;//-Код товара
docRTblFlag.AsInteger := Flag;
docRTblProdukt_Box.AsFloat := Produkt_Box;//-В паке
docRTblProdukt_CenaRFull.Value := Produkt_CenaRFull;//-Цена продажи
docRTblPostavshik_Code.AsInteger := Postavshik_Code;
docRTblOwner_Code.AsInteger := Owner_Code;
end;//-with
end;//-with

end;

ПОМОГИТЕ !!! Найти похожие ветки