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