Label Druck

Labeldruck

OrgaMon erzeugt Einträge in die Tabelle "WARENBEWEGUNG". Bei Eintragungen in diese Tabelle kann ein Druckereignis ausgelöst werden. Der als Spooler deklarierte Host (Einstellung LabelHost=) wird den Druckvorgang auslösen. Folgende Druckereignisse sind definiert.

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

verfügbare Tabellen

WARENBEWEGUNG.*
WARENBEWEGUNG.ePreis
ARTIKEL.*
ARTIKEL.ePreis
LAGER.*
PERSON.*
ANSCHRIFT.*
BELEG.*
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"