Für diese Seite wurde eine Zugriffsbeschränkung eingerichtet. Falls du diese Nachricht siehst, bist du nicht berechtigt, diese Seite einzusehen.

Version vom 28. Oktober 2011, 11:05 Uhr

Dies ist eine zugriffsgeschützte Seite.

Admin-Hilfe

Wiki Hilfe

Syntax

Wiki-Gruppen Benutzerlisten

MySQL

MySQL Installation

Programmierung und Mergen

Git/SmartGit

Anleitung

Programm Update

Schaltflächen

F10: Weitere Funktionen

Übersicht

PAX

Nützliche Funktionen

Barcodes

SteVe

Einrichtung

OBS-Administration / Installation

Einrichtung

MySQL

MySQL Installieren

OBS

Dienste

Kasse/Notfallkasse

Replikation

Zentrale

Fleet-Management einrichten

Fleet-Management einrichten

VirtualUI

OBS Umzug

Admin Funktionen

O Support

D Programmierer-Tools

Datenbank verfremden

V Crypt Autologin Edit

Zugang.ini

J Update Marko Lib/Pmode/Script Lib

kundenspezifische Anpassungen

UserDB.sys

OBS Protokolle

HistorieProto

OBS DEMO

OBS-Demo Allgemeines

Shop-Administration

Shop Übersicht Voraussetzungen und Einrichtung

modified eCommerce

REST

modified eCommerce 2.x

modified eCommerce 1.06

Shop modified eCommerce

Amazon

Schnittstelle Amazon

VShop 4.0

Shop VShop

Kundeninformationen

OfficeStar

MDS

Skrip-Automatische Ablage von Dokumenten

Umstellung auf RTF

Was ist zu tun?

PMode 916 auf Ja stellen
Drucke für RTF anpassen
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;

Leerzeile statt Lieferdatum

Ebenfalls in der Prozedur Positionen() zu finden (nur Rechnungsdruck). Im Case of wird unter 0 eventuell das Lieferscheindatum gedruckt. Dort wird allerdings nur der String auf not empty abgeprüft, was dazu führen kann, dass eine Leerzeile eingefügt wird, weil im Datum 30.12.1899. Zur sicherheit hier zusätzlich auf Gleitkommawert abfragen: Nach

procedure Positionen();

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

                 cBuffer := '';
                 if (AZ_Query.FieldByName('az_lsnr').AsString <> '') then begin
                   cBuffer := cAllg10+AZ_Query.FieldByName('az_lsnr').AsString;
                 end;
                 if ( (not empty(AZ_Query.FieldByName('az_lsdat').AsString)) and 
                      (AZ_Query.FieldByName('az_lsdat').AsFloat > 0) )       then begin
                   if (empty(cBuffer)) then begin
                     cBuffer := AZ_Query.FieldByName('az_lsdat').AsString;
                   end else begin
                     cBuffer := cBuffer + ' / ' + AZ_Query.FieldByName('az_lsdat').AsString;
                   end;
                 end;

Möglichkeit Positionsmengen und -preise in erster oder letzter Zeile zu drucken

Dies läuft über den Programmparameter 303. Auf "Ja" gestellt ist PosLine() in der ersten Positionszeile auszuführen, bei "Nein" in der letzten.

Berechnung von Überträgen und Zwischensummen fehlerhaft

Auftraggeber bei Rechnung ausdrucken

Versandanschrift bei Auftragsbestätigungen drucken

PosLine() am Positionsende immer drucken

Falls PosLine() am Ende einer Position ausgeführt wird, soll dies auch immer geschehen, wenn das Positionsende erreicht wird. Hier kann es sein, dass zwischen Langtextdruck und PosLine() der restliche Seitenplatz abgefragt wird. Dies darf aber nur vorm Drucken einer weiteren Zeile geschehen. Bekannt ist hier der Fall, dass es vor der Bedingung des Artikelnummerndrucks abgefragt wird. Ist der Langtext aber das Letzte was gedruckt wird, weil Artikelnummer nicht gedruckt werden sollen, und schließt mit dem Seitenende ab, so muss trotzdem mit PosLine() die Position beendet werden, da auf der nächsten Seite die eine neue Position folgt.

falsch (Abfrage vor Bedingung):

                 if (y >= iSeitenlaenge -iFusszeilen) then begin
                   break;
                 end;

                 if (Pos('AU',PMode_Var(534)) <> 0) and (not empty(AZ_Query.FieldByName('az_artnr').AsString)) then begin

muss innerhalb der Bedingung nach dem Inc und vor Artikelnummerndruck:

                   if (y >= iSeitenlaenge -iFusszeilen) then begin
                     break;
                   end;

                   qSetRepStyle(EZ,fsItalic);
                   qRep_SText(EZ,'bez1','Art-Nr.: '+AZ_Query.FieldByName('az_artnr').AsString,qRep_YPos(EZ,y));
                   qSetRepStyle(EZ,fsNormal);

OBS/Adminhilfe/RTF: Unterschied zwischen den Versionen

Version vom 28. Oktober 2011, 11:05 Uhr

Inhaltsverzeichnis

Umstellung auf RTF

Was ist zu tun?

Druckanpassungen

Allgemeine Umstellung Drucke

Druckanpassungen

Fehlende Positionsbezeichnungen und Langtexte auf der Folgeseite

Leerzeile statt Lieferdatum

Möglichkeit Positionsmengen und -preise in erster oder letzter Zeile zu drucken

Berechnung von Überträgen und Zwischensummen fehlerhaft

Auftraggeber bei Rechnung ausdrucken

Versandanschrift bei Auftragsbestätigungen drucken

PosLine() am Positionsende immer drucken

Navigationsmenü