Label Druck

OrgaMon erzeugt Einträge in die Tabelle "WARENBEWEGUNG". Bei Eintragungen in diese Tabelle kann ein Druckereignis ausgelöst werden, wenn der fest vorgegebene Ereignis-Name vorhanden ist. In diesem Fall wird das D-BASIC Script mit dem Ereignisnamen ausgeführt. Der als Spooler deklarierte Host (Einstellung LabelHost=) wird den Druckvorgang automatisch auslösen. Folgende Druckereignisse sind definiert.

Druckereignisse

Belegbuchung: Sobald ein Beleg gebucht wird.
Inventur.
Warenzugang.
Warenzugang Übergangsfach.
Warenzugang Lager.

verfügbare Tabellen

in dem jeweiligen D-BASIC Script kann auf Datenband Feldinhalte zugegriffen werden. Das Format ist hier

"[" <TabellenName> "." <FeldName|eCommerceFunktion> "]"

Beispiel: 

PRINT "Dauer: " & [ARTIKEL.DAUER]

<TabellenName>

WARENBEWEGUNG.*
ARTIKEL.*
ARTIKEL_AA.*
LAGER.*
PERSON.*
ANSCHRIFT.*
BELEG.*

<FeldName>

Über die möglichen Feldnamen informiert man sich am besten über ->System->Pflege->Datenbank->Browse

<eCommerceFunktion>

WARENBEWEGUNG.ePreis
WARENBEWEGUNG.eGTIN
ARTIKEL.ePreis
ARTIKEL_AA.ePreis
ADRESSE.0
ADRESSE.1
ADRESSE.2
ADRESSE.3
ADRESSE.4 // Strasse
ADRESSE.5 // Ort

Bilder drucken

Im Verzeichnis .\HTML Vorlagen können Bilder gespeichert werden, die dann auf einem Label ausgedruckt werden. Das Bild ist so vorzubereiten, dass es im Auflösungskontext des Druckers in der richtigen Grösse rauskommt. Das Bild kann zu jederzeit frei positioniert werden.

Beispiele

Adressaufkleber, Druckstückname "Belegbuchung"

REM **********************************
REM Adress-Aufkleber für 600 DPI Drucker 
REM Zahlen sind entsprechend gross und
REM müssen ev. vermindert werden.
REM **********************************  

LET ANZAHL="1"
LET X="680"
LET LY="20"
DEVICE "MP760"
FONT "Verdana","60","underline"
PRINT "Andreas Filsinger • Stettfelder 44 • 76698 Ubstadt" ;
FONT "Verdana","60","-"
PRINT
FONT "Verdana","120","-"
PRINT [ADRESSE.2]
PRINT [ADRESSE.3]
PRINT [ADRESSE.4]
FONT "Verdana","203","bold"
PRINT [ADRESSE.5]

Wareneingang, wirggf. mehrfach gedruckt!

DEVICE "Epson LQ-1050+"
LET TITEL = ANZAHL & "x " & [ARTIKEL.TITEL] & " -> " & [LAGER.NAME]
LET X = "0"
LET Y = "0"
FONT "Verdana","10"
PRINT SQL ("select KUERZEL from AUSGABEART where RID=" & [WARENBEWEGUNG.AUSGABEART_R] );
PRINT [ARTIKEL.TITEL]
PRINT
PRINT [ARTIKEL.NUMERO] 
PRINT
REM *****************
REM * SQL verwenden  *
REM *****************
PRINT SQL ( "select SUCHBEGRIFF from PERSON where RID=" & [ARTIKEL.VERLAG_R] )
PRINT [ARTIKEL.VERLAGNO]
PRINT
PRINT [LAGER.NAME]

REM ***************
REM * Bilder drucken *
REM ***************
PRINT "330","30","hebulogo.bmp"

Wareneingang, wirggf. mehrfach gedruckt!

DEVICE "Epson LQ-1050+"
REM ********************
REM DEVICE "FreePDF"
REM ********************
LET TITEL = ANZAHL & "x " & [ARTIKEL.TITEL] & " -> " & [LAGER.NAME]
LET X = "0"
LET Y = "0"
FONT "Verdana","10"
PRINT SQL ("select KUERZEL from AUSGABEART where RID=" & [WARENBEWEGUNG.AUSGABEART_R] );
PRINT [ARTIKEL.TITEL]
PRINT
PRINT [ARTIKEL.NUMERO] 
PRINT
REM *****************
REM * SQL verwenden  *
REM *****************
PRINT SQL ( "select SUCHBEGRIFF from PERSON where RID=" & [ARTIKEL.VERLAG_R] )
PRINT [ARTIKEL.VERLAGNO]
PRINT
 
REM ***************
REM * Bilder drucken *
REM ***************
PRINT "330","30","hebulogo.bmp"