'' ist kein gültiger Gleitkommawert

[LOMBI]

Wie bitte reagiere ich auf die Fehlermeldung:
'' ist kein gültiger Gleitkommawert
wenn ggf. Felder vom Typ Currency leer gespeichert werden?
Der Code führte leider nicht zu dem gewünschten Ergebnis!

Delphi-Quellcode:

procedure TDatMod.ABSQueryBeforePost(DataSet: TDataSet);
begin
  with FmItemDlg do
  begin
    ...
    if AuftragDatModul.ABSQueryArtikel.FieldByName('VKNetto').IsNull then
      EdVKnet.Text := '0,0000';
    if AuftragDatModul.ABSQueryArtikel.FieldByName('VKBrutto').isNull then
      EdVKbrut.Text := '0,0000';
   ...

Vielen Dank für Hilfe!

Gruß
Lombi

[Luckie]

Dann muss der Fehler an anderer Stelle liegen. Geh den Codeteil doch einfach mal schrittweise durch.

[mkinzler]

Wo kommt den der Fehler?

[LOMBI]

Könnte ich alternativ die Werte '0,0000' bei Aufruf Insert vorgeben?

[Angel4585]

Bei einer SQL-Datenbank kannst du Default-Werte angeben, da kannst du dann 0,00 oder 0.00 reinschreiben, je nachdem was die DB verlangt.

[marabu]

Hallo Lombi,

natürlich kannst du Feldwerte über das Ereignis OnNewRecord() initialisieren. Das verhindert aber nicht, dass beim Bearbeiten des Feldwertes dieser ganz gelöscht wird. Wie du bei nicht datensensitiven Edit-Feldern mit einer Leereingabe umgehen musst kannst du in deiner ABS-Demo sehen:

Delphi-Quellcode:

procedure TDatMod.ABSQueryBeforePost(DataSet: TDataSet);
begin
  with FmItemDlg do
  begin
    ...
    AuftragDatModul.ABSQueryArtikel.FieldByName('VKNetto').AsString := EdVKnet.Text;
   ...

Freundliche Grüße

[shmia]

Man sollte keinesfalls über die globale Instanzvariable "AuftragDatModul"
auf die Query zugreifen, sondern über den Parameter Dataset

Delphi-Quellcode:

  // Falsch
  if AuftragDatModul.ABSQueryArtikel.FieldByName('VKNetto').IsNull then
  
  // Richtig
  if Dataset.FieldByName('VKNetto').IsNull then

[LOMBI]

@ Luckie

Zitat:

Dann muss der Fehler an anderer Stelle liegen.

Fehler korrigiert!

@Shmia

Zitat:

// Richtig
if Dataset.FieldByName('VKNetto').IsNull then ...

Habe die Zuweisung in DataSet geändert!


Problem gelöst. Vielen Dank euch allen!