home *** CD-ROM | disk | FTP | other *** search
/ Powerdrive 1998 September / POWERDRIVE0998.ISO / VOLLVERS / ADRESS / NOTIZEN.MOD < prev    next >
Text File  |  1997-03-14  |  759b  |  28 lines
  1. ..Modul fⁿr Tabelle NOTIZEN
  2. ..Datei:notizen.mod
  3.  
  4. Procedure OnOpenProject
  5.  
  6.     SetSortOrder("notdaze.ind");
  7.  
  8. Endproc
  9.  
  10. Procedure Uebernehme_Adresse
  11.  
  12.     ..aktuelle adresse lesen
  13.     ReadRec(ADRESSEN, RecNo(ADRESSEN) );
  14.     $NOTIZEN.Name := $ADRESSEN.Name;
  15.     IF $ADRESSEN.Sparte = Beruf
  16.         $NOTIZEN.Telefon := $ADRESSEN.Tel-Geschaeft;
  17.         $NOTIZEN.Fax := $ADRESSEN.Fax-Geschaeft;
  18.     ELSE
  19.         ?$ADRESSEN.Tel-Privat<>""/$NOTIZEN.Telefon := $ADRESSEN.Tel-Privat;
  20.         ?$ADRESSEN.Fax-Privat<>""/$NOTIZEN.Fax := $ADRESSEN.Fax-Privat;
  21.         ?$ADRESSEN.Tel-Geschaeft<>""/$NOTIZEN.Telefon := $ADRESSEN.Tel-Geschaeft;
  22.         ?$ADRESSEN.Fax-Geschaeft<>""/$NOTIZEN.Fax := $ADRESSEN.Fax-Geschaeft;
  23.     END
  24.     $NOTIZEN.EMail := $ADRESSEN.E-Mail;
  25.     Attach;
  26.  
  27. Endproc
  28.