Index: APPS/VisiDot/enu/Zijkant.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/enu/Zijkant.cls.xml	(revision 0)
+++ APPS/VisiDot/enu/Zijkant.cls.xml	(revision 2019)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.enu.Zijkant">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,A,B</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;A;B</Default>
+</Parameter>
+
+<Method name="A">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Quit "A"
+]]></Implementation>
+</Method>
+
+<Method name="B">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Quit "B"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: CHUI/Printer/Printer.cls.xml
===================================================================
diff -u
--- CHUI/Printer/Printer.cls.xml	(revision 0)
+++ CHUI/Printer/Printer.cls.xml	(revision 2019)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="CHUI.Printer.Printer">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="KiesCompatibelePrinter">
+<Description>
+De compatibele printers tonen in een popup, 
+Return : Naam van de gekozen printer.
+Kan leeg zijn als op '-' gedrukt worden : dit opvangen in applicatie
+
+Vb : Set Printer = ##class(CHUI.Printer.Printer).KiesCompatibelePrinter("VHOSS")</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Label:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+		
+		Set CompatiblePrinters = ""
+		Do ##class(BL.Sys.LabelPrinter).CompatibleDevices(.CompatiblePrinters,Label)
+		
+		Set Printers=""
+		For i=1:1:CompatiblePrinters {
+			 Set Printers(i)=CompatiblePrinters(i)
+		}
+		Set Printer=$$WILD^vhPOPUP("C;C","O1-","Kies uw printer",.Printers)
+		
+		Quit Printer
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/VHossEtiketPrinter.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/VHossEtiketPrinter.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/VHossEtiketPrinter.cls.xml	(revision 2019)
@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.VHossEtiketPrinter">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="LabelPrinter">
+<Type>BL.Sys.LabelPrinter</Type>
+</Property>
+
+<Property name="PrintDevice">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..LabelPrinter=##class(BL.Sys.LabelPrinter).%New()
+	Set ..PrintDevice  = ##class(BL.Sys.LabelPrinter).DefaultDevice("VHOSS")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="PrintEtiket">
+<Description>
+één etiket afprinten van wel bepaalde VHossID</Description>
+<FormalSpec>Nr:%Integer,Zijkant:APPS.VisiDot.enu.Zijkant,PrintDevice:%String="",DoPrint:%Boolean=1</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set pxLabel = ##class(APPS.VisiDot.dto.VHoss2DLabel).%New()
+	Set pxLabel.VHossNr = Nr
+	Set pxLabel.VHossZijkant = Zijkant
+	Do ##class(BL.Sys.LabelPrinter).Layouts(.Result,"VHOSS")
+	If $Data(Result(1)){
+		Set pxLabel.Layout = $Piece(Result(1),"`")
+	}
+	Set:(PrintDevice '= "") ..PrintDevice = PrintDevice
+	Set pxLabel.Device = ..PrintDevice
+	Do ..LabelPrinter.Add(pxLabel)
+	Do:(DoPrint) ..LabelPrinter.Print2Bartender()
+]]></Implementation>
+</Method>
+
+<Method name="AdminInterface">
+<Description>
+method om via Admin alle input te verzamelen.</Description>
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Set VHossEtiketPrinter = ..%New()
+	Write @F11,@F1,@FMTI,"Printen VHoss ID labels - ",QN,@FMTi
+	Set FP=0303 Write @F,"Geef de range op van VHoss ID's die u wilt printen."
+	Set FP=0403 Write @F,"Voorbeelden:"
+	Set FP=0418 Write @F,"""12"", ""15,25"", ""15-20"""
+	Set FP=0603 Write !,@F Write "Vhoss ID's: ",@FMTI
+	Read VHossIDs
+	Write @FMTi
+	If (VHossIDs '= "-"){
+		Set VHossIDIt = ##class(TECH.Print.PrintUtils).RangesToIterator(VHossIDs)		
+		Set Printer = ##class(CHUI.Printer.Printer).KiesCompatibelePrinter("VHOSS")
+	 	If Printer '= "" {		
+	 		Set VHossEtiketPrinter.PrintDevice = Printer
+			Set FP=2403 Write !,@F Write "De Vhoss ID labels worden afgeprint op printer '"_Printer_"'.","[]=OK"
+			Do VHossEtiketPrinter.PrintEtiketten(VHossIDIt)
+			Read Enter
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="PrintEtiketten">
+<Description>
+Etiketten afprinten van VHossID's die in de iterator zitten.</Description>
+<FormalSpec>VHossIDIt:TECH.ListIterator</FormalSpec>
+<Implementation><![CDATA[
+	Set DoPrint = 0
+	
+	While (VHossIDIt.HasNext()){
+		Set VHossID = VHossIDIt.Next()
+		Do ..PrintEtiket(VHossID,##class(APPS.VisiDot.enu.Zijkant).A(),,DoPrint)
+		Do ..PrintEtiket(VHossID,##class(APPS.VisiDot.enu.Zijkant).B(),,DoPrint)
+	}
+	
+	Do ..LabelPrinter.Print2Bartender()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/VHossProductionHelper.cls.xml
===================================================================
diff -u -r1808 -r2019
--- APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(.../VHossProductionHelper.cls.xml)	(revision 1808)
+++ APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(.../VHossProductionHelper.cls.xml)	(revision 2019)
@@ -37,14 +37,14 @@
 <Method name="BuildLadeID">
 <Description>
 </Description>
-<FormalSpec>Batch:%Integer,VHossSeqNr:%List,VHossZijkant:%String,Product:%Integer</FormalSpec>
+<FormalSpec>Batch:%Integer,VHossSeqNr:%List,VHossZijkant:APPS.VisiDot.enu.Zijkant,Product:%Integer</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Justify(Batch,5)_..Justify(VHossSeqNr,2)_..Justify(VHossZijkant,1)_..Justify(Product,8)
 ]]></Implementation>
 </Method>
 
 <Method name="BuildVHossID">
-<FormalSpec>VHossNr,Zijkant</FormalSpec>
+<FormalSpec>VHossNr:%Integer,Zijkant:APPS.VisiDot.enu.Zijkant</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit "O1"_Zijkant_..Justify(VHossNr,7)
 ]]></Implementation>
Index: TECH/Print/PrintUtils.cls.xml
===================================================================
diff -u
--- TECH/Print/PrintUtils.cls.xml	(revision 0)
+++ TECH/Print/PrintUtils.cls.xml	(revision 2019)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Print.PrintUtils">
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Seperator">
+<Type>%String</Type>
+<Default>,</Default>
+</Parameter>
+
+<Parameter name="RangeChar">
+<Type>%String</Type>
+<Default>-</Default>
+</Parameter>
+
+<Method name="RangesToIterator">
+<Description>
+Zet een range lijst om in een ListIterator.
+Vb: "12" , "12,15,136", "12,56-60,12"</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Ranges:%String</FormalSpec>
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[
+		Set List = ##class(%ListOfDataTypes).%New()
+		For i=1:1:$Length(Ranges,..#Seperator) {
+			Set Range = $Piece(Ranges,..#Seperator,i)
+			If ##class(TECH.Integer).IsValidDT(Range) {
+				Do List.Insert(Range)	
+			}ElseIf((Range[..#RangeChar) & ($Length(Range,..#RangeChar) = 2)) {
+				Set Start = $Piece(Range,..#RangeChar)
+				Set Eind = $Piece(Range,..#RangeChar,2)
+				If (##class(TECH.Integer).IsValidDT(Start) & ##class(TECH.Integer).IsValidDT(Eind)){
+					If (Start < Eind) {
+						For j=Start:1:Eind {
+							Do List.Insert(j)
+						}	
+					}
+				}
+			}
+		}		
+		Quit ##class(TECH.ListIterator).%New(List)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/TECH/Print/TestPrintUtils.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Print/TestPrintUtils.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Print/TestPrintUtils.cls.xml	(revision 2019)
@@ -0,0 +1,62 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.Print.TestPrintUtils">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug","TECH.Print.TestPrintUtils")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestRangesToIteratorKomma">
+<Implementation><![CDATA[
+		Set Ranges = "12,15,2563"
+		Set RangeIt = ##class(TECH.Print.PrintUtils).RangesToIterator(Ranges)
+		Set Lijst = ""
+		While (RangeIt.HasNext()){
+			Set Lijst = Lijst_RangeIt.Next()
+			If RangeIt.HasNext() Set Lijst = Lijst _"\"
+		}
+		Do $$$AssertEquals($Piece(Lijst,"\",1),12,"Komma gescheiden waarden : waarde 1 OK")
+		Do $$$AssertEquals($Piece(Lijst,"\",2),15,"Komma gescheiden waarden : waarde 2 OK")
+		Do $$$AssertEquals($Piece(Lijst,"\",3),2563,"Komma gescheiden waarden : waarde 3 OK")
+]]></Implementation>
+</Method>
+
+<Method name="TestRangesToIteratorStreep">
+<Implementation><![CDATA[
+		Set Ranges = "40-42"
+		Set RangeIt = ##class(TECH.Print.PrintUtils).RangesToIterator(Ranges)
+		Set Lijst = ""
+		While (RangeIt.HasNext()){
+			Set Lijst = Lijst_RangeIt.Next()
+			If RangeIt.HasNext() Set Lijst = Lijst _"\"
+		}
+		Do $$$AssertEquals($Piece(Lijst,"\",1),40,"Komma gescheiden waarden : waarde 1 OK")
+		Do $$$AssertEquals($Piece(Lijst,"\",2),41,"Komma gescheiden waarden : waarde 2 OK")
+		Do $$$AssertEquals($Piece(Lijst,"\",3),42,"Komma gescheiden waarden : waarde 3 OK")
+]]></Implementation>
+</Method>
+
+<Method name="TestRangesToIteratorCombinatie">
+<Implementation><![CDATA[
+		Set Ranges = "1,40-42,12,96-100"
+		Set RangeIt = ##class(TECH.Print.PrintUtils).RangesToIterator(Ranges)
+		Set Lijst = ""
+		While (RangeIt.HasNext()){
+			Set Lijst = Lijst_RangeIt.Next()
+			If RangeIt.HasNext() Set Lijst = Lijst _"\"
+		}
+		Do $$$AssertEquals($Piece(Lijst,"\",1),1,"Komma gescheiden waarden : waarde 1 OK")
+		Do $$$AssertEquals($Piece(Lijst,"\",2),40,"Komma gescheiden waarden : waarde 2 OK")
+		Do $$$AssertEquals($Piece(Lijst,"\",3),41,"Komma gescheiden waarden : waarde 3 OK")
+		Do $$$AssertEquals($Piece(Lijst,"\",4),42,"Komma gescheiden waarden : waarde 4 OK")
+		Do $$$AssertEquals($Piece(Lijst,"\",5),12,"Komma gescheiden waarden : waarde 5 OK")
+		Do $$$AssertEquals($Piece(Lijst,"\",6),96,"Komma gescheiden waarden : waarde 6 OK")
+		Do $$$AssertEquals($Piece(Lijst,"\",7),97,"Komma gescheiden waarden : waarde 7 OK")
+		Do $$$AssertEquals($Piece(Lijst,"\",8),98,"Komma gescheiden waarden : waarde 8 OK")
+		Do $$$AssertEquals($Piece(Lijst,"\",9),99,"Komma gescheiden waarden : waarde 9 OK")
+		Do $$$AssertEquals($Piece(Lijst,"\",10),100,"Komma gescheiden waarden : waarde 10 OK")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/dto/VHoss2DLabel.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/VHoss2DLabel.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/VHoss2DLabel.cls.xml	(revision 2019)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.VHoss2DLabel">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>BL.Sys.pxLabel</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Label">
+<Type>%String</Type>
+<InitialExpression>"VHossID :"</InitialExpression>
+</Property>
+
+<Property name="VHossNr">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="VHossZijkant">
+<Type>APPS.VisiDot.enu.Zijkant</Type>
+</Property>
+
+<Method name="WriteRow">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+		/// VHossID opbouwen
+		Set VHossProductionHelper = ##class(APPS.VisiDot.impl.VHossProductionHelper).%New()
+		Set VHossID = VHossProductionHelper.BuildVHossID(..VHossNr, ..VHossZijkant)
+		
+		/// VHossID uitschrijven
+		Write VHossID,*9,..Label
+		Write $C(13,10)
+		
+		Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: PV VisiDot.prj.xml
===================================================================
diff -u -r1866 -r2019
--- PV VisiDot.prj.xml	(.../PV VisiDot.prj.xml)	(revision 1866)
+++ PV VisiDot.prj.xml	(.../PV VisiDot.prj.xml)	(revision 2019)
@@ -1,11 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="PV VisiDot" LastModified="2011-08-24 13:40:51">
+<Project name="PV VisiDot" LastModified="2011-09-08 16:25:29">
   <Items>
     <ProjectItem name="APPS.Halux.common.BatchService" type="CLS"/>
     <ProjectItem name="APPS.Halux.common.impl.BatchImpl" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.Controleur" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.ControleurFactory" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.EtiketPrinter" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.Tech" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.dto.Camera" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.dto.CaptureInfo" type="CLS"/>
@@ -26,13 +27,15 @@
     <ProjectItem name="APPS.VisiDot.dto.Sequence" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.dto.StatusLight" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.dto.UserInfo" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.dto.VHoss2DLabel" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.dto.VRRead" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.enu.ActionCodes" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.enu.DetectionKleur" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.enu.DetectionTypes" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.enu.FoutCodes" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.enu.FoutTypes" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.enu.ResultCodes" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.enu.Zijkant" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.CaptureHelper" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.DetectionHelper" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.DetectionIterator" type="CLS"/>
@@ -42,15 +45,27 @@
     <ProjectItem name="APPS.VisiDot.impl.VHossCaptureHelper" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.VHossControleurEnd" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.VHossControleurZijkant" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.impl.VHossEtiketPrinter" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.VHossFrameDetectionHelper" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.VHossLadeDetectionHelper" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.VHossLadeIterator" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.VHossProductionHelper" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.VHossSlotDetectionHelper" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.VHossSlotIterator" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.impl.pxLabelVHoss" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.zTryout" type="CLS"/>
+    <ProjectItem name="BL.PPS.TBX.DocsProPlus" type="CLS"/>
+    <ProjectItem name="BL.PPS.TBX.DocsV1" type="CLS"/>
+    <ProjectItem name="BL.PPS.TBX.sub.pxLabelKlant" type="CLS"/>
+    <ProjectItem name="BL.PPS.TBX.sub.pxLabelProPlus" type="CLS"/>
+    <ProjectItem name="BL.PPS.TBX.sub.pxLabelV1" type="CLS"/>
+    <ProjectItem name="BL.Sys.LabelPrinter" type="CLS"/>
+    <ProjectItem name="BL.Sys.pxLabel" type="CLS"/>
+    <ProjectItem name="CHUI.Printer.Printer" type="CLS"/>
     <ProjectItem name="DS.PPS.TBX.Queue" type="CLS"/>
     <ProjectItem name="DS.PPS.TBX.sub.emWPVerpak" type="CLS"/>
+    <ProjectItem name="HADETIK.MAC" type="MAC"/>
+    <ProjectItem name="TECH.Print.PrintUtils" type="CLS"/>
     <ProjectItem name="WS.VisiDot.OperatorServer" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.TestCaptureHelper" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.TestDetectionHelper" type="CLS"/>
@@ -60,6 +75,7 @@
     <ProjectItem name="vhUnitTest.APPS.VisiDot.VHossTestCase" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.impl.BuildQueue" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.impl.BuildVHossCapture" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.Print.TestPrintUtils" type="CLS"/>
   </Items>
 </Project>
 </Export>
Index: vhDeploy/JBL/Deploy20110909x0827.cls.xml
===================================================================
diff -u
--- vhDeploy/JBL/Deploy20110909x0827.cls.xml	(revision 0)
+++ vhDeploy/JBL/Deploy20110909x0827.cls.xml	(revision 2019)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.JBL.Deploy20110909x0827">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>Toevoegen menuitem 33.25 'Print VHossID's</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Set ^KBA("MENU",112,25)= "Print VHossID's\11\44\##class(APPS.VisiDot.impl.VHossEtiketPrinter).AdminInterface()\D\##class(APPS.VisiDot.impl.VHossEtiketPrinter).AdminInterface()\\\\\\\\\JBL\09.09.11\8 u 31"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/EtiketPrinter.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/EtiketPrinter.cls.xml	(revision 0)
+++ APPS/VisiDot/EtiketPrinter.cls.xml	(revision 2019)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.EtiketPrinter">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="PrintEtiket">
+<Description>
+één etiket afprinten van wel bepaalde VHossID</Description>
+<Abstract>1</Abstract>
+<FormalSpec>Nr:%Integer,Zijkant:APPS.VisiDot.enu.Zijkant,PrintDevice:%String="",DoPrint:%Boolean=1</FormalSpec>
+<ReturnType>%Status</ReturnType>
+</Method>
+
+<Method name="PrintEtiketten">
+<Description>
+Etiketten afprinten van VHossID's die in de iterator zitten.</Description>
+<Abstract>1</Abstract>
+<FormalSpec>VHossIDIt:TECH.ListIterator</FormalSpec>
+</Method>
+</Class>
+</Export>
Index: BL/Sys/pxLabel.cls.xml
===================================================================
diff -u -r1074 -r2019
--- BL/Sys/pxLabel.cls.xml	(.../pxLabel.cls.xml)	(revision 1074)
+++ BL/Sys/pxLabel.cls.xml	(.../pxLabel.cls.xml)	(revision 2019)
@@ -64,5 +64,12 @@
    Quit "logo\"_Picture
 ]]></Implementation>
 </Method>
+
+<Method name="WriteRow">
+<Abstract>1</Abstract>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	
+]]></Implementation>
+</Method>
 </Class>
 </Export>