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 : onmiddelijk afdrukken van een etiket Add, AddClone and Print2Bartender : eerst toevoegen van etiketten en daarna starten van de afdruk(ken)]]> vhLib.Macro 1 %RegisteredObject 0 ##class(TECH.Config.ConfigMgr).Instance().GetString("PrintFileDropFolder") "bartender" "anonymous" "pv@vanhoecke.be" OrgaluxColor2 \\BARTENDER\TestBestanden\ C:\Bartender\Templates\ %String %String %Boolean %String 1 businesslogic instantieren 1 Debug %Status onmiddellijk 1 etiket afdrukken 1 pxLabel,Debug 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 1 FullDevicePad:%Library.String Ophalen van een layout Default value = 10x10 1 Printer,DoelCode 1 Layout %String 1 Layout %String Vertaling van device naar de echte device naam gekend door Bartender 1 Device clonen van een labelobject en toevoegen aan de businesslogic om later af te drukken pxLabel toevoegen van een labelobject aan de businesslogic om later af te drukken pxLabel afdrukken van de gedefineerde etiketten Debug File Bartender tekstbestand openen en de Bartenderheader schrijven BartDevice,BartLayout 1 9999999 Lock +^Sys.LabelPrinterD Set ^Sys.LabelPrinterD=0 Lock -^Sys.LabelPrinterD Use File Write "%BTW% /AF="""_..#BartenderLayoutPath_BartLayout_".btw"" /PRN="""_BartDevice_""" /R=3 /P /D= /CLOSE",$C(13,10) Write "%END%",$C(13,10) Quit File ]]> Bartender tekstbestand openen en de Bartenderheader schrijven Do ##class(BL.Sys.LabelPrinter).Clean() 1