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

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 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"

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.