Dokumentenvorlagen

In OBS gibt es die Möglichkeit Word, Excel oder sonstige Dokumente als Vorlagen in OBS zu speichern.
Neuerdings werden diese Vorlagen in einzelne Vorlagengruppen unterteilt um diese bei großen Mengen besser zu strukturieren

Vorlagengruppenebene

Auswahlliste

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

Eingabemaske

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

Dateiebene

Auswahlliste

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

Über die Taste F6 Import kann man Dokumente in die Vorlagenverwaltung importieren

Eingabemaske

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

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;