Index: vhDeploy/Deploy20210816xVerwijderenOudeTBXSpec.cls.xml =================================================================== diff -u -r65506 -r65511 --- vhDeploy/Deploy20210816xVerwijderenOudeTBXSpec.cls.xml (.../Deploy20210816xVerwijderenOudeTBXSpec.cls.xml) (revision 65506) +++ vhDeploy/Deploy20210816xVerwijderenOudeTBXSpec.cls.xml (.../Deploy20210816xVerwijderenOudeTBXSpec.cls.xml) (revision 65511) @@ -11,7 +11,7 @@ 1 @@ -35,6 +35,13 @@ } try { + Set KostSpecInfoID = ##class(TECH.ResultSet).GeefIDVanEersteRecord("SELECT ID FROM DOM_PM_Maatwerk_Calc_Kost_impl.KostSpecInfo WHERE KostSpec = ?",$listbuild("DOM.PM.Maatwerk.Calc.Kost.impl.TBX.SpecIntivoPlanv001")) + Set KostSpecInfo = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostSpecInfo).OpenId(KostSpecInfoID) + Do KostSpecInfo.Delete() + } catch { + } + + try { Set KostSpecInfoID = ##class(TECH.ResultSet).GeefIDVanEersteRecord("SELECT ID FROM DOM_PM_Maatwerk_Calc_Kost_impl.KostSpecInfo WHERE KostSpec = ?",$listbuild("DOM.PM.Maatwerk.Calc.Kost.impl.TBX.SpecPlusPlanv001")) Set KostSpecInfo = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostSpecInfo).OpenId(KostSpecInfoID) Do KostSpecInfo.Delete()