Hallo,
habe folgendes Problem:
Delphi-Quellcode:
begin
DatamodulePlanung.IBDataSetAuftrag.Close;
DatamodulePlanung.IBDataSetAuftrag.SelectSQL.Clear;
DatamodulePlanung.IBDataSetAuftrag.SelectSQL.Add('select * FROM AUFTRAG where ID = ' + IntToStr(id_Auftrag));
DatamodulePlanung.IBDataSetAuftrag.Open;
DatamodulePlanung.IBDataSetAuftrag.Edit;
DatamodulePlanung.IBDataSetAuftragPRODSTATUS.AsString := ComboBoxStatus.Text;
DatamodulePlanung.IBDataSetAuftragSTATUSDATUM.Value := now;
DatamodulePlanung.IBDataSetAuftragSTATUSANWENDER.AsString := FormAnmeldung.EditNuname.Text;
DatamodulePlanung.IBDataSetAuftrag.Post;
if DataModulePlanung.IBTransactionPlanung.InTransaction then DataModulePlanung.IBTransactionPlanung.Commit;
DatamodulePlanung.IBDataSetPlanung.Close;
DatamodulePlanung.IBDataSetPlanung.SelectSQL.Clear;
DatamodulePlanung.IBDataSetPlanung.SelectSQL.Add('select * FROM PLANUNG where ID_AUFTRAG = ' + IntToStr(id_Planung));
DatamodulePlanung.IBDataSetPlanung.Open;
DatamodulePlanung.IBDataSetPlanung.Edit;
DatamodulePlanung.IBDataSetPlanungSTATUS.AsString := ComboBoxStatus.Text;
DatamodulePlanung.IBDataSetPlanungSTATUSDATUM.Value := now;
DatamodulePlanung.IBDataSetPlanungSTATUSNAME.AsString := FormAnmeldung.EditNuname.Text;
DatamodulePlanung.IBDataSetPlanung.Post;
if DataModulePlanung.IBTransactionPlanung.InTransaction then DataModulePlanung.IBTransactionPlanung.Commit;
In die Tabelle "Auftrag" werden Änderungen eingetragen aber in die Tabelle "Planung" nicht.
Gruß, Luckner