Ich habe zwei IB Dataset jeweils für Auftragsköpfe und -Positionen.
Wenn ich diese jetzt speichern will, gibt es beim ersten (IBDAtasetAuftragsköpfe) keine Probleme. Der Satz wird in Interbase gespeichert.
Beim zweiten Dataset (Positionen) passiert aber beim Speichern überhaupt nichts, auch keine Fehlermeldung.
Die Datasets sind beide aktiv.
Was kann das denn sein?
Nachfolgend auszugsweise mein Code
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
| procedure Tfauftraegesped.BtnNewClick(Sender: TObject);
begin
......
ibdatasetauftragskopf.append;
ibdatasetpositionen.append;
......
end;
procedure Tfauftraegesped.BtnStoreClick(Sender: TObject);
begin
with ibdatasetauftragskopf do
begin
FieldByName('Auftragsnummer').Value := dbedit1.text;
fieldbyname('Konto_Nr').value := dbedit7.text;
fieldbyname('Bediener').value := 1;
fieldbyname('Lkw').value := 1;
Post;
Transaction.CommitRetaining;
end;
ID_Auftragspos := (strtoint(dbedit1.Text)*100) + strtoint(dbedit5.text);
with ibdatasetpositionen do
fieldbyname ('Id_Auftrags_Position').value := Id_Auftragspos;
fieldbyname ('Auftragsnummer').value :=strtoint(dbedit1.text);
fieldbyname ('Positionsnummer').value := strtoint(dbedit5.text);
fieldbyname ('Lade_Name_1').value := dbedit6.text;
Post;
Transaction.CommitRetaining;
end; |
