Index: BL/Etiket/ProboxInhoud.cls.xml
===================================================================
diff -u -r63081 -r63119
--- BL/Etiket/ProboxInhoud.cls.xml (.../ProboxInhoud.cls.xml) (revision 63081)
+++ BL/Etiket/ProboxInhoud.cls.xml (.../ProboxInhoud.cls.xml) (revision 63119)
@@ -34,6 +34,11 @@
+
+%String
+
+
+
%Status
@@ -52,7 +53,11 @@
Set InhoudAlsHTML = ""
Do HtmlInhoudProboxEtiketBepalerMock.VerwachtMethodCall("BepaalHtmlInhoudProboxEtiket", ..DnaCodeIterator).DanReturn(InhoudAlsHTML)
- Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock)
+ Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+ Set Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderHoofding()
+ Do OrderAPIMock.VerwachtMethodCall("GeefOrder", ..DnaCode1.OrderId).DanReturn(Order)
+
+ Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock)
Set Device = $$$DummyString
Set Etiket = ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(..DnaCodeIterator, Device)
@@ -62,9 +67,11 @@
Do $$$AssertEquals(Etiket.InhoudAlsHTML, InhoudAlsHTML)
Do $$$AssertEquals(Etiket.PalletBarcode, ..DnaCode1.PalletCode)
Do $$$AssertEquals(Etiket.PalletBarcodeTxt, "TBX1 2345")
+ Do $$$AssertEquals(Etiket.OrderRef, Order.GeefOrderReferentie())
Do PartijAPIMock.Verifieer()
Do HtmlInhoudProboxEtiketBepalerMock.Verifieer()
+ Do OrderAPIMock.Verifieer()
]]>
Index: vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r63093 -r63119
--- vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 63093)
+++ vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 63119)
@@ -9,7 +9,7 @@
right
-LabelPrinter:BL.Sys.LabelPrinter="",BatchService:APPS.Halux.common.BatchService="",ProductieSequentieRepository:APPS.Halux.common.ProductieSequentieRepository="",ToeleveringService:DOM.AKP.ToeleveringService,LogoBepaler:BL.PPS.common.impl.OnderdelendoosLogoBepaler,ProductieService:APPS.Halux.common.ProductieService="",PartijAPI:DOM.PARTIJ.PartijAPI="",HtmlInhoudProboxEtiketBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler=""
+LabelPrinter:BL.Sys.LabelPrinter="",BatchService:APPS.Halux.common.BatchService="",ProductieSequentieRepository:APPS.Halux.common.ProductieSequentieRepository="",ToeleveringService:DOM.AKP.ToeleveringService,LogoBepaler:BL.PPS.common.impl.OnderdelendoosLogoBepaler,ProductieService:APPS.Halux.common.ProductieService=""
%Status
Index: BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml
===================================================================
diff -u -r63102 -r63119
--- BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml (.../ProboxInhoudEtiketGenerator.cls.xml) (revision 63102)
+++ BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml (.../ProboxInhoudEtiketGenerator.cls.xml) (revision 63119)
@@ -13,15 +13,21 @@
1
+
+DOM.VKP.Order
+1
+
+
-PartijAPI:DOM.PARTIJ.PartijAPI="",HtmlInhoudProboxEtiketBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler=""
+PartijAPI:DOM.PARTIJ.PartijAPI="",HtmlInhoudProboxEtiketBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler="",OrderAPI:DOM.VKP.Order=""
1
1
%Status
1
@@ -45,6 +51,8 @@
#dim KlantNummer As %String = DnaCode.KlantNummer
#dim Partij As DOM.PARTIJ.Partij = ..PartijAPI.GeefPartij(DnaCode.KlantNummer)
+ #dim Order as DOM.VKP.Order = ..OrderAPI.GeefOrder(DnaCode.OrderId)
+
Set ProboxInhoudLabel = ##class(BL.Etiket.ProboxInhoud).%New()
Set ProboxInhoudLabel.Device = LabelDevice
@@ -53,6 +61,7 @@
Set ProboxInhoudLabel.InhoudAlsHTML = ..HtmlInhoudProboxEtiketBepaler.BepaalHtmlInhoudProboxEtiket(DnaCodeIterator)
Set ProboxInhoudLabel.PalletBarcode = PalletId
Set ProboxInhoudLabel.PalletBarcodeTxt = ..FormatteerPalletID(PalletId)
+ Set ProboxInhoudLabel.OrderRef = Order.GeefOrderReferentie()
Set ProboxInhoudLabel.Logo = ..GeefEtiketLogo(KlantNummer)