| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите разобраться с Invalid floating point operation... [D5, IB6.x]

Martyn ©   (2002-08-05 11:55:00) 

Привет всем!

Суть проблемы: поставщик присылает приходную накладную в формате DBF, я ее конвертирую и загоняю в базу InterBase....

While not tblAktVVS.EOF do
begin
if tblAktVVSO_kol_upak.Value > 0 then
begin
tblInFirmSubAccount.Append;
tblInFirmSubAccountId_Infirm.Value := 51;
tblInFirmSubAccountId_Number.Value := tblInFirmAccountId_Number.Value;
tblInFirmSubAccountId_Tovar.Value := StrToInt(tblAktVVSKod_tow.value);
tblInFirmSubAccountAmount.value := tblAktVVSO_kol_upak.value; { после трассировки в этой строке вылетает ошибка }
tblInFirmSubAccountOutPrice.Value := tblAktVVSCena_KRB.value;
tblInFirmSubAccountPlantPrice.value := tblAktVVSO_Cena_Tam.value;
tblInFirmSubAccountSert.Value := conv_dos_windows(tblAktVVSSerial_num.Value);
tblInFirmSubAccountFirm.Value := Conv_Dos_Windows(tblAktVVSNaimen_Pro.Value);
tblInFirmSubAccountName.Value := Conv_Dos_Windows(tblAktVVSNaimen_all.Value);
try
tblInFirmSubAccountSertNum.Value := conv_dos_windows(tblAktVVSSnom_dokum.Value);
tblInFirmSubAccountSertDate.Value := tblAktVVSDataSk.Value;
except
tblInFirmSubAccountSertNum.Value := "";
tblInFirmSubAccountSertDate.Value := Date;
end;
tblInFirmSubAccountRegNumber.Value := Conv_Dos_Windows(tblAktVVSRNom_Dokum.Value);
tblInFirmSubAccountRegDate.Value := tblAktVVSBegLic.Value;
{ tblInFirmSubAccountValidDate.Value := ,,,,,}
tblInFirmSubAccount.Post;
end;

TotalSum := TotalSum + tblAktVVSCena_KRB.value * tblAktVVSO_kol_upak.value;
tblAktVVS.Next;
end;

Буду очень признателен за помощь:

tblAktVVSO_KOL_UPAK: TFloatField;
tblInFirmSubAccountAMOUNT: TBCDField;

---

Martyn   (2002-08-05 12:12:00) [1]

2 Alexandr

В том то и дело, что пробовал: в правой стороне ставить asFloat, asCurrency - результат тот же...

---

Alexandr   (2002-08-05 12:02:00) [2]

у тебя в TBCDField разделитель один, а Value требует другой разделитель.
Ты бы AsFloat дописал бы... Чтобы левая сторона поняла правую.

---

Наверх