Текущий архив: 2002.08.26;
Скачать: 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 вся ветка
Текущий архив: 2002.08.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.015 c
