Textbausteine für Belege anlegen

Hallo,

ich möchte gerne für spätere Belege in der ABSTabelle Textbausteine anlegen.
Leider klappt das irgendwie nicht.

Delphi-Quellcode:

			with QueryTexte do

    begin

    if not Locate('TxtNr', 1, []) then

    with FmTxte, MemReAnf do

    begin

      Append;

      FieldByName('TxtNr').AsInteger := 1;

      FieldByName('Zeile1').AsString := Lines[1];

      FieldByName('Zeile2').AsString := Lines[2];

      FieldByName('Bezeichnung').AsString := 'Rechnung -Anfang-';

      Post;

    end;

    ...

Gruß
Lombi

Textbausteine für Belege anlegen

Textbausteine für Belege anlegen

Forumregeln