Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Вниз

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

 
Виталий Панасенко   (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;



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.008 c
1-71161
BigVova
2002-08-13 14:06
2002.08.22
Word document to Stream


3-70989
diww
2002-07-31 13:07
2002.08.22
как сделать запрос?


1-71151
Torn
2002-08-08 23:45
2002.08.22
Бегущая строка


14-71323
Igit
2002-07-26 09:50
2002.08.22
Вот сайт сделал....


3-71011
velk
2002-07-31 08:17
2002.08.22
ADO тормоза в delphi, а есть ли альтернатива ado но быстрая?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский