AvERP-Designer für Fortgeschrittene

Nachdem die Seite "Keine Angst vor dem AvERP-Designer" gerne besucht wird, soll es eine Fortsetzung geben:

Ersatzteil-Etiketten in Kundensprache

FRDFR4BETT
FRDFR4BETT2

Ausdruck Ersatzteil-Etiketten aus Auftrag (zu jeder Position ein Etikett)
Aus Auftragsposition

Studie: Zunächst konstante Texte in Deutsch

Aufgabe

Die festen deutschen Bezeichnungen
Auftrag
Ihre Best-Nr.
Bezeichnung
Artikel-Nr.
Ihre Art.Nr.
Menge

Bei Sprachwahl Englisch in Englisch Drucken

So sieht es schon aus...

ToDo

Druck Dialog mit Vorschlag der Druck-Sprache aktivieren
Sprache sinnvoll vorbelegen
Übersetzung der festen Texte in AvERP-DB anlegen

Druck-Dialog? Dann bFormShow True

Ob vor dem Druck die Maske zur Abfrage weiterer Parameter
mit den Knöpfen „OK“ und „Abbruch“ geöffnet wird, hängt von der
Eigenschaft „bFormShow = True“ des Objekts FRDFR4BETT selber ab.

Druck-Dialog ergänzen

Initial enthält ein Druck-Dialog nur die Knöpfe „Abbrechen“ und „OK“.

Über frmDruckDesignSteuerung und Doppel-Klick auf Tlabel werden zunächst die Label_2
bis Label_7 hinzugefügt.

Vorher auf den Druck-Dialog den Cursor über Click ungefähr dort positionieren, wo die neuen Label landen sollen.

Außerdem wird ein Feld TMaskEdit zur Eingabe der Sprache benötigt.

Anschließend in der Design Steuerung den DM1-Modus aktivieren um die neuen Label über Drag – und Drop zurechtzurücken.

Über Caption können im DM1-Modus die Label direkt benannt werden.
Auch die anderen Eigeschaften wie Left und Top können direkt geändert werden.

Zur gemeinsamen Ausrichtung mehrer Objekte diese mit gehaltener Shift-Taste anklicken und hier den gemeinsamen Left-Wert 204 vergeben.

Klick ins Leere hebt die Gruppierung auf.

 

In der Maske sind nun alle Label sinnvoll benannt.
Das Eingabefeld auf EDIT_1 umbenannt.

Die Sprache wird über die ID s in der Tabelle BSPRA gesteuert,
hier halt 1 D Deutsch, 2 ENG Englisch, 5 CN Chinesisch, 9 Französisch,
11 Flämisch/Niederländisch.

Chinesich hier vorerst in Klammern, solange AvERP wegen der verwendeten Delphi-Version kein Unicode unterstützt wird es mit Druck in Chinesisch Nichts werden, aber wir geben die Hoffnung nicht auf!

Sprache sinnvoll vorbelegen OnFormShow

OnFormShow (Rechtsklick auf Maske, Objectinspector aufrufen, Rechtsklick ins Graue, OnFormShow checken) Begin EDIT_1.text := 1; End;