Index: BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml
===================================================================
diff -u -r63154 -r63187
--- BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml (.../ProboxInhoudEtiketGenerator.cls.xml) (revision 63154)
+++ BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml (.../ProboxInhoudEtiketGenerator.cls.xml) (revision 63187)
@@ -18,8 +18,13 @@
1
+
+DOM.AKP.ToeleveringAPI
+1
+
+
-PartijAPI:DOM.PARTIJ.PartijAPI="",HtmlInhoudProboxEtiketBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler="",OrderAPI:DOM.VKP.Order=""
+PartijAPI:DOM.PARTIJ.PartijAPI="",HtmlInhoudProboxEtiketBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler="",OrderAPI:DOM.VKP.Order="",ToeleveringAPI:DOM.AKP.ToeleveringAPI
1
1
%Status
@@ -28,6 +33,7 @@
Set ..PartijAPI = $$$Inject(PartijAPI, ##class(DOM.DomeinContext).Instance().GeefPartijAPI())
Set ..HtmlInhoudProboxEtiketBepaler = $$$Inject(HtmlInhoudProboxEtiketBepaler, ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler).%New())
Set ..OrderAPI = $$$Inject(OrderAPI, ##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+ Set ..ToeleveringAPI = $$$Inject(ToeleveringAPI, ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
Quit $$$OK
]]>
@@ -52,6 +58,7 @@
#dim Partij As DOM.PARTIJ.Partij = ..PartijAPI.GeefPartij(DnaCode.KlantNummer)
#dim Order as DOM.VKP.Order = ..OrderAPI.GeefOrder(DnaCode.OrderId)
+ #dim Toelevering as DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringId)
Set ProboxInhoudLabel = ##class(BL.Etiket.ProboxInhoud).%New()
Set ProboxInhoudLabel.Device = LabelDevice
@@ -66,6 +73,7 @@
Set ProboxInhoudLabel.OrderNr = Order.GeefID()
Set ProboxInhoudLabel.ToeleveringNr = ToeleveringId
Set ProboxInhoudLabel.VerzendingWijze = Order.GeefVerzendingWijze()
+ set ProboxInhoudLabel.ProductieWeek = $translate($$EXTDATE^vhLib.DataTypes(Toelevering.GeefDueOutTime(),"DW"),"/","")
Set ProboxInhoudLabel.CommissieReferentie = Order.GeefCommissieReferentie()
Set ProboxInhoudLabel.Logo = ..GeefEtiketLogo(KlantNummer)
Index: vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml
===================================================================
diff -u -r63185 -r63187
--- vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml (.../Test.cls.xml) (revision 63185)
+++ vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml (.../Test.cls.xml) (revision 63187)
@@ -39,6 +39,8 @@
Set ..DnaCode2.KlantNummer = $$$DummyString
Set ..DnaCode2.OrderId = $$$DummyString
Set ..DnaCode2.Toelevering = $$$DummyString
+
+ do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
]]>
@@ -70,7 +72,12 @@
Do Order.IndienMethodCall("GeefVerzendingWijze").DanReturn($$$DummyString)
Do OrderAPIMock.VerwachtMethodCall("GeefOrder", ..DnaCode1.OrderId).DanReturn(Order)
- Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock)
+ Set ToeleveringAPIMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
+ Set Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).StandaardToeleveringHoofding()
+ Do Toelevering.IndienMethodCall("GeefDueOutTime").DanReturn(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog())
+ Do ToeleveringAPIMock.VerwachtMethodCall("GeefToelevering", ..DnaCode1.Toelevering).DanReturn(Toelevering)
+
+ Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock, ToeleveringAPIMock)
Set Device = $$$DummyString
Set Etiket = ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(DnaCodeIterator, Device)
@@ -85,11 +92,13 @@
Do $$$AssertEquals(Etiket.OrderNr, Order.GeefID())
Do $$$AssertEquals(Etiket.ToeleveringNr, ..DnaCode1.Toelevering)
Do $$$AssertEquals(Etiket.VerzendingWijze, $$$DummyString)
+ Do $$$AssertEquals(Etiket.ProductieWeek, "1126")
Do $$$AssertEquals(Etiket.CommissieReferentie, Order.GeefCommissieReferentie())
Do PartijAPIMock.Verifieer()
Do HtmlInhoudProboxEtiketBepalerMock.Verifieer()
Do OrderAPIMock.Verifieer()
+ Do ToeleveringAPIMock.Verifieer()
]]>
@@ -110,7 +119,12 @@
Do Order.IndienMethodCall("GeefVerzendingWijze").DanReturn($$$DummyString)
Do OrderAPIMock.VerwachtMethodCall("GeefOrder", ..DnaCode1.OrderId).DanReturn(Order)
- Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock)
+ Set ToeleveringAPIMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
+ Set Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).StandaardToeleveringHoofding()
+ Do Toelevering.IndienMethodCall("GeefDueOutTime").DanReturn(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog())
+ Do ToeleveringAPIMock.VerwachtMethodCall("GeefToelevering", ..DnaCode1.Toelevering).DanReturn(Toelevering)
+
+ Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock, ToeleveringAPIMock)
Set Device = $$$DummyString
Set Etiket = ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(DnaCodeIterator, Device)
@@ -125,11 +139,13 @@
Do $$$AssertEquals(Etiket.OrderNr, Order.GeefID())
Do $$$AssertEquals(Etiket.ToeleveringNr, ..DnaCode1.Toelevering)
Do $$$AssertEquals(Etiket.VerzendingWijze, $$$DummyString)
+ Do $$$AssertEquals(Etiket.ProductieWeek, "1126")
Do $$$AssertEquals(Etiket.CommissieReferentie, Order.GeefCommissieReferentie())
Do PartijAPIMock.Verifieer()
Do HtmlInhoudProboxEtiketBepalerMock.Verifieer()
Do OrderAPIMock.Verifieer()
+ Do ToeleveringAPIMock.Verifieer()
]]>
Index: BL/Etiket/ProboxInhoud.cls.xml
===================================================================
diff -u -r63154 -r63187
--- BL/Etiket/ProboxInhoud.cls.xml (.../ProboxInhoud.cls.xml) (revision 63154)
+++ BL/Etiket/ProboxInhoud.cls.xml (.../ProboxInhoud.cls.xml) (revision 63187)
@@ -59,6 +59,11 @@
+
+%String
+
+
+
%Status