Index: BL/MB/UGLYPicking/Receptie/EtiketAfdrukker.cls.xml
===================================================================
diff -u
--- BL/MB/UGLYPicking/Receptie/EtiketAfdrukker.cls.xml	(revision 0)
+++ BL/MB/UGLYPicking/Receptie/EtiketAfdrukker.cls.xml	(revision 57800)
@@ -0,0 +1,138 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.MB.UGLYPicking.Receptie.EtiketAfdrukker">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="VerpakkingBepaler">
+<Type>BL.MB.UGLYPicking.Receptie.EtiketAfdrukker.VerpakkingBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DocsV1">
+<Type>BL.PPS.TBX.DocsV1</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerpakkingBepaler:BL.MB.UGLYPicking.Receptie.EtiketAfdrukker.VerpakkingBepaler,DocsV1:BL.PPS.TBX.DocsV1,QueryAPI:TECH.Query.QueryAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VerpakkingBepaler = $$$Inject(VerpakkingBepaler, ##class(BL.MB.UGLYPicking.Receptie.EtiketAfdrukker.VerpakkingBepaler).%New())
+	Set ..DocsV1 = $$$Inject(DocsV1, ##class(BL.PPS.TBX.DocsV1).%New())
+	Set ..QueryAPI = $$$Inject(QueryAPI, ##class(TECH.Context).Instance().GeefQueryAPI())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="DrukProboxOverdoosInhoudEtiketAfIndienNodig">
+<FormalSpec>bfrRGID:%String="",bfrVolgNr:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ValideerInput(bfrRGID, bfrVolgNr)
+	
+   	#dim Bufferlijn As %String = ^UPRCP("B",bfrRGID,bfrVolgNr,$o(^UPRCP("B",bfrRGID,bfrVolgNr,"")))
+	If ..IsVerpakkingProbox($P(Bufferlijn,"\")) {
+		#dim TeGebruikenPrinter = ..MapProductieLijnOpPrinter(..GeefProductieLijn(Bufferlijn))
+		
+		If TeGebruikenPrinter = "" {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen printer gevonden voor Bufferlijn '"_Bufferlijn_"'"))
+		}
+		Do ..DocsV1.Init(,"",TeGebruikenPrinter,"","")
+		Do ..DocsV1.ProboxOverdoosInhoudEtiket(bfrRGID, bfrVolgNr)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ValideerInput">
+<FormalSpec>bfrRGID:%String="",bfrVolgNr:%String=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If bfrRGID = "" {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Input onbekend: bfrRGID leeg"))
+	}
+	If bfrVolgNr = ""{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Input onbekend: bfrVolgNr leeg"))
+	}
+	If $$$Not($D(^UPRCP("B",bfrRGID,bfrVolgNr))) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Input onbekend: geen data voor '^UPRCP(""B"","""_bfrRGID_""","_bfrVolgNr_")'"))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsVerpakkingProbox">
+<FormalSpec>ProductNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Verpakking As %String
+	Set Verpakking = ..VerpakkingBepaler.GeefVerpakking(ProductNummer)
+	If Verpakking = "" {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Verpakking kon niet bepaald worden voor PRNR '"_ProductNummer_"'"))
+	}
+	Quit ..VerpakkingBepaler.GeefVerpakking(ProductNummer)=##class(DOM.PM.enu.DragerType).Probox()
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductieLijn">
+<FormalSpec>Bufferlijn:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Statement As TECH.String
+	Set Statement = "SELECT top 1 Werkpost FROM APPS_VKP_Maatwerk_LadeRegistratie_impl.Registratie "
+	If $$$HasLength($P(Bufferlijn,"\",8)) {
+		Set Statement = Statement _ "where (prnr = ? and toeleveringid = ?) "
+	} Else {
+		Set Statement = Statement _ "where prnr = ? "
+	}
+	Set Statement = Statement _ "order by id desc "
+	
+	#dim Query As TECH.DynamicQuery
+	If $$$HasLength($P(Bufferlijn,"\",8)) {
+		Set Query = ##class(TECH.DynamicQuery).%New(Statement, $ListBuild($P(Bufferlijn,"\"),  $P(Bufferlijn,"\",8)))
+	} Else {
+		Set Query = ##class(TECH.DynamicQuery).%New(Statement, $ListBuild($P(Bufferlijn,"\")))
+	}
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(Query)
+	
+	#dim ProductieLijn As %String = ""
+	While (ResultSet.Next()) {
+		Set ProductieLijn = ResultSet.GetDataByName("Werkpost")
+	}
+	If ProductieLijn = "" {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Werkpost/Productielijn kon niet bepaald worden voor Bufferlijn '"_Bufferlijn_"'"))
+	}
+	Quit ProductieLijn
+]]></Implementation>
+</Method>
+
+<Method name="MapProductieLijnOpPrinter">
+<FormalSpec>Productielijn:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+  //dit wacht nog op de echte namen
+	Quit:Productielijn="LP1" "PrinterOpEindLijn1"
+	Quit:Productielijn="LP2" "PrinterOpEindLijn2"
+	Quit:Productielijn="LP3" "PrinterOpEindLijn3"
+	Quit:Productielijn="LBX" "AnderePrinter"
+	Quit:Productielijn="P1" "AnderePrinter"
+	Quit:Productielijn="P2" "AnderePrinter"
+	Quit:Productielijn="TAO" "AnderePrinter"
+	Quit:Productielijn="TAX" "AnderePrinter"
+	Quit:Productielijn="TBX" "AnderePrinter"
+	Quit "AnderePrinter"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/BL/MB/UGLYPicking/Receptie/EtiketAfdrukker/DrukProboxOverdoosInhoudEtiketAfIndienNodig/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/MB/UGLYPicking/Receptie/EtiketAfdrukker/DrukProboxOverdoosInhoudEtiketAfIndienNodig/Test.cls.xml	(revision 0)
+++ vhUnitTest/BL/MB/UGLYPicking/Receptie/EtiketAfdrukker/DrukProboxOverdoosInhoudEtiketAfIndienNodig/Test.cls.xml	(revision 57800)
@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.MB.UGLYPicking.Receptie.EtiketAfdrukker.DrukProboxOverdoosInhoudEtiketAfIndienNodig.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[	Kill ^UPRCP("B","Test")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaardgedrag: DocsV1 aanroepen">
+<Implementation><![CDATA[
+	#dim ProductNummer As %String = "123456"
+	Set ^UPRCP("B","Test",1) = ""
+	Set ^UPRCP("B","Test",1,1) = ProductNummer
+	
+	Set VerpakkingBepalerStub = ##class(vhTest.Mock.BL.MB.UGLYPicking.Receptie.EtiketAfdrukker.VerpakkingBepaler).%New()
+	Do VerpakkingBepalerStub.IndienMethodCall("GeefVerpakking",$$$ElkeWaarde).DanReturn("Probox")
+	
+	Set DocsV1Mock = ##class(vhTest.Mock.BL.PPS.TBX.DocsV1).%New()
+	Do DocsV1Mock.VerwachtMethodCall("Init","","",$$$ElkeWaarde,"","").ExactAantalKeer(1).DanDoeNiks()
+	Do DocsV1Mock.VerwachtMethodCall("ProboxOverdoosInhoudEtiket","Test","1").ExactAantalKeer(1).DanDoeNiks()
+	
+	#dim ResultSetFake As TECH.ResultSet = ##class(vhTest.Fake.TECH.ResultSet).%New(##class(TECH.ListUtils).CreateListOfDataTypes("String"), ##class(TECH.ListUtils).CreateListOfDataTypes("Werkpost"))
+	#dim QueryAPIMock As vhTest.Mock.TECH.Query.QueryAPI = ##class(vhTest.Mock.TECH.Query.QueryAPI).%New()
+	Do QueryAPIMock.VerwachtMethodCall("GetResultSet", $$$ElkeWaarde).DanReturn(ResultSetFake)
+	
+	Set Afdrukker = ##class(BL.MB.UGLYPicking.Receptie.EtiketAfdrukker).%New(VerpakkingBepalerStub, DocsV1Mock, QueryAPIMock)
+	Do Afdrukker.DrukProboxOverdoosInhoudEtiketAfIndienNodig("Test","1")
+	
+	Do DocsV1Mock.Verifieer()
+	Do QueryAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: bfrRGID leeg -&gt; exception">
+<Implementation><![CDATA[
+	Set Afdrukker = ##class(BL.MB.UGLYPicking.Receptie.EtiketAfdrukker).%New()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Input onbekend: bfrRGID leeg")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+	
+	Do Afdrukker.DrukProboxOverdoosInhoudEtiketAfIndienNodig(,)
+]]></Implementation>
+</Method>
+
+<Method name="Test: bfrVolgNr leeg -&gt; exception">
+<Implementation><![CDATA[
+	Set Afdrukker = ##class(BL.MB.UGLYPicking.Receptie.EtiketAfdrukker).%New()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Input onbekend: bfrVolgNr leeg")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+	
+	Do Afdrukker.DrukProboxOverdoosInhoudEtiketAfIndienNodig("TB",)
+]]></Implementation>
+</Method>
+
+<Method name="Test: input onbekend -&gt; exception">
+<Implementation><![CDATA[
+	Set Afdrukker = ##class(BL.MB.UGLYPicking.Receptie.EtiketAfdrukker).%New()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Input onbekend: geen data voor '^UPRCP(""B"",""TB"",onbekend)'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+	
+	Do Afdrukker.DrukProboxOverdoosInhoudEtiketAfIndienNodig("TB","onbekend")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verpakking leeg -&gt; exception">
+<Implementation><![CDATA[
+	#dim ProductNummer As %String = "123456"
+	Set ^UPRCP("B","Test",1) = ""
+	Set ^UPRCP("B","Test",1,1) = ProductNummer
+	
+	Set VerpakkingBepalerStub = ##class(vhTest.Mock.BL.MB.UGLYPicking.Receptie.EtiketAfdrukker.VerpakkingBepaler).%New()
+	Do VerpakkingBepalerStub.IndienMethodCall("GeefVerpakking",$$$ElkeWaarde).DanReturn("")
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Verpakking kon niet bepaald worden voor PRNR '"_ProductNummer_"'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException", Substrings))
+	
+	Set Afdrukker = ##class(BL.MB.UGLYPicking.Receptie.EtiketAfdrukker).%New(VerpakkingBepalerStub)
+	Do Afdrukker.DrukProboxOverdoosInhoudEtiketAfIndienNodig("Test","1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verpakking geen probox -&gt; niets doen">
+<Implementation><![CDATA[
+	#dim ProductNummer As %String = "123456"
+	Set ^UPRCP("B","Test",1) = ""
+	Set ^UPRCP("B","Test",1,1) = ProductNummer
+	
+	Set VerpakkingBepalerStub = ##class(vhTest.Mock.BL.MB.UGLYPicking.Receptie.EtiketAfdrukker.VerpakkingBepaler).%New()
+	Do VerpakkingBepalerStub.IndienMethodCall("GeefVerpakking",$$$ElkeWaarde).DanReturn("V1")
+	
+	Set DocsV1Mock = ##class(vhTest.Mock.BL.PPS.TBX.DocsV1).%New()
+	Do DocsV1Mock.VerwachtMethodCall("ProboxOverdoosInhoudEtiket",$$$ElkeWaarde,$$$ElkeWaarde).ExactAantalKeer(0)
+	
+	Set Afdrukker = ##class(BL.MB.UGLYPicking.Receptie.EtiketAfdrukker).%New(VerpakkingBepalerStub, DocsV1Mock)
+	Do Afdrukker.DrukProboxOverdoosInhoudEtiketAfIndienNodig("Test","1")
+	
+	Do DocsV1Mock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen werkpost gevonden -&gt; exception">
+<Implementation><![CDATA[
+	#dim ProductNummer As %String = "123456"
+	Set ^UPRCP("B","Test",1) = ""
+	Set ^UPRCP("B","Test",1,1) = ProductNummer
+	
+	Set VerpakkingBepalerStub = ##class(vhTest.Mock.BL.MB.UGLYPicking.Receptie.EtiketAfdrukker.VerpakkingBepaler).%New()
+	Do VerpakkingBepalerStub.IndienMethodCall("GeefVerpakking",$$$ElkeWaarde).DanReturn("Probox")
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Werkpost/Productielijn kon niet bepaald worden voor Bufferlijn '"_^UPRCP("B","Test",1,1)_"'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException", Substrings))
+	
+	#dim QueryAPIMock As vhTest.Mock.TECH.Query.QueryAPI = ##class(vhTest.Mock.TECH.Query.QueryAPI).%New()
+	Do QueryAPIMock.VerwachtMethodCall("GetResultSet", $$$ElkeWaarde).DanReturn(##class(TECH.ResultSet).%New())
+	
+	Set Afdrukker = ##class(BL.MB.UGLYPicking.Receptie.EtiketAfdrukker).%New(VerpakkingBepalerStub, , QueryAPIMock)
+	Do Afdrukker.DrukProboxOverdoosInhoudEtiketAfIndienNodig("Test","1")
+	
+	Do QueryAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>