OBS/Adminhilfe/RTF

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.

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();

Allgemeine Umstellung Drucke

Druckanpassungen

Fehlende Positionsbezeichnungen und Langtexte auf der Folgeseite

Am Ende der Prozedur Positionen() wird cWo mit dem Wert 'Ende' gefüllt, wenn es leer ist. Diese Abfrage ist zu erweitern. Nach 

procedure Positionen();

suchen, ans Ende scrollen und Code abändern von: 

  if (empty (cWo)) then begin
    cWo := 'Ende';
  end;
    cWWI := cAktPos + '|' + cWo + '|' + cWelcheZeile;
  end;

nach: 

  if (empty (cWo)) and (AZ_Query.EoF) then begin
    cWo := 'Ende';
  end;
  cWWI := cAktPos + '|' + cWo + '|' + cWelcheZeile;
end;

Berechnung von Überträgen und Zwischensummen fehlerhaft

Leerzeile statt Lieferdatum

Auftraggeber bei Rechnung ausdrucken

Versandanschrift bei Auftragsbestätigungen drucken

Abgerufen von „http:///index.php?title=OBS/Adminhilfe/RTF&oldid=8703“