[Allegro] irreführendes Fehlerflag von put

[Bernhard Eversberg]

Anando Eger schrieb:
> 
> - in einem Datensatz sollen Informationen aktualisiert werden
> - dazu soll der Satz über seinen Primärschlüssel geladen werden
> - ist der Satz nicht vorhanden, soll er angelegt und gespeichert
>   werden.
> 
> Dabei funktionierte nach "put" der Test, ob das Speichern gelungen
> ist, nicht immer - je nach Vorgeschichte.
> 
> Ich habe also versucht, nach Aller'schem Vorbild den Fall 
> einzugrenzen und konnte ihn mit folgendem Einzeiler für die
> Demo2-Datenbank und aktuellem a99 reproduzieren:
> 
> x var "|; SYSKX"\f1nd\if not no end\new\#9A KX\put\if no mes 
> 
> Wenn der Kontingentsatz X nicht vorhanden ist, soll einer angelegt
> und gespeichert werden. Das gelingt auch, nur die Bedingung "if no"
> nach dem "put" ist fehlerhaft "wahr".
> 
Leider.

> Habe ich vielleicht etwas übersehen?
Nein.

> Läßt sich das korrigieren?
> 
Wir werden uns für V27.2 bemühen.
Einstweilen kann man so abhelfen: Im Anschluß an  put  schreiben:

if New mes Speichern hat nicht geklappt.

Denn nach dem Speichern ist der Satz, wenn es geklappt hat, nicht mehr 
im Zustand New.

MfG B.E.