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()
]]>
+
+
+
+