Begrippen DoelCode : Waarvoor een template gebruikt wordt LabelGrootte : grootte van etiket (bv 8x11) mogelijk aangevuld met type drager Locatie : Waar de labelprinter geplaatst (in het magazijn kan dit een werkpost zijn of een softmagazijn Layout : Naam van de bartender template, om de templatebestand te bekomen moet je er .btw achter plaatsen Device : Naam van de printer, om de printerpad te bekomen moet je deze nog vertalen via FullDevicePad Selectie van printer en layouttemplate Devices : geeft een array met labelprinters vertrekkend van een layout of labelsize Layouts : geeft een array met layouts vertrekkend van een doelcode LayoutTemplate : geeft een layout vertrekkend van een device of layout Toevoegen van af te drukken van etiketten PrintDirect2Bartender : onmiddellijk afdrukken van een etiket Add, AddClone and Print2Bartender : eerst toevoegen van etiketten en daarna starten van de afdruk(ken)]]> vhLib.Macro 1 %RegisteredObject %String ##class(TECH.Config.ConfigMgr).Instance().GetString("PrintFileDropFolder") %String "bartender" %String "anonymous" %String "pv@vanhoecke.be" %String OrgaluxColor2 %String \\BARTENDER\TestBestanden\ %String C:\Bartender\Templates\ %String %String %Boolean %String 1 businesslogic instantieren 1 Debug:%Boolean BL.Sys.LabelPrinter %Status Pad:%String %Status onmiddellijk 1 etiket afdrukken 1 pxLabel:APPS.common.Print.AbstractLabel,Debug:%Boolean Lijst van labelprinter met optionele beperking op labelcode. De labelcode kan rechtstreeks ingevuld worden of gedefineerd via de Layout 1 1 Vertrekkend van de DoelCode en Magazijn wordt het printerdevice bepaald 1 DoelCode:%String="",Locatie:%String %String Lijst van layout met beperking op mogelijke beperking op DoelType. Het DoelType geeft aan waarvoor het etiket moet gebruikt worden, handig als er gelijkaardige ontwerpen bestaan (bv. met en zonder product afbeelding) 1 Ophalen van het LabelGrootte voor een bepaalde printer Default value = 10x10 1 Printer:%String %String 1 FullDevicePad:%Library.String Ophalen van een layout Default value = 10x10 1 Printer:%String,DoelCode:%String 1 Layout:%String %String 1 Layout:%String %String Vertaling van device naar de echte device naam gekend door Bartender 1 Device:%String clonen van een labelobject en toevoegen aan de businesslogic om later af te drukken pxLabel:APPS.common.Print.AbstractLabel toevoegen van een labelobject aan de businesslogic om later af te drukken pxLabel:APPS.common.Print.AbstractLabel afdrukken van de gedefineerde etiketten per device en layout BartDevice:%String,BartLayout:%String 1 %String BartDevice:%String,BartLayout:%String 1 %String /CLOSE",$C(13,10) Write "%END%",$C(13,10) Do ..WriteFile(File,BartDevice,BartLayout) Do Io.Reset() #dim Result as %String = Io.GeefStream().Read() Do Io.KuisOp() Quit Result ]]> FileName:%String,BartDevice:%String,BartLayout:%String 1 ]]> Etiketten:%ListOfObjects File:%CacheString Bartender tekstbestand openen en de Bartenderheader schrijven BartDevice:%String,BartLayout:%String 1 %CacheString /CLOSE",$C(13,10) Write "%END%",$C(13,10) Quit File ]]> BartDevice:%String,BartLayout:%String 1 BartDevice:%String 1 %String 1