OBS/Adminhilfe/RTF: Unterschied zwischen den Versionen
Nimz (Diskussion | Beiträge) Keine Bearbeitungszusammenfassung |
Nimz (Diskussion | Beiträge) Keine Bearbeitungszusammenfassung |
||
| Zeile 117: | Zeile 117: | ||
suchen, ans Ende scrollen und Code abändern von: | suchen, ans Ende scrollen und Code abändern von: | ||
<source lang="delphi"> | <source lang="delphi"> | ||
cBuffer := ''; | cBuffer := ''; | ||
if (AZ_Query.FieldByName('az_lsnr').AsString <> '') then begin | if (AZ_Query.FieldByName('az_lsnr').AsString <> '') then begin | ||
cBuffer := cAllg10+AZ_Query.FieldByName('az_lsnr').AsString; | cBuffer := cAllg10+AZ_Query.FieldByName('az_lsnr').AsString; | ||
Version vom 27. Oktober 2011, 14:24 Uhr
Dies ist eine zugriffsgeschützte Seite.
- System Überwachung
- DEP deaktivieren
- Darstellung unter Windows 7
- Einwahl auf Windows 2000 Server
- Preislisten
- Datenbank Sicherung
- Customize
- Zentrale
- Support Macro
- Service Debug
- Historienprotokoll (Datenänderung OBS)
- Fernwartungsprobleme
- Startparameter
- Fehler beim Kassenabschluss
- Diverse Informationen
- A ras.pbk
- B Command Line Interpreter
- C File Zilla Benutzer XML erzeugen
- D1 OBS_UPDATE.EXE zum OBS Update Server hochladen
- D2 SUPPORT_MACRO zum OBS Update Server hochladen
- H1 Remote Service Protokoll-Übersicht (Alles)
- H Remote ServiceProtokoll-Übersicht
- I Remote Service Commands
- I1 (Admin) Globaler Hinweis für Updates
- J Liste der OBS Updates
- K Angemeldete Service Firmen
- L Systeminformationen einlesen
- M Kundendaten anzeigen
- M1 Kundendatenbankinformationen anzeigen
- N Kundendaten einlesen
- O Kunden-Update Informationen anzeigen
- P Modul Registrierung OBS
- Q App Verwaltung
- S1 Firmen Statistik Protokolle OBS
- S2 Statistik Notfallkassen
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.