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