Label Druck: Unterschied zwischen den Versionen

Aus OrgaMon Wiki
Zur Navigation springen Zur Suche springen
Keine Bearbeitungszusammenfassung
Zeile 108: Zeile 108:
  PRINT "330","30","hebulogo.bmp"
  PRINT "330","30","hebulogo.bmp"
</code>
</code>
== 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.

Version vom 31. Januar 2008, 16:29 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 (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"