Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r40579 -r40727
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 40579)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 40727)
@@ -494,7 +494,7 @@
 	Set KLRec5=$$$KLRec(5)
 	For I=3:1:5 Do:($L($P(KLRec5,"\",I))) ..Opmerkingen.Insert($P(KLRec5,"\",I))
 	
-	if (KlantID = ##class(DOM.VKP.enu.Klant).HaefeleBelgie() ! KlantID = ##class(DOM.VKP.enu.Klant).HaefeleNederland() ) {
+	if (KlantID = ##class(DOM.VKP.enu.Klant).HaefeleBelgie() || KlantID = ##class(DOM.VKP.enu.Klant).HaefeleNederland() ) {
 		#Dim DragerIDs as %ArrayOfDataTypes
 		Set DragerIDs = ..GeefDragerIDsVanBon(MogelijkeDragersVoorKlant,.DragerLookup)
 		if DragerIDs.Count(){
@@ -595,7 +595,7 @@
 				while DragerIDIterator.HasNext(){
 					#Dim ID as %String 
 					Set ID = DragerIDIterator.Next()
-					Do IDArray.SetAt(ID,ID)
+					Do IDArray.SetAt("",ID)
 				}
 			}
 		}