Index: vhUnitTest/DOM/PM/TestData.cls.xml =================================================================== diff -u -r60813 -r60814 --- vhUnitTest/DOM/PM/TestData.cls.xml (.../TestData.cls.xml) (revision 60813) +++ vhUnitTest/DOM/PM/TestData.cls.xml (.../TestData.cls.xml) (revision 60814) @@ -168,20 +168,21 @@ Kill ^KLAS("K",2) Kill ^KPSG1("13OL02ABK01ABG/OL ") - #dim PRNr As %Integer = 0 - for PRNr = PRNrStart:1:PRNrStop { - if ##class(DOM.DomeinContext).Instance().GeefProductAPI().BestaatProduct(PRNr) do DELETE^PRODUKT2(PRNr,1) - do ..DeleteKenmerkenViaPRNr(PRNr) ; Deze zal ook de (eventuele) corrupte kenmerken verwijderen! - do ..VerwijderInUitvoer(PRNr) - } - do ##class(vhUnitTest.DataHelper).VerwijderToelevering(..#ToeleveringID) do ##class(vhUnitTest.DataHelper).VerwijderOrder(..#OrderID) Kill ^RCP("IT",..#ToeleveringID) Kill ^RCP("D",..#ReceptieID) Kill ^ORDW("IO",..#OrderID) + + #dim PRNr As %Integer = 0 + for PRNr = PRNrStart:1:PRNrStop { + if ##class(DOM.DomeinContext).Instance().GeefProductAPI().BestaatProduct(PRNr) do DELETE^PRODUKT2(PRNr,1) + do ..DeleteKenmerkenViaPRNr(PRNr) ; Deze zal ook de (eventuele) corrupte kenmerken verwijderen! + do ..VerwijderInUitvoer(PRNr) + } + do ..RemoveGroepSleutelsFromMetaDef() ]]>