Index: DOM/PM/impl/DataM/PakketService.cls.xml
===================================================================
diff -u -r47325 -r47344
--- DOM/PM/impl/DataM/PakketService.cls.xml	(.../PakketService.cls.xml)	(revision 47325)
+++ DOM/PM/impl/DataM/PakketService.cls.xml	(.../PakketService.cls.xml)	(revision 47344)
@@ -25,26 +25,6 @@
 ]]></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>
@@ -54,31 +34,22 @@
 ]]></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">
+<Method name="MaakPakket">
 <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)
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Pakket met naam '"_ Pakketnaam _"' bestaat reeds voor KlantId '"_ KlantId _"'."))	
 	}
+	#dim KlantNummer = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(KlantId)
+	
+	#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>
 
@@ -92,6 +63,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPakketType">
+<FormalSpec>PakketNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	if $$$Not($Data(@..#Global("D",PakketNummer))){
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan type niet geven van onbestaand pakket met nummer '" _ PakketNummer _"'."))
+	}
+	Quit $Piece(@..#Global("D",PakketNummer),"\",3)
+]]></Implementation>
+</Method>
+
 <Method name="ZetPakketOmschrijving">
 <FormalSpec>PakketNummer:%String,Omschrijving:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -102,6 +84,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPakketOmschrijving">
+<FormalSpec>PakketNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	if $$$Not($Data(@..#Global("D",PakketNummer))){
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan omschrijving niet geven van onbestaand pakket met nummer '" _ PakketNummer _"'."))
+	}
+	Quit $Piece(@..#Global("D",PakketNummer),"\",4)
+]]></Implementation>
+</Method>
+
 <Method name="ZetPakketNonAktief">
 <FormalSpec>PakketNummer:%String,NonAktief:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -112,6 +105,80 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPakketNonAktief">
+<FormalSpec>PakketNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	if $$$Not($Data(@..#Global("D",PakketNummer))){
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan NonAktief niet geven van onbestaand pakket met nummer '" _ PakketNummer _"'."))
+	}
+	Quit $Piece(@..#Global("D",PakketNummer),"\",5)
+]]></Implementation>
+</Method>
+
+<Method name="GeefPakketNummerViaPakketnaam">
+<FormalSpec>KlantId:%String,Pakketnaam:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	if ..BestaatViaPakketnaam(KlantId,Pakketnaam) {
+		#dim KlantNummer = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(KlantId)
+		Quit @..#Global("IK",KlantNummer,$$UPTRIMAN^vhRtn1(Pakketnaam))
+	} else {
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan pakketnummer van pakket met naam '"_ Pakketnaam _"' niet vinden voor KlantId '"_KlantId_"'."))
+	}
+]]></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="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="GeefTypeEPakketNummersVoorKlantProduct">
+<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:($Piece(@..#Global("D",PakketNummer),"\",3)="E") Pakketnummers.Insert(PakketNummer)
+	
+	Quit Pakketnummers
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductIdsVoorPakketNummer">
 <FormalSpec>PakketNummer:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
@@ -164,29 +231,6 @@
 <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>
 
 
Index: vhUnitTest/DOM/PM/impl/DataM/PakketService/Test.cls.xml
===================================================================
diff -u -r47325 -r47344
--- vhUnitTest/DOM/PM/impl/DataM/PakketService/Test.cls.xml	(.../Test.cls.xml)	(revision 47325)
+++ vhUnitTest/DOM/PM/impl/DataM/PakketService/Test.cls.xml	(.../Test.cls.xml)	(revision 47344)
@@ -7,11 +7,10 @@
 <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.MaakPakket("K||1000", "testpakket"),"1")
 	Do $$$AssertEquals(PakketService.MultiDim("N") ,"1")
 ]]></Implementation>
 </Method>
@@ -24,7 +23,7 @@
 	do PakketService.Setup(.Data)
 	
 	Do $$$AssertEquals(PakketService.MultiDim("N") ,"10")
-	Do $$$AssertEquals( PakketService.GeefOfMaakPakketnummerVoorPakketnaam("K||1000", "testpakket"),"11")
+	Do $$$AssertEquals( PakketService.MaakPakket("K||1000", "testpakket"),"11")
 	Do $$$AssertEquals(PakketService.MultiDim("N") ,"11")
 ]]></Implementation>
 </Method>
@@ -37,23 +36,51 @@
 	do PakketService.Setup(.Data)
 	
 	Do $$$AssertEquals(PakketService.MultiDim("N") ,"10")
-	Do $$$AssertEquals( PakketService.GeefOfMaakPakketnummerVoorPakketnaam("K||1000", "testpakket"),"11")
+	Do $$$AssertEquals(PakketService.MaakPakket("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">
+<Method name="Test Aanmaken nieuw pakket met reeds bestaande pakketnaam voor klant 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).Zet3pakkettenTestData(.Data)
 	do PakketService.Setup(.Data)
+
+	#Dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Pakket met naam '1014,002' bestaat reeds voor KlantId 'K||1000'.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+
+	#dim Pakketnummer As %String = PakketService.MaakPakket("K||1000","1014,002")
+]]></Implementation>
+</Method>
+
+<Method name="Test GeefPakketNummerViaPakketnaam 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")
+	Do $$$AssertEquals( PakketService.GeefPakketNummerViaPakketnaam("K||1000", "1014.003"),"8")
 ]]></Implementation>
 </Method>
 
+<Method name="Test GeefPakketNummerViaPakketnaam smijt exceptie indien ongekende pakketnaam">
+<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("Kan pakketnummer van pakket met naam 'onbestaand' niet vinden voor KlantId 'K||1000'.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+
+	#dim pakketnummer as %String = PakketService.GeefPakketNummerViaPakketnaam("K||1000", "onbestaand")
+]]></Implementation>
+</Method>
+
 <Method name="Test BestaatViaPakketnaam return waardes">
 <Implementation><![CDATA[
 	set PakketService = ##class(vhUnitTest.DOM.PM.impl.DataM.PakketService.PakketServiceFake).%New()	
@@ -104,6 +131,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test GeefTypeEPakketNummersVoorKlantProduct">
+<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).Zet4pakkettenVerschillendeTypesTestData(.Data)
+	Do PakketService.Setup(.Data)
+
+	Do $$$AssertEquals(PakketService.GeefPakketNummersVoorKlantProduct("K||1000",3414).Count(),2)
+	Do $$$AssertEquals(PakketService.GeefTypeEPakketNummersVoorKlantProduct("K||1000",3414).Count(),1)
+	Do $$$AssertEquals(PakketService.GeefTypeEPakketNummersVoorKlantProduct("K||1000",3414).GetAt(1),"6")
+]]></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()	
Index: vhUnitTest/DOM/PM/impl/DataM/PakketService/PakketServiceFake.cls.xml
===================================================================
diff -u -r47325 -r47344
--- vhUnitTest/DOM/PM/impl/DataM/PakketService/PakketServiceFake.cls.xml	(.../PakketServiceFake.cls.xml)	(revision 47325)
+++ vhUnitTest/DOM/PM/impl/DataM/PakketService/PakketServiceFake.cls.xml	(.../PakketServiceFake.cls.xml)	(revision 47344)
@@ -87,6 +87,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Zet4pakkettenVerschillendeTypesTestData">
+<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\D\"
+	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>