Index: APPS/VKP/Maatwerk/ConfiguratorService.cls.xml =================================================================== diff -u -r3391 -r3486 --- APPS/VKP/Maatwerk/ConfiguratorService.cls.xml (.../ConfiguratorService.cls.xml) (revision 3391) +++ APPS/VKP/Maatwerk/ConfiguratorService.cls.xml (.../ConfiguratorService.cls.xml) (revision 3486) @@ -226,11 +226,6 @@ Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() Set Product = ProductAPI.GeefProduct(ProductID) - If ('$IsObject(Product)) - { - Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De opgegeven product id is niet geldig!")) - } - If ('Product.%Extends("DOM.PM.MaatwerkProduct")) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Het gevraagde product is geen maatwerkproduct!")) Index: APPS/common/DataService.cls.xml =================================================================== diff -u -r2423 -r3486 --- APPS/common/DataService.cls.xml (.../DataService.cls.xml) (revision 2423) +++ APPS/common/DataService.cls.xml (.../DataService.cls.xml) (revision 3486) @@ -78,11 +78,6 @@ Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() Set Product = ProductAPI.GeefProduct(ProductID) - If ('$IsObject(Product)) - { - Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige product id "_ProductID)) - } - Set ProductData.ID = ProductID Set ProductData.Code = Product.GeefKorttekst() Set ProductData.IdentNr = Product.GeefIdentNr() Index: APPS/Halux/PPS/TBXZaag/impl/SyncHelper.cls.xml =================================================================== diff -u -r3147 -r3486 --- APPS/Halux/PPS/TBXZaag/impl/SyncHelper.cls.xml (.../SyncHelper.cls.xml) (revision 3147) +++ APPS/Halux/PPS/TBXZaag/impl/SyncHelper.cls.xml (.../SyncHelper.cls.xml) (revision 3486) @@ -123,8 +123,8 @@ Continue:(rsGezaagd.Data("ProductieLijn")'=##class(APPS.Halux.PPS.TBXZaag.enu.Output2Lijn).Lijn1()) Set SyncBatch=ProdLijnen.GetAt(rsGezaagd.Data("ProductieLijn")) Continue:'$isObject(SyncBatch) + Continue:'ProductAPI.BestaatProduct(rsGezaagd.Data("Product")) Set Product = ProductAPI.GeefProduct(rsGezaagd.Data("Product")) - Continue:'$isObject(Product) Set SyncBatch.BufferAantal=SyncBatch.BufferAantal+1 Set SyncBatch.BufferLengte=SyncBatch.BufferLengte+Product.GeefInterneBreedte() } Index: APPS/CHUI/TerminalNavigatieService.cls.xml =================================================================== diff -u -r2183 -r3486 --- APPS/CHUI/TerminalNavigatieService.cls.xml (.../TerminalNavigatieService.cls.xml) (revision 2183) +++ APPS/CHUI/TerminalNavigatieService.cls.xml (.../TerminalNavigatieService.cls.xml) (revision 3486) @@ -12,10 +12,6 @@ Do ..ControleerGebruikerID(GebruikerID) Do ..ControleerComputerNaam(ComputerNaam) Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID) - If ('$IsObject(Product)) - { - Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige productid "_ProductID)) - } if ProductRaadpleegScherm = "" set ProductRaadpleegScherm = ##class(APPS.CHUI.enu.ProductRaadpleegScherm).Algemeen() Index: APPS/MAG/InventarisService.cls.xml =================================================================== diff -u -r2372 -r3486 --- APPS/MAG/InventarisService.cls.xml (.../InventarisService.cls.xml) (revision 2372) +++ APPS/MAG/InventarisService.cls.xml (.../InventarisService.cls.xml) (revision 3486) @@ -343,11 +343,7 @@ Set ProductReceptieDetail = ##class(APPS.MAG.Inventaris.dto.ProductReceptieDetail).%New() Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID) - If ('$IsObject(Product)) - { - Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Product "_ProductID_" bestaat niet!")) - } - + Set ProductReceptieDetail.ProductData = ##class(APPS.common.DataService).%New().GeefProductData(ProductID) Set ProductReceptieDetail.LeverancierReferentie = Product.GeefLeverancierReferentie() Set ProductReceptieDetail.LeverancierNaam = Product.GeefLeverancier().GeefNaam() @@ -542,11 +538,6 @@ Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID) - If ('$IsObject(Product)) - { - Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Product "_ProductID_" bestaat niet")) - } - Set Aantal = Product.GeefAantalInGrootVerpakking() * AantalGrootVerpakkingen + Aantal Set Aantal = Product.GeefAantalInNormaalVerpakking() * AantalNormaalVerpakkingen + Aantal Set Aantal = AantalKleinVerpakkingen + Aantal Index: APPS/Halux/PPS/TBXZaag/impl/MaakBatch.cls.xml =================================================================== diff -u -r2817 -r3486 --- APPS/Halux/PPS/TBXZaag/impl/MaakBatch.cls.xml (.../MaakBatch.cls.xml) (revision 2817) +++ APPS/Halux/PPS/TBXZaag/impl/MaakBatch.cls.xml (.../MaakBatch.cls.xml) (revision 3486) @@ -80,8 +80,8 @@ { Set ..Queue=it.Next() Continue:'$isObject(..Queue) + Continue:'..ProductAPI.BestaatProduct(..Queue.Product.%Id()) Set Product = ..ProductAPI.GeefProduct(..Queue.Product.%Id()) - Continue:'$isObject(Product) ;w !,..Queue.Product.%Id()," ",..Queue.Product.KortTekst," ",Product.%ClassName(1) Do Product.Accept(##this) ; trigger visitor } Index: DOM/PM/Maatwerk/Calc/Kost/KostContext.cls.xml =================================================================== diff -u -r1679 -r3486 --- DOM/PM/Maatwerk/Calc/Kost/KostContext.cls.xml (.../KostContext.cls.xml) (revision 1679) +++ DOM/PM/Maatwerk/Calc/Kost/KostContext.cls.xml (.../KostContext.cls.xml) (revision 3486) @@ -131,11 +131,6 @@ Set ProductAPI = DomeinContext.GeefProductAPI() Set Product = ProductAPI.GeefProduct(ProductID) - If ('$IsObject(Product)) - { - Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Het halffabrikaat met PRNr "_ProductID_" bestaat niet en er kan dus geen prijs voor gevonden worden")) - } - Set AankoopPrijsInfo = AankoopPrijsAPI.GeefAankoopPrijsInfo(Product, ..BerekeningsSpecificatie) Set VerkoopPrijsInfo = VerkoopPrijsAPI.GeefVerkoopPrijsInfo(Product, AankoopPrijsInfo.GeefReferentiePrijs() , ..BerekeningsSpecificatie)