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

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.