5. Februar 2007 21:10
IF rec_Artikel.GET(Artikelnummer) THEN
  ArtBezeichnung := rec_Artikel.ArtBezeichnung;
  Farbe := rec_Artikel.Farbe;5. Februar 2007 21:26
IF rec_Artikel.GET(Artikelnummer) THEN BEGIN
  ArtBezeichnung := rec_Artikel.ArtBezeichnung; 
  Farbe := rec_Artikel.Farbe;
END;5. Februar 2007 22:25
5. Februar 2007 22:28
IF rec_Adressdaten.GET(KUNUMMER) THEN BEGIN
  ANREDE := rec_Adressdaten.ANREDE;
  NAME := rec_Adressdaten.NAME;
  ANSCHR := rec_Adressdaten.ANSCHR;
  ZUSATZ := rec_Adressdaten.ZUSATZ;
  STRASSE := rec_Adressdaten.STRASSE;
  PLZ := rec_Adressdaten.PLZ;
  ORT := rec_Adressdaten.ORT;
  FAX := rec_Adressdaten.FAX;
  Alarm := rec_Adressdaten.Alarm;
  SPRACHE := rec_Adressdaten.SPRACHE;
  KONDITION := rec_Adressdaten.KONDITION;
Eingangsdatum := TODAY;
END;5. Februar 2007 22:50
IF NOT rec.INSERT THEN
  IF NOT MODIFY THEN 
    ERROR(...); 
 
5. Februar 2007 22:51
5. Februar 2007 22:57
IF rec_Adressdaten.GET(KUNUMMER) THEN BEGIN
  ANREDE := rec_Adressdaten.ANREDE;
  NAME := rec_Adressdaten.NAME;
  ANSCHR := rec_Adressdaten.ANSCHR;
  ZUSATZ := rec_Adressdaten.ZUSATZ;
  STRASSE := rec_Adressdaten.STRASSE;
  PLZ := rec_Adressdaten.PLZ;
  ORT := rec_Adressdaten.ORT;
  FAX := rec_Adressdaten.FAX;
  Alarm := rec_Adressdaten.Alarm;
  SPRACHE := rec_Adressdaten.SPRACHE;
  KONDITION := rec_Adressdaten.KONDITION;
Eingangsdatum := TODAY;
END ELSE BEGIN
  ERROR('Der Kunde %1 wurde nicht gefunden!',KUNUMMER);
END;Tesarolle hat geschrieben:Ich habe noch was anderes probiert, wenn ich da ein FIND('-') mache holt er mir immer den ersen Datensatz rein, also es würde eigentlich schon funktionieren, ich muss irgendwas übersehen. Woran kann es noch liegen?
Mikka hat geschrieben:Machst du auch ein INSERT bzw. MODIFY?
6. Februar 2007 17:18