Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter/Convert/Test.cls.xml
===================================================================
diff -u -r44765 -r44767
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 44765)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 44767)
@@ -134,6 +134,39 @@
]]>
+
+
+
+
AantalInventSync:%Integer
AXif.Dynamics.InventoryOut.MessageParts
Index: AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter.cls.xml
===================================================================
diff -u -r44764 -r44767
--- AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter.cls.xml (.../PickingCompleetConverter.cls.xml) (revision 44764)
+++ AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter.cls.xml (.../PickingCompleetConverter.cls.xml) (revision 44767)
@@ -74,12 +74,16 @@
Set ..InventoryRequest = ##class(AXimpl.Request).%New("InventoryOut/Update", ##class(TECH.ListUtils).ListToPieces(DoorTeGevenLijnen,","))
}
- #dim InventSyncItems As AXif.Dynamics.InventoryOut.MessageParts = ..InventoryOutConverter.Convert(..InventoryRequest)
+ try {
+ #dim InventSyncItems As AXif.Dynamics.InventoryOut.MessageParts = ..InventoryOutConverter.Convert(..InventoryRequest)
- Set Iterator = ##class(TECH.ListIterator).%New(InventSyncItems.MessagePart.Header.GetAt(1).InventSync)
- while Iterator.HasNext() {
- Do ..AxdEntityHeader.InventSync.Insert(Iterator.Next())
- }
+ Set Iterator = ##class(TECH.ListIterator).%New(InventSyncItems.MessagePart.Header.GetAt(1).InventSync)
+ while Iterator.HasNext() {
+ Do ..AxdEntityHeader.InventSync.Insert(Iterator.Next())
+ }
+ } catch {
+ #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+ }
Set ADUMsgOutboundInQuery = ##class(AXif.Dynamics.InventoryOut.MessageParts.AxdADUMsgOutboundInQuery).%New()
Set MessageParts.MessagePart = ADUMsgOutboundInQuery