Label Druck: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Root (Diskussion | Beiträge) Keine Bearbeitungszusammenfassung |
|||
Zeile 108: | Zeile 108: | ||
PRINT "330","30","hebulogo.bmp" | PRINT "330","30","hebulogo.bmp" | ||
</code> | </code> | ||
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"