OBS/Stammdaten/Weitere Stammdaten/Dokumentenvorlagen

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
Weitere Stammdaten


Dokumentenvorlagen

Vorlagengrupenebene

Die Liste

Dokuvorlagen1.png

In dieser Maske können neue Datensätze angelegt und bearbeitet werden.
Hier definieren und bearbeiten wir unsere Vorlagengruppen.

Eingabemaske

Dokuvorlagen2.png

In der Eingabemaske haben wir die Möglichkeit die Datensätze der einzelnen Dateien zu bearbeiten.

Dateiebene

Die Liste

Dokuvorlagen3.png

In dieser Maske können neue Datensätze angelegt und bearbeitet werden.
Hier definieren und bearbeiten wir unsere Dateien.

Eingabemaske

Dokuvorlagen4.png


Makro

Dokuvorlagen5.png

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;