OBS/Stammdaten/Weitere Stammdaten/Dokumentenvorlagen: Unterschied zwischen den Versionen
| Zeile 46: | Zeile 46: | ||
// Date: 14-Jul-2019 | // Date: 14-Jul-2019 | ||
//----------------------------------------------------------------------------- | //----------------------------------------------------------------------------- | ||
function Office_Replace(oDoku:TWordDoku) : String; | function Office_Replace(oDoku:TWordDoku) : String; | ||
Version vom 2. Juli 2019, 10:21 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
//-----------------------------------------------------------------------------
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;