Index: AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesIteratorFilter.cls.xml
===================================================================
diff -u -r48058 -r48124
--- AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesIteratorFilter.cls.xml	(.../PakketReferentiesIteratorFilter.cls.xml)	(revision 48058)
+++ AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesIteratorFilter.cls.xml	(.../PakketReferentiesIteratorFilter.cls.xml)	(revision 48124)
@@ -18,6 +18,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="RegioFilter">
+<Type>AXimpl.Dynamics.CustomerUpsertOut.Converter.CustomerCreateConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxToAdminUtils">
+<Type>AXimpl.AxToAdminUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
 <Private>1</Private>
@@ -26,6 +41,9 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Set ..RegioFilter = ##class(AXimpl.Dynamics.CustomerUpsertOut.Converter.CustomerCreateConverter).%New()
+	Set ..AxToAdminUtils = ##class(AXimpl.AxToAdminUtils).%New()
+	Set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -40,8 +58,9 @@
 	#dim PakketNaam As %String = Pakket.Naam
 	#dim KlantNr As %String = Pakket.KlantNr
 	#dim NietActief As %Boolean = ..HeeftNonActiefProduct(PakketNummer)
+	#dim GeweigerdeKlant As %Boolean = ..IsKlantGeweigerd(Pakket)
 	
-	Quit ($$$Not(##class(TECH.StringUtils).Contains(PakketNaam," Oud","VERVALT")) && $$$Not(KlantNr = "0") && $$$Not(NietActief))
+	Quit ($$$Not(##class(TECH.StringUtils).Contains(PakketNaam," Oud","VERVALT")) && $$$Not(GeweigerdeKlant) && $$$Not(NietActief))
 ]]></Implementation>
 </Method>
 
@@ -65,6 +84,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsKlantGeweigerd">
+<FormalSpec>Pakket:DOM.PM.impl.DataM.Pakket</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsGeweigerd As %Boolean = $$$False
+	#dim KlantNr As %String = Pakket.KlantNr
+	
+	If (KlantNr = "0") {
+		Set IsGeweigerd = $$$True
+	} Else {
+		#dim KlantId As %String = ..AxToAdminUtils.ConvertCustomerID(KlantNr)
+		#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantId)
+		
+		If $$$Not(..RegioFilter.IsGenerationNeeded(,Klant)) {
+			Set IsGeweigerd = $$$True
+		}
+	}
+	
+	Quit IsGeweigerd
+]]></Implementation>
+</Method>
+
 <Method name="VoerUitQuery">
 <FormalSpec>PakketNummer:%String</FormalSpec>
 <Private>1</Private>