Label Druck

Aus OrgaMon Wiki
Zur Navigation springen Zur Suche springen

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

Beispiele

REM **********************************
REM Adress-Aufkleber für 600 DPI Drucker 
REM Zahlen sind entsprechend gross und
REM müssen ev. vermindert werden.
REM **********************************  
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]


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"

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"

Label bezeichnungen

 Lageretikettendruck:
 Wie bereits besprochen h�tte ich gerne eine Funktion, die bei einem Wareneingang
 ein Etikett auf einen Nadeldrucker auswirft. Achtung: Die Druckfunktion darf nur
 - automatisch bei einem Wareneingang gestartet werden, da der Artikel bei einer
   Lagerbewegung vom Lagerplatz zum �bergangsfach eigentlich ja schon ein Etikett
   vom Wareneingang tr�gt. Daf�r gibt es ja dann noch die Liste, die man sich
   ausdrucken kann. Auf dieser Liste - sprich "Agent-Wareneingang Gesamt" sollen
   auch die Positionen nicht mehr erscheinen, die durch Etiketten gedruckt wurden
   um weitere Verwirrung zu vermeiden und die "Warenbewegungsliste" klein und
   �bersichtlich zu gestalten.
 So ein Lageretikett soll dann in etwa folgenden Aufbau haben:
 1. Im Falle einer Lagerzubuchung:
 137449
 Music (Chorus & Wind Band)
 Editions Marc Reift
 H02-44
 2. Im Falle einer �bergangsfachbuchung:
 137449
 Music (Chorus & Wind Band)
 Editions Marc Reift
 �B 13-08
 Etiketten sollen auch manuell nachgedruckt werden k�nnen. Diese Funktion
 k�nnte bei den Artikeln durch einen Button gel�st werden.