Скачать: CL | DM;

Помогите разобраться с Invalid floating point operation...   Найти похожие ветки 

← →
Martyn   (2002-08-05 11:55) [0]

Привет всем!

Суть проблемы: поставщик присылает приходную накладную в формате 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;

---

← →
Alexandr ©   (2002-08-05 12:02) [1]

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

---

← →
Martyn   (2002-08-05 12:12) [2]

2 Alexandr

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c