PARAMETERS nazev, kod, pocet
*****  verze pro shop prazdroj plzen  *****
kod = ALLTRIM(m.kod)
WAIT m.nazev + "  " + kod + "  " + STR(pocet) WINDOW NOWAIT 
SET PRINTER TO NAME (m.ean_print)
PRIVATE crlf
crlf = CHR(13)
   ??? CHR(2)+"M0500"
   ??? CHR(2)+"O0215"
   ??? CHR(2)+"L"
   ??? "H10"
   IF LEN(m.kod) > 7
       ??? "1F1103300060012" + PADL(m.kod, 12, "0") + crlf
   ELSE
       ??? "1G1103300060033" + PADL(m.kod, 7,  "0") + crlf
   ENDIF
   ??? "101100000550011" + UPPER(LEFT(m.nazev, 20)) + crlf
   ??? "Q" + TRANS(m.pocet, "@L 9999")+ crlf
   ??? "E"+crlf
SET PRINTER TO
WAIT m.nazev + "  " + kod + "  " + str(pocet) WINDOW TIMEOUT .5
