29. März 2007 10:30
IF recKassenkonto.GET (Steuerpflichtige."Pflichtiger-Nummer") THEN BEGIN  recDrucktabelle."Pers.ID" := recKassenkonto."Pers. ID";
  recKassenkonto.CALCFIELDS(Anrede,Adresse,PLZ,Ort,Ländercode);
  recDrucktabelle."Pflichtiger-Anrede" := recKassenkonto.Anrede;
  recDrucktabelle."Pflichtiger-Straße" := recKassenkonto.Adresse;
  ...  recDrucktabelle."Pflichtiger-Name 2" := recKassenkonto."Name 2"29. März 2007 10:38
29. März 2007 10:44
recDrucktabelle.INIT;
recDrucktabelle."Pflichtiger-Nummer" := Steuerpflichtige."Pflichtiger-Nummer";
recDrucktabelle."Pflichtiger-Name" := Steuerpflichtige."Pflichtiger-Name";
recDrucktabelle."Pflichtiger-gültig ab" := Steuerpflichtige."Gültig ab";
recDrucktabelle."Pflichtiger-gültig bis" := Steuerpflichtige."Gültig bis";
recDrucktabelle.Objektnummer := Steuerpflichtige.Objektnummer;
IF recSteuerobjekte.GET(Steuerpflichtige.Objektnummer) THEN BEGIN
  recDrucktabelle.Objektlage := recSteuerobjekte.Objektbezeichnung;
  recDrucktabelle."Objekt-gültig ab" :=recSteuerobjekte.Beginndatum;
  recDrucktabelle."Objekt-gültig bis" := recSteuerobjekte.Endedatum;
 
IF recKassenkonto.GET (Steuerpflichtige."Pflichtiger-Nummer") THEN BEGIN
  recDrucktabelle."Pers.ID" := recKassenkonto."Pers. ID";
  recKassenkonto.CALCFIELDS(Anrede,Adresse,PLZ,Ort,Ländercode); 
  recDrucktabelle."Pflichtiger-Anrede" := recKassenkonto.Anrede;
  recDrucktabelle."Pflichtiger-Straße" := recKassenkonto.Adresse;
  recDrucktabelle."Pflichtiger-PLZ" := recKassenkonto.PLZ;
  recDrucktabelle."Pflichtiger-Ort" := recKassenkonto.Ort;
  recDrucktabelle."Pflichtiger-Name 2" := recKassenkonto."Name 2";
recDrucktabelle.INSERT;29. März 2007 10:46
29. März 2007 10:49
29. März 2007 10:50