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())
}
}