Label Druck: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Keine Bearbeitungszusammenfassung |
|||
Zeile 12: | Zeile 12: | ||
<code> | <code> | ||
DEVICE "Epson LQ-1050+" | DEVICE "Epson LQ-1050+" | ||
LET TITEL = ANZAHL & "x " & [ARTIKEL.TITEL] & " -> " & [LAGER.NAME] | LET TITEL = ANZAHL & "x " & [ARTIKEL.TITEL] & " -> " & [LAGER.NAME] | ||
LET X = "0" | LET X = "0" | ||
LET Y = "0" | LET Y = "0" | ||
FONT "Verdana","10" | FONT "Verdana","10" | ||
PRINT SQL ("select KUERZEL from AUSGABEART where RID=" & [WARENBEWEGUNG.AUSGABEART_R] ); | PRINT SQL ("select KUERZEL from AUSGABEART where RID=" & [WARENBEWEGUNG.AUSGABEART_R] ); | ||
PRINT [ARTIKEL.TITEL] | PRINT [ARTIKEL.TITEL] | ||
PRINT | PRINT | ||
PRINT [ARTIKEL.NUMERO] | PRINT [ARTIKEL.NUMERO] | ||
PRINT | PRINT | ||
REM ***************** | REM ***************** | ||
REM * SQL verwenden * | REM * SQL verwenden * | ||
REM ***************** | REM ***************** | ||
PRINT SQL ( "select SUCHBEGRIFF from PERSON where RID=" & [ARTIKEL.VERLAG_R] ) | PRINT SQL ( "select SUCHBEGRIFF from PERSON where RID=" & [ARTIKEL.VERLAG_R] ) | ||
PRINT [ARTIKEL.VERLAGNO] | PRINT [ARTIKEL.VERLAGNO] | ||
PRINT | PRINT | ||
PRINT [LAGER.NAME] | PRINT [LAGER.NAME] | ||
REM *************** | REM *************** | ||
REM * Bilder drucken * | REM * Bilder drucken * | ||
REM *************** | REM *************** | ||
PRINT "330","30","hebulogo.bmp" | PRINT "330","30","hebulogo.bmp" | ||
</code> | </code> | ||
<code> | <code> | ||
DEVICE "Epson LQ-1050+" | DEVICE "Epson LQ-1050+" | ||
REM ******************** | REM ******************** | ||
REM DEVICE "FreePDF" | REM DEVICE "FreePDF" | ||
REM ******************** | REM ******************** | ||
LET TITEL = ANZAHL & "x " & [ARTIKEL.TITEL] & " -> " & [LAGER.NAME] | LET TITEL = ANZAHL & "x " & [ARTIKEL.TITEL] & " -> " & [LAGER.NAME] | ||
LET X = "0" | LET X = "0" | ||
LET Y = "0" | LET Y = "0" | ||
FONT "Verdana","10" | FONT "Verdana","10" | ||
PRINT SQL ("select KUERZEL from AUSGABEART where RID=" & [WARENBEWEGUNG.AUSGABEART_R] ); | PRINT SQL ("select KUERZEL from AUSGABEART where RID=" & [WARENBEWEGUNG.AUSGABEART_R] ); | ||
PRINT [ARTIKEL.TITEL] | PRINT [ARTIKEL.TITEL] | ||
PRINT | PRINT | ||
PRINT [ARTIKEL.NUMERO] | PRINT [ARTIKEL.NUMERO] | ||
PRINT | PRINT | ||
REM ***************** | REM ***************** | ||
REM * SQL verwenden * | REM * SQL verwenden * | ||
REM ***************** | REM ***************** | ||
PRINT SQL ( "select SUCHBEGRIFF from PERSON where RID=" & [ARTIKEL.VERLAG_R] ) | PRINT SQL ( "select SUCHBEGRIFF from PERSON where RID=" & [ARTIKEL.VERLAG_R] ) | ||
PRINT [ARTIKEL.VERLAGNO] | PRINT [ARTIKEL.VERLAGNO] | ||
PRINT | PRINT | ||
REM *************** | REM *************** | ||
REM * Bilder drucken * | REM * Bilder drucken * | ||
REM *************** | REM *************** | ||
PRINT "330","30","hebulogo.bmp" | PRINT "330","30","hebulogo.bmp" | ||
</code> | </code> | ||
Version vom 4. Juli 2007, 11:21 Uhr
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 wird den Druckvorgang auslösen. Folgende Druckereignisse sind definiert.
Belegbuchung: Sobald ein Beleg gebucht wird.
Inventur.
Warenzugang.
Warenzugang Übergangsfach.
Warenzugang Lager.
Beispiele
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.