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
]]>