Index: vhUnitTest/DOM/PM/Maatwerk/FrameworkData.cls.xml =================================================================== diff -u -r29059 -r65497 --- vhUnitTest/DOM/PM/Maatwerk/FrameworkData.cls.xml (.../FrameworkData.cls.xml) (revision 29059) +++ vhUnitTest/DOM/PM/Maatwerk/FrameworkData.cls.xml (.../FrameworkData.cls.xml) (revision 65497) @@ -11,12 +11,6 @@ Do ..Delete() Set HalffabSpecInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).%New(##class(DOM.PM.enu.Familie).AluKader(),##class(DOM.PM.enu.AluKaderVariant).Basis(),"DOM.PM.Maatwerk.Calc.HF.impl.KAD.SpecMainHFv001","UnitTest") Do HalffabSpecInfo.%Save() - Set HalffabSpecInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).%New(##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TBXIntivo(),"DOM.PM.Maatwerk.Calc.HF.impl.TBX.SpecIntivoHFv002","UnitTest") - Do HalffabSpecInfo.%Save() - Set HalffabSpecInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).%New(##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TBXAntaro(),"DOM.PM.Maatwerk.Calc.HF.impl.TBX.SpecAntaroHFv001","UnitTest") - Do HalffabSpecInfo.%Save() - Set HalffabSpecInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).%New(##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TBXPlus(),"DOM.PM.Maatwerk.Calc.HF.impl.TBX.SpecPlusHFv001","UnitTest") - Set Status = HalffabSpecInfo.%Save() // Data voor profielen van kaderdeuren @@ -34,12 +28,6 @@ Set KostSpec = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostSpecInfo).%New(##class(DOM.PM.enu.Familie).AluKader(),##class(DOM.PM.enu.AluKaderVariant).Basis(),"DOM.PM.Maatwerk.Calc.Kost.impl.KAD.SpecMainKostv001","UnitTest") Do KostSpec.%Save() - Set KostSpec = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostSpecInfo).%New(##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TBXIntivo(),"DOM.PM.Maatwerk.Calc.Kost.impl.TBX.SpecIntivoKostv001","UnitTest") - Do KostSpec.%Save() - Set KostSpec = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostSpecInfo).%New(##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TBXAntaro(),"DOM.PM.Maatwerk.Calc.Kost.impl.TBX.SpecAntaroKostv001","UnitTest") - Do KostSpec.%Save() - Set KostSpec = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostSpecInfo).%New(##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TBXPlus(),"DOM.PM.Maatwerk.Calc.Kost.impl.TBX.SpecPlusKostv001","UnitTest") - Do KostSpec.%Save() ]]>