Index: vhUnitTest/BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator/GenereerProboxBarcodeEtiket.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator/GenereerProboxBarcodeEtiket.cls.xml	(revision 0)
+++ vhUnitTest/BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator/GenereerProboxBarcodeEtiket.cls.xml	(revision 68235)
@@ -0,0 +1,101 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.PPS.TBX.DocsV1.ProboxBarcodeEtiketGenerator.GenereerProboxBarcodeEtiket">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductId1">
+<Default>1111111</Default>
+</Parameter>
+
+<Parameter name="ProductId2">
+<Default>2222222</Default>
+</Parameter>
+
+<Property name="DnaCodeDeDecker">
+<Type>DOM.Halux.AAP.DnaCode</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DnaCodeAndereKlant">
+<Type>DOM.Halux.AAP.DnaCode</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PartijAPIMock">
+<Type>vhTest.Mock.DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderAPIMock">
+<Type>vhTest.Mock.DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>TestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..DnaCodeDeDecker = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set ..DnaCodeDeDecker.PalletCode = "TBX12345"
+	Set ..DnaCodeDeDecker.ProductNummer = ..#ProductId1
+	Set ..DnaCodeDeDecker.KlantNummer = "K||6780"
+	Set ..DnaCodeDeDecker.OrderId = $$$DummyString
+	Set ..DnaCodeDeDecker.Toelevering = $$$DummyString
+	
+	Set ..DnaCodeAndereKlant = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set ..DnaCodeAndereKlant.PalletCode = "TBX12345"
+	Set ..DnaCodeAndereKlant.ProductNummer = ..#ProductId1
+	Set ..DnaCodeAndereKlant.KlantNummer = "K||12345"
+	Set ..DnaCodeAndereKlant.OrderId = $$$DummyString
+	Set ..DnaCodeAndereKlant.Toelevering = $$$DummyString
+	
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Iterator met 1 DnaCode meegegeven">
+<Implementation><![CDATA[
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCodeDeDecker)
+	
+	//Do ..ZetMockKlassesOp(DnaCodeIterator)
+	
+	Set ProboxBarcodeEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxBarcodeEtiketGenerator).%New()
+	#dim Device As %String = $$$DummyString
+	#dim Etiket As BL.Etiket.ProboxBarcode = ProboxBarcodeEtiketGenerator.GenereerProboxBarcodeEtiket(DnaCodeIterator, Device)
+	
+	#dim AantalLades As %Integer = 1
+	#dim IsBarcodeLinks As %Boolean = $$$True
+	Do ..AssertEtiket(Etiket, Device, AantalLades, IsBarcodeLinks)
+]]></Implementation>
+</Method>
+
+<Method name="ZetMockKlassesOp">
+<FormalSpec>DnaCodeIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Partij As DOM.PARTIJ.Partij = ##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij()
+	Set ..PartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
+	Do ..PartijAPIMock.VerwachtMethodCall("GeefPartij", ..DnaCodeDeDecker.KlantNummer).DanReturn(Partij)
+	
+	#dim Order As DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderHoofding()
+	Do Order.IndienMethodCall("GeefVerzendingWijze").DanReturn($$$DummyString)
+	Set ..OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do ..OrderAPIMock.VerwachtMethodCall("GeefOrder", ..DnaCodeDeDecker.OrderId).DanReturn(Order)
+]]></Implementation>
+</Method>
+
+<Method name="AssertEtiket">
+<FormalSpec>Etiket:BL.Etiket.ProboxInhoud,Device:%String,AantalLades:%Integer,IsBarcodeLinks:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(Etiket.Device, Device)
+	Do $$$AssertEquals(Etiket.Aantal, 1)
+	Do $$$AssertEquals(Etiket.AantalLades, AantalLades)
+	Do $$$AssertEquals(Etiket.IsBarcodeLinks, IsBarcodeLinks)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: BL/Etiket/ProboxBarcode.cls.xml
===================================================================
diff -u
--- BL/Etiket/ProboxBarcode.cls.xml	(revision 0)
+++ BL/Etiket/ProboxBarcode.cls.xml	(revision 68235)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Etiket.ProboxBarcode">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>BL.Sys.pxLabel</Super>
+
+<Parameter name="Layout">
+<Default>ProboxBarcode</Default>
+</Parameter>
+
+<Property name="AantalLades">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="LijnReferentie">
+<Type>%String</Type>
+</Property>
+
+<Property name="IsBarcodeLinks">
+<Type>%Boolean</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Layout = ..#Layout
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="WriteRow">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..AantalLades),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..LijnReferentie),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..IsBarcodeLinks),$$$TAB
+	
+	Write $$$CRLF
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml
===================================================================
diff -u
--- BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml	(revision 0)
+++ BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml	(revision 68235)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.PPS.TBX.DocsV1.ProboxBarcodeEtiketGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductApi">
+<Type>DOM.PM.impl.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LijnReferentieBepaler">
+<Type>BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler.LijnReferentieBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductApi:DOM.PM.impl.ProductAPI="",LijnReferentieBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler.LijnReferentieBepaler=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductApi = $$$Inject(ProductApi,##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..LijnReferentieBepaler = $$$Inject(LijnReferentieBepaler, ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler.LijnReferentieBepaler).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenereerProboxBarcodeEtiket">
+<FormalSpec>DnaCodeIterator:TECH.Iterator,LabelDevice:%String</FormalSpec>
+<ReturnType>BL.Etiket.ProboxInhoud</ReturnType>
+<Implementation><![CDATA[
+	If ($$$Not(DnaCodeIterator.HasNext())) 
+	{
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Geen Dna codes meegegeven.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	Set ProboxBarcodeLabel = ##class(BL.Etiket.ProboxBarcode).%New()
+	Set ProboxBarcodeLabel.Device = LabelDevice
+ 	Set ProboxBarcodeLabel.Aantal = 1
+ 	Set ProboxBarcodeLabel.AantalLades = ..TelAantalLadesVoorLijnReferentie(DnaCodeIterator)
+ 	Set ProboxBarcodeLabel.IsBarcodeLinks = $$$True
+ 	
+	Quit ProboxBarcodeLabel
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderLijnRef">
+<FormalSpec>ProductNummer:%String,DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductNummer)
+	#dim ToeleveringId As %String = DnaCode.Toelevering
+ 	#dim LijnReferentie = ..LijnReferentieBepaler.ZoekLijnReferentie(ToeleveringId, Product.GeefID())
+ 	
+ 	Quit LijnReferentie
+]]></Implementation>
+</Method>
+
+<Method name="TelAantalLadesVoorLijnReferentie">
+<FormalSpec>DnaCodeIterator:TECH.Iterator</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>