Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter/Convert/Test.cls.xml =================================================================== diff -u -r44601 -r44758 --- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 44601) +++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 44758) @@ -271,6 +271,58 @@ ]]> + + + + + + + + 1 AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter Index: AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter.cls.xml =================================================================== diff -u -r44633 -r44758 --- AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter.cls.xml (.../InventoryOutConverter.cls.xml) (revision 44633) +++ AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter.cls.xml (.../InventoryOutConverter.cls.xml) (revision 44758) @@ -50,17 +50,22 @@ Set ..AxdEntityHeader.MessageId = MessageId While PRNrIterator.HasNext(){ - Set AangereiktPRNr = PRNrIterator.Next() - If ('..SoprProductConverter.IsSOPRInAX(AangereiktPRNr)){ - If ('..SoprProductConverter.IsSOPRInCache(AangereiktPRNr)){ - Do ..AxdEntityHeader.InventSync.Insert(..AxInventSyncCreator.MaakInventSync(AangereiktPRNr)) + try { + Set AangereiktPRNr = PRNrIterator.Next() + If ('..SoprProductConverter.IsSOPRInAX(AangereiktPRNr)){ + If ('..SoprProductConverter.IsSOPRInCache(AangereiktPRNr)){ + Do ..AxdEntityHeader.InventSync.Insert(..AxInventSyncCreator.MaakInventSync(AangereiktPRNr)) + } Else { + Set PrincipaalSoprPRNr = ..SoprProductConverter.GeefVervangProductDoorSOPRInAX(AangereiktPRNr) + Do ..SluitInSoprVarianten(PrincipaalSoprPRNr) + } } Else { - Set PrincipaalSoprPRNr = ..SoprProductConverter.GeefVervangProductDoorSOPRInAX(AangereiktPRNr) + Set PrincipaalSoprPRNr = AangereiktPRNr Do ..SluitInSoprVarianten(PrincipaalSoprPRNr) } - } Else { - Set PrincipaalSoprPRNr = AangereiktPRNr - Do ..SluitInSoprVarianten(PrincipaalSoprPRNr) + } catch { + #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() + Do ##class(vhLib.Logger).%New().Warning("InventoryOutConverter",Exception.GeefOmschrijving()) } }