Index: AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter.cls.xml
===================================================================
diff -u -r44731 -r44762
--- AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter.cls.xml (.../PickingCompleetConverter.cls.xml) (revision 44731)
+++ AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter.cls.xml (.../PickingCompleetConverter.cls.xml) (revision 44762)
@@ -60,7 +60,7 @@
Set Pick = ##class(AXif.Dynamics.InventoryOut.MessageParts.AxdEntityPick).%New()
Set Pick.class = "entity"
- Set Pick.PickId = "" //Lijn.GeefToelevering()_"_"_Lijn.GeefToeleveringLijn().GeefID()_"_"_"xxx"
+ Set Pick.PickId = $Extract(Bon.GeefID()_"_"_Lijn.GeefID()_"_"_$Translate(Lijn.GeefReceptieTijdstip(),",- ",""),1,20)
Set Pick.InventTransId = Lijn.GeefAxInventTransId()
Set Pick.Qty = Lijn.GeefAantal()
@@ -70,7 +70,6 @@
}
}
-
If $$$Not($IsObject(..InventoryRequest)) {
Set ..InventoryRequest = ##class(AXimpl.Request).%New("InventoryOut/Update", ##class(TECH.ListUtils).ListToPieces(DoorTeGevenLijnen,","))
}
Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter/Convert/Test.cls.xml
===================================================================
diff -u -r44748 -r44762
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 44748)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 44762)
@@ -20,6 +20,7 @@
Set StandaardBon = ##class(vhTest.Mock.DOM.VKP.Bon).%New()
Do StandaardBon.IndienMethodCall("GeefBonLijnIterator").DanReturn(##class(TECH.ListIterator).%New(Bonlijnen))
+ Do StandaardBon.IndienMethodCall("GeefID").DanReturn("1234")
Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
Do OrderApiStub.IndienMethodCall("GeefBon",UitleveringID,$$$ElkeWaarde).DanReturn(StandaardBon)
@@ -30,6 +31,7 @@
#dim Response As AXif.Dynamics.InventoryOut.MessageParts = Converter.Convert(Request,GUID)
Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).Pick.Count(),1)
+ Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).Pick.GetAt(1).PickId,"1234_1234_2017082413")
Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).InventSync.Count(),1)
]]>
@@ -51,6 +53,7 @@
Set StandaardBon = ##class(vhTest.Mock.DOM.VKP.Bon).%New()
Do StandaardBon.IndienMethodCall("GeefBonLijnIterator").DanReturn(##class(TECH.ListIterator).%New(Bonlijnen))
+ Do StandaardBon.IndienMethodCall("GeefID").DanReturn("1234")
Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
Do OrderApiStub.IndienMethodCall("GeefBon",UitleveringID,$$$ElkeWaarde).DanReturn(StandaardBon)
@@ -81,6 +84,7 @@
Set StandaardBon = ##class(vhTest.Mock.DOM.VKP.Bon).%New()
Do StandaardBon.IndienMethodCall("GeefBonLijnIterator").DanReturn(##class(TECH.ListIterator).%New(Bonlijnen))
+ Do StandaardBon.IndienMethodCall("GeefID").DanReturn("1234")
Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
Do OrderApiStub.IndienMethodCall("GeefBon",UitleveringID,$$$ElkeWaarde).DanReturn(StandaardBon)
@@ -113,6 +117,7 @@
Set StandaardBon = ##class(vhTest.Mock.DOM.VKP.Bon).%New()
Do StandaardBon.IndienMethodCall("GeefBonLijnIterator").DanReturn(##class(TECH.ListIterator).%New(Bonlijnen))
+ Do StandaardBon.IndienMethodCall("GeefID").DanReturn("123456")
Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
Do OrderApiStub.IndienMethodCall("GeefBon",UitleveringID,$$$ElkeWaarde).DanReturn(StandaardBon)
@@ -127,9 +132,6 @@
]]>
-
-
-
Index: vhTest/Utils/DOM/VKP/BonLijn.cls.xml
===================================================================
diff -u -r44730 -r44762
--- vhTest/Utils/DOM/VKP/BonLijn.cls.xml (.../BonLijn.cls.xml) (revision 44730)
+++ vhTest/Utils/DOM/VKP/BonLijn.cls.xml (.../BonLijn.cls.xml) (revision 44762)
@@ -27,6 +27,8 @@
Do ProductLijn.IndienMethodCall("GeefAxInventTransId").DanReturn(AxInventTransId)
Do ProductLijn.IndienMethodCall("GeefAantal").DanReturn(Aantal)
Do ProductLijn.IndienMethodCall("GeefProductID").DanReturn(AxInventTransId_Aantal)
+ Do ProductLijn.IndienMethodCall("GeefID").DanReturn("1234")
+ Do ProductLijn.IndienMethodCall("GeefReceptieTijdstip").DanReturn(##class(TECH.DateTime.impl.DateTimeAPI).%New().CurrentTimeStamp())
Quit ProductLijn
]]>