Inhalt einer Firebird-Tabelle übernehmen

[Luckner]

Hallo an Alle,
ich würde gerne aus einer temporären Firebird-Tabelle alle Daten in eine andere Tabelle der selben Datenbank kopieren. Mit

Delphi-Quellcode:

    DatamoduleAuftrag.IBDataSetPositionen.Open;
    DataModuleArtikelAngebot.IBDataSetArtikelTemp.Open;
    DataModuleArtikelAngebot.IBDataSetArtikelTemp.First;

    with DataModuleArtikelAngebot.IBDataSetArtikelTemp do
    for i := 0 to DataModuleArtikelAngebot.IBDataSetArtikelTemp.RecordCount - 1 do
    begin
      DatamoduleAuftrag.IBDataSetPositionen.Append;
      DatamoduleAuftrag.IBDataSetProvisionenAUFTRID.AsInteger := AuftragsId;
      DatamoduleAuftrag.IBDataSetPositionenPOSTIONSNUMMER.AsInteger := DataModuleArtikelAngebot.IBDataSetArtikelTempPOSTIONSNUMMER.AsInteger;
      DatamoduleAuftrag.IBDataSetPositionenKENNZIFFER.AsInteger := DataModuleArtikelAngebot.IBDataSetArtikelTempKENNZIFFER.AsInteger;
      DatamoduleAuftrag.IBDataSetPositionenARTIKELNUMMER.AsString := DataModuleArtikelAngebot.IBDataSetArtikelTempARTIKELNUMMER.AsString;
      DatamoduleAuftrag.IBDataSetPositionenIHREARTIKELNUMMER.AsString := DataModuleArtikelAngebot.IBDataSetArtikelTempIHREARTIKELNUMMER.AsString;
      DatamoduleAuftrag.IBDataSetPositionenBEZEICHNUNG.AsString := DataModuleArtikelAngebot.IBDataSetArtikelTempBEZEICHNUNG.AsString;
      DatamoduleAuftrag.IBDataSetPositionenHINWEIS.AsString := DataModuleArtikelAngebot.IBDataSetArtikelTempHINWEIS.AsString;
      DatamoduleAuftrag.IBDataSetPositionenKUNDENBEZEICHNUNG.AsString := DataModuleArtikelAngebot.IBDataSetArtikelTempKUNDENBEZEICHNUNG.AsString;
      DatamoduleAuftrag.IBDataSetPositionenAUFDRUCK.AsString := DataModuleArtikelAngebot.IBDataSetArtikelTempAUFDRUCK.AsString;
      DatamoduleAuftrag.IBDataSetPositionenFORMAT.AsInteger:= StrToInt(DataModuleArtikelAngebot.IBDataSetArtikelTempFORMAT.AsString);
      DatamoduleAuftrag.IBDataSetPositionenFORMATB.AsInteger:= StrToInt(DataModuleArtikelAngebot.IBDataSetArtikelTempFORMATB.AsString);
      DatamoduleAuftrag.IBDataSetPositionenEINHEIT.AsString := DataModuleArtikelAngebot.IBDataSetArtikelTempEINHEIT.AsString;
      DatamoduleAuftrag.IBDataSetPositionenBUTTONS.AsString := DataModuleArtikelAngebot.IBDataSetArtikelTempBUTTONS.AsString;
      DatamoduleAuftrag.IBDataSetPositionenBLATTWAREANMERKUNG.AsString := DataModuleArtikelAngebot.IBDataSetArtikelTempBLATTWAREANMERKUNG.AsString;
      DatamoduleAuftrag.IBDataSetPositionenBLATTWARECOMBO.AsInteger := DataModuleArtikelAngebot.IBDataSetArtikelTempBLATTWARECOMBO.AsInteger;
      DatamoduleAuftrag.IBDataSetPositionenAUFROLLELEGEANWEISUNG2.AsString := DataModuleArtikelAngebot.IBDataSetArtikelTempAUFROLLELEGEANWEISUNG2.AsString;
    end;

    DatamoduleAuftrag.IBDataSetPositionen.Post;

    if DatamoduleAuftrag.IBTransaction1.InTransaction then DatamoduleAuftrag.IBTransaction1.Commit;
    DatamoduleAuftrag.IBDataSetPositionen.Close;

Bekomme jedoch den Fehler: "Nicht im Bearbeitungsmodus" Prozess wurde angehalten.

Finde den Fehler nicht.
Bitte um Hilfe.
Danke, Luckner