Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml
===================================================================
diff -u -r58054 -r58088
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml	(.../WinkelkarAanpasserFactory.cls.xml)	(revision 58054)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml	(.../WinkelkarAanpasserFactory.cls.xml)	(revision 58088)
@@ -32,16 +32,18 @@
 <ReturnType>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser</ReturnType>
 <Implementation><![CDATA[
 	Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
+	
+	#dim KlantID as %String = ..LegacyPartijAPI.GeefKlantPartijID(+KlantNr)
 	If (Personality = ##class(DOM.common.enu.Personality).VanHoecke()){
-		Quit:(..LegacyPartijAPI.GeefKlantPartijID(KlantNr)=Klant.Beslagteknikk) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Beslagteknikk).%New()
-		Quit:(..LegacyPartijAPI.GeefKlantPartijID(KlantNr)=Klant.BeslagDesign) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.BeslagDesign).%New()
-		Quit:(..LegacyPartijAPI.GeefKlantPartijID(KlantNr)=Klant.Galimberti) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Galimberti).%New()
-		Quit:(..LegacyPartijAPI.GeefKlantPartijID(KlantNr)=Klant.Pavanello) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Pavanello).%New()
-		Quit:(..LegacyPartijAPI.GeefKlantPartijID(KlantNr)=Klant.Ferexpert) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Ferexpert).%New()
-		Quit:(..LegacyPartijAPI.GeefKlantPartijID(KlantNr)=Klant.Hein) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Hein).%New()
-		Quit:(..LegacyPartijAPI.GeefKlantPartijID(KlantNr)=Klant.Zweygart) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Zweygart).%New()
+		Quit:(KlantID=Klant.Beslagteknikk) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Beslagteknikk).%New()
+		Quit:(KlantID=Klant.BeslagDesign) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.BeslagDesign).%New()
+		Quit:(KlantID=Klant.Galimberti) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Galimberti).%New()
+		Quit:(KlantID=Klant.Pavanello) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Pavanello).%New()
+		Quit:(KlantID=Klant.Ferexpert) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Ferexpert).%New()
+		Quit:(KlantID=Klant.Hein) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Hein).%New()
+		Quit:(KlantID=Klant.Zweygart) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Zweygart).%New()
 		If (..ProjectSettings.IsDaroExcludeFromDeliveryEnabled()){
-			Quit:(..LegacyPartijAPI.GeefKlantPartijID(KlantNr) = Klant.DaroFactors) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Daro).%New()
+			Quit:(KlantID = Klant.DaroFactors) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Daro).%New()
 		}		
 	} Elseif (Personality = ##class(DOM.common.enu.Personality).Hein()) {
 		Quit:(VorigePersonality = ##class(DOM.common.enu.Personality).Zweygart()) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Zweygart).%New()