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;