Folgende Funktion soll zwei dinge erledigen:
- Ein Feld ändern
- und ggf. alle Datensätze die zu dem Namen passen (jedoch unterschiedliche Nr. haben) aktualisieren
Der zu ändernde Datensatz wird über Locate ausgewählt und geändert.
Nach der Änderung sollen alle Datensätze mit gleichen Namen und gleicher UserID ebenfalls mit demFeld aktualisiert werden.
Und das klappt leider nicht. Das 2. Locate tut so als wären die Datensätze nicht vorhanden. (Auch der Datensatz nicht der kurz vorher gefunden und geändert wurde)
Delphi-Quellcode:
Function TDM.GebaeudeWriteFeld ( DBUserID : Integer ; Gebaeude : String; GebaeudeNr : Integer; Feld : String ; Wert : Variant; AktualisiereMaxGebaeude : Integer ) : Boolean;
VAR
I : Integer;
BEGIN
Result := Nein;
// Master lokalisierbar?
IF NOT TableWorkUser.Locate ( 'UserID', DBUserID, [] )
THEN
Exit;
// Gebäude vorhanden?
// Hier ist der erste Locate der einwandfrei funktioniert
IF NOT TableWorkGebaeude.Locate ( 'UserID;Gebauede_Name;Gebaeude_Nr', VarArrayOf([DBUserID,Gebaeude,GebaeudeNr]), [loCaseInsensitive] )
THEN
BEGIN
// Gebäude angelegt?
IF NOT GebaeudeAnlegen ( DbUserID, Gebaeude,GebaeudeNr )
THEN
Exit;
END;
IF TableWorkGebaeude.FindField (Feld) <> nil
THEN
BEGIN
TRY
TableWorkGebaeude.Edit;
Try
TableWorkGebaeude.FieldByName(Feld).Value := Wert;
TableWorkGebaeude.Post;
TableWorkGebaeude.FlushBuffers;
Result := Ja;
IF AktualisiereMaxGebaeude > 0
THEN
BEGIN
Application.ProcessMessages;// Das war mal ein Test. Refresh und TableWorkGebaeude.First habe ich auch schon erfolglos probiert. grrrrrr
FOR I:=1 TO AktualisiereMaxGebaeude DO
BEGIN
// Hier liegt das Problem
// Dies ist der zweite Locate der nicht so recht willig ist
IF TableWorkGebaeude.Locate ( 'UserID;Gebauede_Name;Gebaeude_Nr', VarArrayOf([DBUserID,Gebaude,I]), [loCaseInsensitive] )
THEN
BEGIN
TableWorkGebaeude.Edit;
TableWorkGebaeude.FieldByName(Feld).Value := Wert;
TableWorkGebaeude.Post;
TableWorkGebaeude.FlushBuffers;
END;
END;
END;
EXCEPT
TableWorkGebaeude.Cancel;
Result := Nein;
End;
EXCEPT
Result := Nein;
End;
END;
END;