Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/Test.cls.xml =================================================================== diff -u -r48797 -r48801 --- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/Test.cls.xml (.../Test.cls.xml) (revision 48797) +++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/Test.cls.xml (.../Test.cls.xml) (revision 48801) @@ -531,14 +531,14 @@ Set Product = ##class(Prod.Product).%New() #dim ProductRepositoryStub As Prod.ProductRepository = ..GeefProductRepositoryStub(Product) - Do ProductRepositoryStub.IndienMethodCall("GeefViaID","Onbekend PRNr").DanException(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).DataNotFound(),"Kon object van type Prod.Product niet openen met id 'Onbekend PRNr'")) + Do ProductRepositoryStub.IndienMethodCall("BestaatViaID","Onbekend PRNr").DanReturn($$$False) Set ..ProductRepository = ProductRepositoryStub Set ..StockReservatieRepository = ##class(Prod.StockReservatieRepository).%New() Set ..IsStockOverKinderenBepaler = IsStockOverKinderenBepalerStub - #dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Kon object van type Prod.Product niet openen met id 'Onbekend PRNr'") - Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.BaseException",Substrings)) + #dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen conversie nodig voor converter 'AxInventSyncCreator' en Id 'Onbekend PRNr'") + Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("AXimpl.NoConversionNeededException",Substrings)) #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = ..GeefAxInventSyncCreator().MaakInventSync("Onbekend PRNr") ]]> Index: AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator.cls.xml =================================================================== diff -u -r48797 -r48801 --- AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator.cls.xml (.../AxInventSyncCreator.cls.xml) (revision 48797) +++ AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator.cls.xml (.../AxInventSyncCreator.cls.xml) (revision 48801) @@ -64,6 +64,10 @@ #dim WVStock, FysStock As %String = "0" #dim Product As DOM.PM.Product + If $$$Not(..ProductRepository.BestaatViaID(PRNr)){ + Do ##class(TECH.ExceptionHandler).Throw(##class(AXimpl.NoConversionNeededException).%New(##this.%ClassName(),PRNr)) + } + #dim IsStockOverKinderen As %Boolean = ..IsStockOverKinderenBepaler.IsStockOverKinderen(PRNr) If (($$$Not(IsStockOverKinderen)) && (..StockReservatieRepository.BestaatViaID(PRNr))) { #dim StockProduct As Prod.StockReservatie = ..StockReservatieRepository.GeefViaID(PRNr) @@ -100,9 +104,6 @@ Set InventSyncProduct.SequenceNr = ..SequenceNrGenerator.GeefVolgendProductVoorraadSyncBerichtId() Set InventSyncProduct.SOPRContractId = SoprContractId - //alle qtyies altijd 0 indien linktype S - - Quit InventSyncProduct ]]>