OBS/Stammdaten/Weitere Stammdaten/Dokumentenvorlagen: Unterschied zwischen den Versionen
Keine Bearbeitungszusammenfassung |
|||
| Zeile 35: | Zeile 35: | ||
===Makro=== | ===Makro=== | ||
[[Image:Dokuvorlagen5.png|500px]] | [[Image:Dokuvorlagen5.png|500px]]<br/> | ||
Mithilfe dem 2. Reiter Makro können wir in unseren Vorlagen automatisch Platzhalter ersetzen. | Mithilfe dem 2. Reiter Makro können wir in unseren Vorlagen automatisch Platzhalter ersetzen. | ||
Version vom 2. Juli 2019, 10:17 Uhr
Dokumentenvorlagen
Vorlagengrupenebene
Die Liste
In dieser Maske können neue Datensätze angelegt und bearbeitet werden.
Hier definieren und bearbeiten wir unsere Vorlagengruppen.
Eingabemaske
Dateiebene
Die Liste
In dieser Maske können neue Datensätze angelegt und bearbeitet werden.
Hier definieren und bearbeiten wir unsere Dateien.
Eingabemaske
Makro
Mithilfe dem 2. Reiter Makro können wir in unseren Vorlagen automatisch Platzhalter ersetzen.
//-----------------------------------------------------------------------------
// Unit Name: Beispiel Word Platzhalter ersetzen
// Author: Jr
// Date: 14-Jul-2019
//-----------------------------------------------------------------------------
syny
function Office_Replace(oDoku:TWordDoku) : String;
begin
oDoku.Replace('VORNAME' , oDoku.cPsVorname);
oDoku.Replace('NAME' , oDoku.cPsName );
oDoku.Replace('NUMMER' , oDoku.cPsNr );
oDoku.Replace('ANREDE' , oDoku.cPsAnrede );
oDoku.Replace('VORNAME' , oDoku.cPsVorname );
oDoku.Replace('ZUSATZ1' , oDoku.cPsZusatz1 );
oDoku.Replace('ZUSATZ2' , oDoku.cPsZusatz2 );
oDoku.Replace('STRASSE' , oDoku.cPsStrasse );
oDoku.Replace('POSTFACH' , oDoku.cPsPostfach );
oDoku.Replace('PLZ' , oDoku.cPsPLZ );
oDoku.Replace('ORT' , oDoku.cPsOrt );
oDoku.Replace('TELEFON' , oDoku.cPsTelefon );
oDoku.Replace('EMAIL' , oDoku.cPsEmail );
oDoku.Replace('TELEFAX' , oDoku.cPsFax );
oDoku.Replace('INTERNET' , oDoku.cPsInternet );
oDoku.Replace('PSBRIEF' , oDoku.cPsBriefAnrede );
oDoku.Replace('DOKBEZ' , oDoku.cDokBez );
oDoku.Replace('DOKDATELANG' , oDoku.cDokDateLang );
oDoku.Replace('DOKDATE' , oDoku.cDokDate );
oDoku.Replace('DOKANSP' , oDoku.cDokAnsp );
oDoku.Replace('DOKSACHBEARB', oDoku.cDokSachbearb );
oDoku.Replace('ANSCHRIFT' , oDoku.cAnschrift );
oDoku.Replace('INTKDNR' , oDoku.cIntKdNr );
oDoku.Replace('GBEZ1' , oDoku.cGBez1 );
oDoku.Replace('GBEZ2' , oDoku.cGBez2 );
oDoku.Replace('GARTNR' , oDoku.cGBez2 );
oDoku.Replace('GSERNR' , oDoku.cGSerNr );
oDoku.Replace('GORT' , oDoku.cGOrt );
oDoku.Replace('LFDNR' , oDoku.cLfdNr );
oDoku.Replace('VPLZ' , oDoku.cVsPLZ );
oDoku.Replace('VORT' , oDoku.cVsOrt );
oDoku.Replace('WAAGENART' , oDoku.cWaagenArt );
oDoku.Replace('QSNR' , oDoku.cQsNr );
oDoku.Replace('WAAGENTYP' , oDoku.cWaagentyp );
oDoku.Replace('PRUEFKL' , oDoku.cPruefKl );
oDoku.Replace('PRUEFNR' , oDoku.cPruefNr );
oDoku.Replace('PRUEFDAT' , oDoku.cPruefDat );
oDoku.Replace('G2ORT' , oDoku.cOrt2 );
oDoku.Replace('ANLAGENNR' , oDoku.cAnlagennr );
oDoku.Replace('EICHZAEHLER' , oDoku.cEichzaehler );
Result := 'OK';
end;


