Label Druck: Unterschied zwischen den Versionen

Aus OrgaMon Wiki
Zur Navigation springen Zur Suche springen
Keine Bearbeitungszusammenfassung
Keine Bearbeitungszusammenfassung
Zeile 29: Zeile 29:
PRINT
PRINT
PRINT [LAGER.NAME]
PRINT [LAGER.NAME]
REM ***************
REM * Bilder drucken *
REM ***************
PRINT "330","30","hebulogo.bmp"
</code>
<code>
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 ***************

Version vom 4. Juli 2007, 12:20 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.