Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/ReceptieAfmeldenConverter/Convert/Test.cls.xml =================================================================== diff -u -r45176 -r45184 --- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/ReceptieAfmeldenConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 45176) +++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/ReceptieAfmeldenConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 45184) @@ -9,8 +9,8 @@ do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer("01.05.2016") - Set Request = ##class(AXimpl.Request).%New("PickingCompleet/Insert", UitleveringID) - Set RequestInventoryOut = ##class(AXimpl.Request).%New("InventoryOut/Update", "abc1") + Set Request = ##class(AXimpl.Request).%New("Inventory/ReceptieAfgemeld", UitleveringID) + Set RequestInventoryOut = ##class(AXimpl.Request).%New("Inventory/Update", "abc1") #dim Antwoord As AXif.Dynamics.Inventory.MessageParts = ..MaakInventSyncAntwoord(1) @@ -50,6 +50,193 @@ ]]> + + + + + + + + + + + + + + + + AantalInventSync:%Integer 1 Index: AXimpl/Dynamics/InventoryOut/Converter/ReceptieAfmeldenConverter.cls.xml =================================================================== diff -u -r45176 -r45184 --- AXimpl/Dynamics/InventoryOut/Converter/ReceptieAfmeldenConverter.cls.xml (.../ReceptieAfmeldenConverter.cls.xml) (revision 45176) +++ AXimpl/Dynamics/InventoryOut/Converter/ReceptieAfmeldenConverter.cls.xml (.../ReceptieAfmeldenConverter.cls.xml) (revision 45184) @@ -76,13 +76,14 @@ Set BomlijnenIterator = ##class(TECH.ListIterator).%New(..BouwstenenConverter.Convert(Product,"")) While BomlijnenIterator.HasNext(){ Do DoorTeGevenLijnen.Insert(BomlijnenIterator.Next().ItemId) + w !,"hier"_##class(TECH.ListUtils).ListToPieces(DoorTeGevenLijnen,",") } } } } Try { - #dim InventSyncItems As AXif.Dynamics.Inventory.MessageParts = ..InventoryOutConverter.Convert(##class(AXimpl.Request).%New("InventoryOut/Update", ##class(TECH.ListUtils).ListToPieces(DoorTeGevenLijnen,","))) + #dim InventSyncItems As AXif.Dynamics.Inventory.MessageParts = ..InventoryOutConverter.Convert(##class(AXimpl.Request).%New("Inventory/Update", ##class(TECH.ListUtils).ListToPieces(DoorTeGevenLijnen,","))) Set Iterator = ##class(TECH.ListIterator).%New(InventSyncItems.MessagePart.Header.GetAt(1).InventSync) While Iterator.HasNext() { @@ -97,8 +98,6 @@ Do MessageParts.MessagePart.Header.Insert(..AxdEntityHeader) - w !,$$ObjToXML^vhLib(MessageParts) - Quit MessageParts ]]>