Index: vhUnitTest/DOM/PM/impl/DataM/PakketService/PakketServiceFake.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/DataM/PakketService/PakketServiceFake.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/DataM/PakketService/PakketServiceFake.cls.xml	(revision 47325)
@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake">
+<Super>DOM.PM.impl.DataM.PakketService</Super>
+
+<Parameter name="Global">
+<Type>%String</Type>
+<Default>..MultiDim</Default>
+</Parameter>
+
+<Property name="MultiDim">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Method name="Setup">
+<FormalSpec>MultiDim:%String</FormalSpec>
+<Implementation><![CDATA[
+	Kill ..MultiDim
+	Merge ..MultiDim = MultiDim
+]]></Implementation>
+</Method>
+
+<Method name="GeefNieuwPakketNummer">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Increment(..MultiDim("N"))
+]]></Implementation>
+</Method>
+
+<Method name="ZetEnkelNNodeTestData">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Data:%String</FormalSpec>
+<Implementation><![CDATA[	Set Data("N") = 10
+]]></Implementation>
+</Method>
+
+<Method name="Zet3pakkettenTestData">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Data:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Data("N") = 10
+	
+	Set Data("D",7)					="1000\1014,002\E\"
+	Set Data("D",7,3414)			="1"	
+	Set Data("IK",1000,"1014002")	=7
+	Set Data("IP",3414,1000,7)		=""
+
+	Set Data("D",8)					="1000\1014,003\E\Oudeomschrijving\0"
+	Set Data("D",8,3415)			="1"	
+	Set Data("IK",1000,"1014003")	=8
+	Set Data("IP",3415,1000,8)		=""
+
+
+	Set Data("D",9)					="1000\1014,004\E\"
+	Set Data("D",9,3416)			="1"	
+	Set Data("IK",1000,"1014004")	=9
+	Set Data("IP",3416,1000,9)		=""
+]]></Implementation>
+</Method>
+
+<Method name="Zet4pakkettenVerschillendeKlantenTestData">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Data:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Data("N") = 10
+	
+	Set Data("D",6)					="1000\1014,001\E\"
+	Set Data("D",6,3414)			="1"	
+	Set Data("IK",1000,"1014001")	=6
+	Set Data("IP",3414,1000,6)		=""
+
+	Set Data("D",7)					="1000\1014,002\E\"
+	Set Data("D",7,3414)			="1"	
+	Set Data("IK",1000,"1014002")	=7
+	Set Data("IP",3414,1000,7)		=""
+
+	Set Data("D",8)					="1001\1014,003\E\"
+	Set Data("D",8,3415)			="1"	
+	Set Data("IK",1001,"1014003")	=8
+	Set Data("IP",3415,1001,8)		=""
+
+	Set Data("D",9)					="1000\1014,004\E\"
+	Set Data("D",9,3416)			="1"	
+	Set Data("IK",1000,"1014004")	=9
+	Set Data("IP",3416,1000,9)		=""
+]]></Implementation>
+</Method>
+
+<Method name="ZetPakket1Product">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Data:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Data("D",8)					="1000\1014,003\E\Oudeomschrijving\0"
+	Set Data("D",8,3415)			="1"	
+	Set Data("IK",1000,"1014003")	=8
+	Set Data("IP",3415,1000,8)		=""
+]]></Implementation>
+</Method>
+
+<Method name="ZetPakket3Producten">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Data:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Data("D",8)					="1000\1014,003\D\Oudeomschrijving\0"
+	Set Data("D",8,3415)			="1"	
+	Set Data("D",8,3416)			="1"	
+	Set Data("D",8,3417)			="1"	
+	Set Data("IK",1000,"1014003")	=8
+	Set Data("IP",3415,1000,8)		=""
+	Set Data("IP",3416,1000,8)		=""
+	Set Data("IP",3417,1000,8)		=""
+]]></Implementation>
+</Method>
+
+<Method name="LockNNode">
+<Private>1</Private>
+</Method>
+
+<Method name="UnlockNNode">
+<Private>1</Private>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/impl/DataM/PakketService.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/DataM/PakketService.cls.xml	(revision 0)
+++ DOM/PM/impl/DataM/PakketService.cls.xml	(revision 47325)
@@ -0,0 +1,193 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.impl.DataM.PakketService">
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="Global">
+<Type>%String</Type>
+<Default>^PAKKET</Default>
+</Parameter>
+
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	 Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI,##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
+	 Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderPakket">
+<FormalSpec>PakketNummer:%String</FormalSpec>
+<Implementation><![CDATA[
+	if $$$Not($Data(@..#Global("D",PakketNummer))){
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan niet bestaand pakket nummer '" _ PakketNummer _ "' niet verwijderen'"))
+	}
+	
+	Set ProductIdIterator = ##class(TECH.ListIterator).%New(..GeefProductIdsVoorPakketNummer(PakketNummer))
+	While ProductIdIterator.HasNext(){
+		Do ..VerwijderPakketOnderdeel(PakketNummer,ProductIdIterator.Next())
+	}
+		
+	#dim KlantNummer as %String = $Piece(@..#Global("D",PakketNummer),"\",1)
+	#dim PakketNaam as %String = $$UPTRIMAN^vhRtn1($Piece(@..#Global("D",PakketNummer),"\",2))
+
+	Kill @..#Global("IK",KlantNummer,PakketNaam)
+	Kill @..#Global("D",PakketNummer)
+]]></Implementation>
+</Method>
+
+<Method name="BestaatViaPakketnaam">
+<FormalSpec>KlantId:%String,Pakketnaam:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim KlantNummer = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(KlantId)
+	Quit $Data(@..#Global("IK",KlantNummer,$$UPTRIMAN^vhRtn1(Pakketnaam)))
+]]></Implementation>
+</Method>
+
+<Method name="GeefPakketNummersVoorKlantProduct">
+<FormalSpec>KlantId:%String,ProductId:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set Pakketnummers  = ##class(%ListOfDataTypes).%New()
+	#dim KlantNummer = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(KlantId)
+	
+	#dim PakketNummer as %String = ""
+	For  Set PakketNummer = $Order(@..#Global("IP",ProductId,KlantNummer,PakketNummer)) quit:PakketNummer=""  Do
+	. DO Pakketnummers.Insert(PakketNummer)
+	
+	Quit Pakketnummers
+]]></Implementation>
+</Method>
+
+<Method name="GeefOfMaakPakketnummerVoorPakketnaam">
+<FormalSpec>KlantId:%String,Pakketnaam:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim KlantNummer = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(KlantId)
+	if ..BestaatViaPakketnaam(KlantId,Pakketnaam){
+		Quit ..GeefPakketNummerViaPakketnaam(KlantNummer,Pakketnaam)
+	} else {
+		quit ..MaakViaPakketnaam(KlantNummer,Pakketnaam)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZetPakketType">
+<FormalSpec>PakketNummer:%String,Type:%String</FormalSpec>
+<Implementation><![CDATA[
+	if $$$Not($Data(@..#Global("D",PakketNummer))){
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Update van niet bestaand pakket met nummer '" _ PakketNummer _"'."))
+	}
+	Set $Piece(@..#Global("D",PakketNummer),"\",3) = Type
+]]></Implementation>
+</Method>
+
+<Method name="ZetPakketOmschrijving">
+<FormalSpec>PakketNummer:%String,Omschrijving:%String</FormalSpec>
+<Implementation><![CDATA[
+	if $$$Not($Data(@..#Global("D",PakketNummer))){
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Update van niet bestaand pakket met nummer '" _ PakketNummer _"'."))
+	}
+	Set $Piece(@..#Global("D",PakketNummer),"\",4) = Omschrijving
+]]></Implementation>
+</Method>
+
+<Method name="ZetPakketNonAktief">
+<FormalSpec>PakketNummer:%String,NonAktief:%String</FormalSpec>
+<Implementation><![CDATA[
+	if $$$Not($Data(@..#Global("D",PakketNummer))){
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Update van niet bestaand pakket met nummer '" _ PakketNummer _"'."))
+	}
+	Set $Piece(@..#Global("D",PakketNummer),"\",5) = NonAktief
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductIdsVoorPakketNummer">
+<FormalSpec>PakketNummer:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	if $$$Not($Data(@..#Global("D",PakketNummer))){
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan productids niet geven voor onbestaand pakketnummer '"_PakketNummer_"'."))
+	}
+	Set OnderdeelIds = ##class(%ListOfDataTypes).%New()
+	#dim ProductId as %String = ""
+	For  Set ProductId = $Order(@..#Global("D",PakketNummer,ProductId)) quit:ProductId=""  Do
+	. Do OnderdeelIds.Insert(ProductId)
+	
+	Quit OnderdeelIds
+]]></Implementation>
+</Method>
+
+<Method name="BewaarPakketOnderdeel">
+<FormalSpec>PakketNummer:%String,ProductId:%String,Aantal:%Integer,OptieGroep:%String="",AutoSelect:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	if $$$Not($Data(@..#Global("D",PakketNummer))){
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan geen onderdeel maken voor niet bestaand pakket met pakketnummer '"_PakketNummer_"'"))
+	}
+	Set $Piece(@..#Global("D",PakketNummer,ProductId),"\",1) = Aantal
+	Set $Piece(@..#Global("D",PakketNummer,ProductId),"\",2) = OptieGroep
+	Set $Piece(@..#Global("D",PakketNummer,ProductId),"\",3) = AutoSelect
+	#Dim KlantNummer as %String = $Piece(@..#Global("D",PakketNummer),"\",1)
+
+	Set @..#Global("IP",ProductId,KlantNummer,PakketNummer) = ""
+
+	Quit PakketNummer _ "||" _ ProductId
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderPakketOnderdeel">
+<FormalSpec>PakketNummer:%String,ProductId:%String</FormalSpec>
+<Implementation><![CDATA[
+	if $$$Not($Data(@..#Global("D",PakketNummer))){
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan geen onderdeel verwijderen voor niet bestaand pakket met pakketnummer '"_PakketNummer_"'"))
+	}
+
+	#Dim KlantNummer as %String = $Piece(@..#Global("D",PakketNummer),"\",1)
+	Kill @..#Global("D",PakketNummer,ProductId)
+	Kill @..#Global("IP",ProductId,KlantNummer,PakketNummer)
+]]></Implementation>
+</Method>
+
+<Method name="GeefNieuwPakketNummer">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $$NEXTID^PAKKET
+]]></Implementation>
+</Method>
+
+<Method name="MaakViaPakketnaam">
+<FormalSpec>KlantNummer:%String,Pakketnaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PakketNummer as %String = ..GeefNieuwPakketNummer()
+	Set $Piece(@..#Global("D",PakketNummer),"\",1) = KlantNummer
+	Set $Piece(@..#Global("D",PakketNummer),"\",2) = Pakketnaam
+	
+	Set @..#Global("IK",KlantNummer,$$UPTRIMAN^vhRtn1(Pakketnaam)) = PakketNummer
+		
+	Quit PakketNummer
+]]></Implementation>
+</Method>
+
+<Method name="GeefPakketNummerViaPakketnaam">
+<FormalSpec>KlantNummer:%String,Pakketnaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit @..#Global("IK",KlantNummer,$$UPTRIMAN^vhRtn1(Pakketnaam))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/impl/DataM/PakketService/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/DataM/PakketService/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/DataM/PakketService/Test.cls.xml	(revision 47325)
@@ -0,0 +1,334 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.DataM.PakketService.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test Aanmaken nieuw pakket maakt de N node aan indien deze niet bestaat">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  = ""
+	;do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).ZetTestData(.Data)
+	do PakketService.Setup(.Data)
+	
+	Do $$$AssertEquals($Get(PakketService.MultiDim("N")) ,"")
+	Do $$$AssertEquals( PakketService.GeefOfMaakPakketnummerVoorPakketnaam("K||1000", "testpakket"),"1")
+	Do $$$AssertEquals(PakketService.MultiDim("N") ,"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test Aanmaken nieuw pakket verhoogt de N node met 1">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).ZetEnkelNNodeTestData(.Data)
+	do PakketService.Setup(.Data)
+	
+	Do $$$AssertEquals(PakketService.MultiDim("N") ,"10")
+	Do $$$AssertEquals( PakketService.GeefOfMaakPakketnummerVoorPakketnaam("K||1000", "testpakket"),"11")
+	Do $$$AssertEquals(PakketService.MultiDim("N") ,"11")
+]]></Implementation>
+</Method>
+
+<Method name="Test Aanmaken nieuw pakket maakt de pakket node  en de IK index aan">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).Zet3pakkettenTestData(.Data)
+	do PakketService.Setup(.Data)
+	
+	Do $$$AssertEquals(PakketService.MultiDim("N") ,"10")
+	Do $$$AssertEquals( PakketService.GeefOfMaakPakketnummerVoorPakketnaam("K||1000", "testpakket"),"11")
+	Do $$$AssertEquals(PakketService.MultiDim("D",11) ,"1000\testpakket")
+	Do $$$AssertEquals(PakketService.MultiDim("IK",1000,"TESTPAKKET"),11)
+]]></Implementation>
+</Method>
+
+<Method name="Test GeefOfMaakNieuwPakket geeft pakketnummer van bestaand pakket terug">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).Zet3pakkettenTestData(.Data)
+	do PakketService.Setup(.Data)
+	
+	Do $$$AssertEquals( PakketService.GeefOfMaakPakketnummerVoorPakketnaam("K||1000", "1014.003"),"8")
+]]></Implementation>
+</Method>
+
+<Method name="Test BestaatViaPakketnaam return waardes">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).Zet3pakkettenTestData(.Data)
+	Do PakketService.Setup(.Data)
+	
+	Do $$$AssertTrue(PakketService.BestaatViaPakketnaam("K||1000","1014002"))
+	Do $$$AssertTrue(PakketService.BestaatViaPakketnaam("K||1000","1014.002"))
+	Do $$$AssertFalse(PakketService.BestaatViaPakketnaam("K||1001","1014.002"))
+	Do $$$AssertFalse(PakketService.BestaatViaPakketnaam("K||1000","foutenaam"))
+]]></Implementation>
+</Method>
+
+<Method name="Test VerwijderPakket cleared de data uit de globals">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).Zet3pakkettenTestData(.Data)
+	Do PakketService.Setup(.Data)
+
+	Do $$$AssertEquals(PakketService.MultiDim("D","8"),"1000\1014,003\E\Oudeomschrijving\0")
+	Do $$$AssertEquals(PakketService.MultiDim("D",8,3415),"1")
+	Do $$$AssertEquals(PakketService.MultiDim("IK",1000,"1014003"),"8")
+	Do $$$AssertEquals(PakketService.MultiDim("IP",3415,1000,8),"")
+	
+	Do PakketService.VerwijderPakket(8)
+	
+	Do $$$AssertFalse($Data(PakketService.MultiDim("D","8")))
+	Do $$$AssertFalse($Data(PakketService.MultiDim("D",8,3415)))
+	Do $$$AssertFalse($Data(PakketService.MultiDim("IK",1000,"1014003")))
+	Do $$$AssertFalse($Data(PakketService.MultiDim("IP",3415,1000,8)))
+]]></Implementation>
+</Method>
+
+<Method name="Test GeefPakketNummersVoorKlantProduct">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).Zet4pakkettenVerschillendeKlantenTestData(.Data)
+	Do PakketService.Setup(.Data)
+
+	Do $$$AssertEquals(PakketService.GeefPakketNummersVoorKlantProduct("K||1000",3416).Count(),1)
+	Do $$$AssertEquals(PakketService.GeefPakketNummersVoorKlantProduct("K||1000",3415).Count(),0)
+	Do $$$AssertEquals(PakketService.GeefPakketNummersVoorKlantProduct("K||1000",3414).Count(),2)
+	Do $$$AssertEquals(PakketService.GeefPakketNummersVoorKlantProduct("K||1000",3414).GetAt(1),"6")
+	Do $$$AssertEquals(PakketService.GeefPakketNummersVoorKlantProduct("K||1000",3414).GetAt(2),"7")
+]]></Implementation>
+</Method>
+
+<Method name="Test ZetPakketType past de juiste piece aan in de global">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).Zet3pakkettenTestData(.Data)
+	Do PakketService.Setup(.Data)
+
+	Do $$$AssertEquals($Piece(PakketService.MultiDim("D",8),"\",3),"E")
+	Do PakketService.ZetPakketType(8,"X")
+	Do $$$AssertEquals($Piece(PakketService.MultiDim("D",8),"\",3),"X")
+]]></Implementation>
+</Method>
+
+<Method name="Test ZetPakketType gooit exceptie indien onbestaand pakket">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).Zet3pakkettenTestData(.Data)
+	Do PakketService.Setup(.Data)
+	
+	#Dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Update van niet bestaand pakket met nummer '666'.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+	
+	Do PakketService.ZetPakketType(666,"X")
+]]></Implementation>
+</Method>
+
+<Method name="Test ZetPakketOmschrijving past de juiste piece aan in de global">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).Zet3pakkettenTestData(.Data)
+	Do PakketService.Setup(.Data)
+
+	Do $$$AssertEquals($Piece(PakketService.MultiDim("D",8),"\",4),"Oudeomschrijving")
+	Do PakketService.ZetPakketOmschrijving(8,"NieuweOmschrijving")
+	Do $$$AssertEquals($Piece(PakketService.MultiDim("D",8),"\",4),"NieuweOmschrijving")
+]]></Implementation>
+</Method>
+
+<Method name="Test ZetPakketOmschrijving gooit exceptie indien onbestaand pakket">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).Zet3pakkettenTestData(.Data)
+	Do PakketService.Setup(.Data)
+	
+	#Dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Update van niet bestaand pakket met nummer '666'.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+	
+	Do PakketService.ZetPakketOmschrijving(666,"X")
+]]></Implementation>
+</Method>
+
+<Method name="Test ZetPakketNonAktief past de juiste piece aan in de global">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).Zet3pakkettenTestData(.Data)
+	Do PakketService.Setup(.Data)
+
+	Do $$$AssertEquals($Piece(PakketService.MultiDim("D",8),"\",5),"0")
+	Do PakketService.ZetPakketNonAktief(8,"1")
+	Do $$$AssertEquals($Piece(PakketService.MultiDim("D",8),"\",5),"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test ZetPakketNonAktief gooit exceptie indien onbestaand pakket">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).Zet3pakkettenTestData(.Data)
+	Do PakketService.Setup(.Data)
+	
+	#Dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Update van niet bestaand pakket met nummer '666'.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+	
+	Do PakketService.ZetPakketNonAktief(666,"X")
+]]></Implementation>
+</Method>
+
+<Method name="Test GeefProductIdsVoorPakketId 1 product">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).ZetPakket1Product(.Data)
+	Do PakketService.Setup(.Data)
+	
+	Do $$$AssertEquals(PakketService.GeefProductIdsVoorPakketNummer(8).Count(),1)
+	Do $$$AssertEquals(PakketService.GeefProductIdsVoorPakketNummer(8).GetAt(1),"3415")
+]]></Implementation>
+</Method>
+
+<Method name="Test GeefProductIdsVoorPakketId 3 producten">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).ZetPakket3Producten(.Data)
+	Do PakketService.Setup(.Data)
+	
+	Do $$$AssertEquals(PakketService.GeefProductIdsVoorPakketNummer(8).Count(),3)
+	Do $$$AssertEquals(PakketService.GeefProductIdsVoorPakketNummer(8).GetAt(1),"3415")
+	Do $$$AssertEquals(PakketService.GeefProductIdsVoorPakketNummer(8).GetAt(2),"3416")
+	Do $$$AssertEquals(PakketService.GeefProductIdsVoorPakketNummer(8).GetAt(3),"3417")
+]]></Implementation>
+</Method>
+
+<Method name="Test GeefProductIdsVoorPakketId onbestaand pakket">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).ZetPakket3Producten(.Data)
+	Do PakketService.Setup(.Data)
+
+	#Dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan productids niet geven voor onbestaand pakketnummer '666'.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+
+	#dim aantal as %Integer = PakketService.GeefProductIdsVoorPakketNummer(666).Count()
+]]></Implementation>
+</Method>
+
+<Method name="Test BewaarPakketOnderdeel voegt een onderdeel toe aan een bestaand pakket">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).ZetPakket1Product(.Data)
+	Do PakketService.Setup(.Data)
+
+	Do $$$AssertEquals(PakketService.GeefProductIdsVoorPakketNummer(8).Count(),1)
+	Do $$$AssertEquals(PakketService.MultiDim("D",8,3415),"1")
+	Do $$$AssertEquals(PakketService.MultiDim("IP",3415,1000,8),"")
+	
+	Do PakketService.BewaarPakketOnderdeel(8,"12345",1,"Optieroep","autoselect")
+
+	Do $$$AssertEquals(PakketService.GeefProductIdsVoorPakketNummer(8).Count(),2)	
+	Do $$$AssertEquals(PakketService.MultiDim("D",8,3415),"1")
+	Do $$$AssertEquals(PakketService.MultiDim("D",8,12345),"1\Optieroep\autoselect")
+	Do $$$AssertEquals(PakketService.MultiDim("IP",3415,1000,8),"")
+	Do $$$AssertEquals(PakketService.MultiDim("IP",12345,1000,8),"")
+]]></Implementation>
+</Method>
+
+<Method name="Test BewaarPakketOnderdeel overschijft gegevens van een onderdeel in dit product er reeds in zat">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).ZetPakket1Product(.Data)
+	Do PakketService.Setup(.Data)
+
+	Do $$$AssertEquals(PakketService.GeefProductIdsVoorPakketNummer(8).Count(),1)
+	Do $$$AssertEquals(PakketService.MultiDim("D",8,3415),"1")
+	Do $$$AssertEquals(PakketService.MultiDim("IP",3415,1000,8),"")
+	
+	Do PakketService.BewaarPakketOnderdeel(8,"3415",2,"Optieroep","autoselect")
+
+	Do $$$AssertEquals(PakketService.GeefProductIdsVoorPakketNummer(8).Count(),1)	
+	Do $$$AssertEquals(PakketService.MultiDim("D",8,3415),"2\Optieroep\autoselect")
+	Do $$$AssertEquals(PakketService.MultiDim("IP",3415,1000,8),"")
+]]></Implementation>
+</Method>
+
+<Method name="Test BewaarPakketOnderdeel onbestaand pakket smijt exceptie">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).ZetPakket1Product(.Data)
+	Do PakketService.Setup(.Data)
+	
+
+	#Dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan geen onderdeel maken voor niet bestaand pakket met pakketnummer '666'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+
+	Do PakketService.BewaarPakketOnderdeel(666,"12345",1,"Optieroep","autoselect")
+]]></Implementation>
+</Method>
+
+<Method name="Test VerwijderPakketOnderdeel verwijderd een onderdeel uit een bestaand pakket">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).ZetPakket3Producten(.Data)
+	Do PakketService.Setup(.Data)
+
+	Do $$$AssertEquals(PakketService.GeefProductIdsVoorPakketNummer(8).Count(),3)
+	Do $$$AssertEquals(PakketService.MultiDim("D",8,3416),"1")
+	Do $$$AssertEquals(PakketService.MultiDim("IP",3416,1000,8),"")
+	
+	Do PakketService.VerwijderPakketOnderdeel(8,"3416")
+
+	Do $$$AssertFalse($Data(PakketService.MultiDim("D",8,3416)))
+	Do $$$AssertFalse($Data(PakketService.MultiDim("IP",3416,1000,8)))
+	Do $$$AssertEquals(PakketService.GeefProductIdsVoorPakketNummer(8).Count(),2)
+]]></Implementation>
+</Method>
+
+<Method name="Test VerwijderPakketOnderdeel onbestaand pakket">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).ZetPakket1Product(.Data)
+	Do PakketService.Setup(.Data)
+	
+
+	#Dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan geen onderdeel verwijderen voor niet bestaand pakket met pakketnummer '666'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+
+	Do PakketService.VerwijderPakketOnderdeel(666,"12345")
+]]></Implementation>
+</Method>
+
+<Method name="Test VerwijderPakketOnderdeel onbestaand onderdeel uit bestaand pakket heeft geen effect">
+<Implementation><![CDATA[
+	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
+	#dim Data As TECH.MultiDim  
+	Do ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).ZetPakket1Product(.Data)
+	Do PakketService.Setup(.Data)
+	
+	Do $$$AssertEquals(PakketService.GeefProductIdsVoorPakketNummer(8).Count(),1)
+	
+	Do PakketService.VerwijderPakketOnderdeel(8,"12345")
+	
+	Do $$$AssertEquals(PakketService.GeefProductIdsVoorPakketNummer(8).Count(),1)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>