Index: vhUnitTest/DOM/PM/TestData.cls.xml =================================================================== diff -u -r31294 -r60814 --- vhUnitTest/DOM/PM/TestData.cls.xml (.../TestData.cls.xml) (revision 31294) +++ vhUnitTest/DOM/PM/TestData.cls.xml (.../TestData.cls.xml) (revision 60814) @@ -112,12 +112,14 @@ set $P(^KOD(1000,"F",..#OrderID, TLNr),"\",2)=PRNr ; ProductId set $P(^KOD(1000,"F",..#OrderID, TLNr),"\",3)=AantalOpOrder set $P(^KOD(1000,"F",..#OrderID, TLNr),"\",15)=TLUNr ; UniekLijnNr + set $P(^KOD(1000,"F",..#OrderID, TLNr),"\",17)=##class(DOM.VKP.enu.OrderLijnType).Product() set ^ORDW("IO",..#OrderID,TLUNr)="" set $P(^KTO(LeverancierNr,..#ToeleveringID, TLNr),"\",2)=PRNr ; ProductId set $P(^KTO(LeverancierNr,..#ToeleveringID,TLNr),"\",3)=AantalOpToelevering set $P(^KTO(LeverancierNr,..#ToeleveringID,TLNr),"\",15)=TLUNr ; UniekLijnNr + set $P(^KTO(LeverancierNr,..#ToeleveringID,TLNr),"\",17)= ##class(DOM.AKP.enu.ToeleveringLijnType).Product() set ^RCP("IT",..#ToeleveringID,TLUNr)= ..#ReceptieID @@ -166,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() ]]>