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