OBS/Adminhilfe/RTF: Unterschied zwischen den Versionen

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
Für diese Seite wurde eine Zugriffsbeschränkung eingerichtet. Falls du diese Nachricht siehst, bist du nicht berechtigt, diese Seite einzusehen.
Keine Bearbeitungszusammenfassung
Zeile 8: Zeile 8:


== Druckanpassungen ==
== Druckanpassungen ==
In den vars hinzufügen (Vorbildprint nur wenn auch Bilder ausgedruckt werden sollen):
<source lang="delphi">
    vorbildprint      : String;
    nRTFStart          : integer;
    nRTFCharCount      : integer;
</source>
Nach
    // KOPFTEXT ANFANG
suchen und den Abschnitt durch folgendes ersetzen:
<source lang="delphi">
    if (lKopfFuss) then begin
      cBuffer := A_Query.FieldByName('a_kopftext').asString;
      if (not empty(Alltrim(cbuffer))) then begin
        LangtextDruck(cBuffer,'posnr',cResultVor);
        Inc(y,0.5);
        cBuffer := '';
      end;
    end;
</source>
Nach
procedure Positionen();
suchen und in den Vars einfügen:
<source lang="delphi">
    nAnzCharDruck : Integer;
    cRTFOrg      : String;
    nLMemo        : Integer;
</source>
Nach
    cWelcheZeile  := Token(cWWI,'|',3);
Suchen, danach hinzufügen:
<source lang="delphi">
    nLMemo        := 0;
</source>
Nach
cBuffer := AZ_Query.FieldByName('az_memofeld').asString;
in Positionen(); suchen und alles was in nachfolgendem IF vorkommt ersetzen mit:
<source lang="delphi">
                if (not empty(cBuffer)) then begin
                  if (empty (cResultvor)) then begin
                    inc(y);
                  end;
                  if PositionLangtextDruck(cBuffer,nWelcheZeile,cWo,cWelcheZeile,cResultVor,RTF_LANGTEXT) then begin
                    break;
                  end;
                  Dec(y);
                end;
                if (y >= iSeitenlaenge -iFusszeilen) then begin
                  break;
                end;
</source>
Wiederholen, bis alle az_memofeld-Benutzungen (3x) in Positionen so umgestellt sind.
In Positionen am ende des Cases einen neuen Punkt
<source lang="delphi">
          17 : begin
                  if Pagebreak(cWo,cResultvor) then begin
                    break;
                  end;
              end;
</source>
hinzufügen.
Suche
TextFuss();
Ersetzen durch
<source lang="delphi">
TextFussRich();
</source>

Version vom 19. Oktober 2011, 14:44 Uhr

Dies ist eine zugriffsgeschützte Seite.


Admin-Hilfe

FAQ
FIBU
Häufige Fehler FAQs
Allgemeines
Tools
Widgets
Wiki Hilfe
Syntax
Wiki-Gruppen Benutzerlisten
MySQL
MySQL Installation
Programmierung und Mergen
Delphi
Einrichtung
MMX
Git/SmartGit
Programm Update
Schaltflächen
F10: Weitere Funktionen
PAX
Nützliche Funktionen
SteVe
OBS-Administration / Installation
Einrichtung
MySQL
OBS
Dienste
Kasse/Notfallkasse
Replikation
Zentrale
Fleet-Management einrichten
VirtualUI
OBS Umzug
Admin Funktionen
Service Firmen
F10
O Support
D Programmierer-Tools
V Crypt Autologin Edit
J Update Marko Lib/Pmode/Script Lib
kundenspezifische Anpassungen
OBS Protokolle
OBS DEMO
Shop-Administration
modified eCommerce
modified eCommerce 2.x
modified eCommerce 1.06
Amazon
VShop 4.0
Kundeninformationen
OfficeStar
MDS

Umstellung auf RTF

Was ist zu tun?

  1. PMode 916 auf Ja stellen
  2. Drucke für RTF anpassen
  3. Kontrollieren ob die Wörterbuchdateien (Datei:DICT.ZIP) im Verzeichnis (obs\data\DICT\) liegen

Druckanpassungen

In den vars hinzufügen (Vorbildprint nur wenn auch Bilder ausgedruckt werden sollen): 

    vorbildprint       : String;
    nRTFStart          : integer;
    nRTFCharCount      : integer;

Nach 

    // KOPFTEXT ANFANG

suchen und den Abschnitt durch folgendes ersetzen: 

    if (lKopfFuss) then begin
      cBuffer := A_Query.FieldByName('a_kopftext').asString;
      if (not empty(Alltrim(cbuffer))) then begin
        LangtextDruck(cBuffer,'posnr',cResultVor);
        Inc(y,0.5);
        cBuffer := '';
      end;
    end;

Nach 

procedure Positionen();

suchen und in den Vars einfügen: 

    nAnzCharDruck : Integer;
    cRTFOrg       : String;
    nLMemo        : Integer;

Nach 

    cWelcheZeile   := Token(cWWI,'|',3);

Suchen, danach hinzufügen: 

    nLMemo         := 0;

Nach 

cBuffer := AZ_Query.FieldByName('az_memofeld').asString;

in Positionen(); suchen und alles was in nachfolgendem IF vorkommt ersetzen mit: 

                 if (not empty(cBuffer)) then begin
                   if (empty (cResultvor)) then begin
                     inc(y);
                   end;
                   if PositionLangtextDruck(cBuffer,nWelcheZeile,cWo,cWelcheZeile,cResultVor,RTF_LANGTEXT) then begin
                     break;
                   end;
                   Dec(y);
                 end;
                 if (y >= iSeitenlaenge -iFusszeilen) then begin
                   break;
                 end;

Wiederholen, bis alle az_memofeld-Benutzungen (3x) in Positionen so umgestellt sind. In Positionen am ende des Cases einen neuen Punkt 

          17 : begin
                  if Pagebreak(cWo,cResultvor) then begin
                     break;
                  end;
               end;

hinzufügen.

Suche 

TextFuss();

Ersetzen durch 

 TextFussRich();
Abgerufen von „http:///index.php?title=OBS/Adminhilfe/RTF&oldid=8672“