Index: BL/MB/UGLYPicking/Receptie/EtiketAfdrukker.cls.xml =================================================================== diff -u -r57800 -r57807 --- BL/MB/UGLYPicking/Receptie/EtiketAfdrukker.cls.xml (.../EtiketAfdrukker.cls.xml) (revision 57800) +++ BL/MB/UGLYPicking/Receptie/EtiketAfdrukker.cls.xml (.../EtiketAfdrukker.cls.xml) (revision 57807) @@ -40,7 +40,7 @@ #dim Bufferlijn As %String = ^UPRCP("B",bfrRGID,bfrVolgNr,$o(^UPRCP("B",bfrRGID,bfrVolgNr,""))) If ..IsVerpakkingProbox($P(Bufferlijn,"\")) { - #dim TeGebruikenPrinter = ..MapProductieLijnOpPrinter(..GeefProductieLijn(Bufferlijn)) + #dim TeGebruikenPrinter = ..MapProductieLijnOpPrinter(..GeefWerkpost(Bufferlijn)) If TeGebruikenPrinter = "" { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen printer gevonden voor Bufferlijn '"_Bufferlijn_"'")) @@ -81,7 +81,7 @@ ]]> - + Bufferlijn:%String 1 %String @@ -103,35 +103,41 @@ } #dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(Query) - #dim ProductieLijn As %String = "" + #dim Werkpost As %String = "" While (ResultSet.Next()) { - Set ProductieLijn = ResultSet.GetDataByName("Werkpost") + Set Werkpost = ResultSet.GetDataByName("Werkpost") } - If ProductieLijn = "" { + If Werkpost = "" { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Werkpost/Productielijn kon niet bepaald worden voor Bufferlijn '"_Bufferlijn_"'")) } - Quit ProductieLijn + Quit Werkpost ]]> -Productielijn:%String +Werkpost:%String 1 %String + + +Werkpost:APPS.Halux.common.enu.Werkpost +1 +APPS.Halux.common.enu.ProductieLijn + + Index: vhUnitTest/BL/MB/UGLYPicking/Receptie/EtiketAfdrukker/DrukProboxOverdoosInhoudEtiketAfIndienNodig/Test.cls.xml =================================================================== diff -u -r57800 -r57807 --- vhUnitTest/BL/MB/UGLYPicking/Receptie/EtiketAfdrukker/DrukProboxOverdoosInhoudEtiketAfIndienNodig/Test.cls.xml (.../Test.cls.xml) (revision 57800) +++ vhUnitTest/BL/MB/UGLYPicking/Receptie/EtiketAfdrukker/DrukProboxOverdoosInhoudEtiketAfIndienNodig/Test.cls.xml (.../Test.cls.xml) (revision 57807) @@ -18,10 +18,10 @@ 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("Init","","","Halux_LadeAfw_L2","","").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 ResultSetFake As TECH.ResultSet = ##class(vhTest.Fake.TECH.ResultSet).%New(##class(TECH.ListUtils).CreateListOfDataTypes("LP2"), ##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) @@ -123,6 +123,31 @@ Do QueryAPIMock.Verifieer() ]]> + + + +