Index: AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingIterator.cls.xml
===================================================================
diff -u -r42174 -r42182
--- AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingIterator.cls.xml	(.../AankoopOrderHoofdingIterator.cls.xml)	(revision 42174)
+++ AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingIterator.cls.xml	(.../AankoopOrderHoofdingIterator.cls.xml)	(revision 42182)
@@ -49,11 +49,27 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#Dim SqlStatement as %String
-	Set SqlStatement = "SELECT * FROM Flow_Toelev.Hoofding WHERE Leverancier <> '6332'" // OPGELET: HALUX voorlopig uitgesloten tot nader order
-	// Indien nodig is hieronder een filter voorzien om het resultaat te beperken tot overzichtelijk, voor debugging:
-	/*_" WHERE ID IN ('5002||261154','5005||265590','5026||276749','5490||278804','5938||242802','6051||280399','6118||274544','6317||278043',"
-	_"'6332||201319','6347||261332','6415||278507','6494||256645','6628||274325','6813||276747','7012||275442','7112||268449','7178||271524',"
-	_"'7407||272363','7409||251880','7509||280028','7541||272115','7564||270368','7771||274511','7802||264788','8090||278685')"*/
+	
+	If ..Vestiging = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv() {
+		Set SqlStatement = "SELECT DISTINCT a.ID FROM Flow_Toelev.Hoofding a, Flow_Toelev.Lijn b, Prod.Product c "_
+		"WHERE a.ToeleveringsNr = b.ToeleveringNr AND b.Product = c.ID AND (LinkType NOT IN ('HH', 'HHZ') OR LinkType IS null) AND a.Leverancier <> '6332'"
+		// Indien nodig is hieronder een filter voorzien om het resultaat te beperken tot overzichtelijk, voor debugging:
+		//_" AND WHERE ID IN ('5002||261154','5005||265590','5026||276749','5490||278804','5938||242802','6051||280399','6118||274544','6317||278043',"
+		//_"'6332||201319','6347||261332','6415||278507','6494||256645','6628||274325','6813||276747','7012||275442','7112||268449','7178||271524',"
+		//_"'7407||272363','7409||251880','7509||280028','7541||272115','7564||270368','7771||274511','7802||264788','8090||278685')"
+	} Else {
+		If ..Vestiging = ##class(AX.common.enu.InterneFirmaInitialen).HaluxNv() {
+			Set SqlStatement = "SELECT DISTINCT a.ID FROM Flow_Toelev.Hoofding a, Flow_Toelev.Lijn b, Prod.Product c "_
+			"WHERE a.ToeleveringsNr = b.ToeleveringNr AND b.Product = c.ID AND LinkType in ('HH', 'HHZ') AND a.Leverancier <> '6332'"
+			// Indien nodig is hieronder een filter voorzien om het resultaat te beperken tot overzichtelijk, voor debugging:
+			//_" AND WHERE ID IN ('5002||261154','5005||265590','5026||276749','5490||278804','5938||242802','6051||280399','6118||274544','6317||278043',"
+			//_"'6332||201319','6347||261332','6415||278507','6494||256645','6628||274325','6813||276747','7012||275442','7112||268449','7178||271524',"
+			//_"'7407||272363','7409||251880','7509||280028','7541||272115','7564||270368','7771||274511','7802||264788','8090||278685')"
+		}
+		Else {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("Geef als parameter ofwel VanHoecke, ofwel Halux mee! Huidige parameter = '"_..Vestiging_"' <"))
+		}
+	}
 	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
 ]]></Implementation>
 </Method>