Barcode(
"01"+
Artikel.EAN+
chr$(12)+
Cond(Artikel.IstMHDArtikel,"17","")+
Cond(Artikel.IstMHDArtikel,Date$(Date(JTL_DirectQuery ("SELECT TOP 1 dMHD FROM tWarenLagerEingang WHERE kArtikel = "+FStr$(Artikel.InterneArtikelnummer,'?&')+" ORDER BY kWarenLagerEingang DESC")),"%y%02m%02d"),"")+
chr$(12)+
"30"+
Fstr$(JTL_DirectQuery ("SELECT TOP 1 fAnzahl FROM tWarenLagerEingang WHERE kArtikel = "+FStr$(Artikel.InterneArtikelnummer,'?&')+" ORDER BY kWarenLagerEingang DESC")+
chr$(12)+
Cond(Artikel.IstChargenArtikel,"10","")+
Cond(Artikel.IstChargenArtikel,JTL_DirectQuery ("SELECT TOP 1 cChargenNr FROM tWarenLagerEingang WHERE kArtikel = "+FStr$(Artikel.InterneArtikelnummer,'?&')+" ORDER BY kWarenLagerEingang DESC"),"?&"),""),
"QRCode")