Als Anhaltspunkt :
Code:
WITH LiefModul.LiefDS DO BEGIN
active := false;
SelectSQL.Text := 'SELECT * FROM LIEF8 WHERE NR='+Edit1.Text;
active := true;
IF IsEmpty THEN BEGIN
Showmessage ('neuer Datensatz !');
insert;
FieldByName ('LIEFSEIT').value := Today;
FieldByName ('NR').value := StrToInt (Edit1.text);
END
END;
Der Code legt einen neuen Datensatz an und besetzt die Werte Lieferanten-Nr. und das Feld, wann der Lieferant angelegt wurde vor. Allerdings mit
SQL
Gruß
Hansa