Index: APPS/PM/Maatwerk/impl/BerekeningServiceProduct/TbxHelper.cls.xml =================================================================== diff -u -r65905 -r66253 --- APPS/PM/Maatwerk/impl/BerekeningServiceProduct/TbxHelper.cls.xml (.../TbxHelper.cls.xml) (revision 65905) +++ APPS/PM/Maatwerk/impl/BerekeningServiceProduct/TbxHelper.cls.xml (.../TbxHelper.cls.xml) (revision 66253) @@ -86,6 +86,10 @@ Do blTBox.Initialize($LG(..WebOrder.DCsFromLijnen(),1)) #dim ProductID As %String = $List(blTBox.BuildFromWS(..WebOrder,BuildOpties),1) + If ProductID = "" { + Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Fout bij berekenen van de TBX-onderdelen (zie voorgaande Warning in vhLib.Logging).") + } + Quit ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).OpenId(ProductID) ]]> Index: BL/PR/GA/TB/tmpDev2.mac.rou =================================================================== diff -u -r65900 -r66253 --- BL/PR/GA/TB/tmpDev2.mac.rou (.../tmpDev2.mac.rou) (revision 65900) +++ BL/PR/GA/TB/tmpDev2.mac.rou (.../tmpDev2.mac.rou) (revision 66253) @@ -432,6 +432,7 @@ . . . Do ##class(vhLib.Logger).%New().ErrorMail("KPRCreate failed","GADataProduct.SaveClean() vanuit BL.PR.GA.TB.tmpDev2.mac is niet gelukt. "_$$ParseStatus^vhLib(scSave)) . Else Do + . Set GemaaktProductId = "" . Set VKPrs="ERROR" . Set WSLn.Exclude=1