Index: APPS/EC/impl/KlantDataReferentieBepaler.cls.xml
===================================================================
diff -u -r46767 -r52553
--- APPS/EC/impl/KlantDataReferentieBepaler.cls.xml	(.../KlantDataReferentieBepaler.cls.xml)	(revision 46767)
+++ APPS/EC/impl/KlantDataReferentieBepaler.cls.xml	(.../KlantDataReferentieBepaler.cls.xml)	(revision 52553)
@@ -56,7 +56,7 @@
 	
 	#dim Personality As DOM.common.Personality = Offerte.GeefPersonality()	
 	
-	If ..OfferteService.HeeftOfferteVanHandel(Offerte) {
+	If ($$$Not(Offerte.IsVhisie4()) && (..OfferteService.HeeftOfferteVanHandel(Offerte))) {
 		#dim OfferteVanHandel As APPS.VKP.Offerte = ..OfferteService.GeefOfferteVanHandel(Offerte)
 		Set Personality = OfferteVanHandel.GeefPersonality()
 	}	
@@ -223,10 +223,12 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim KlantID As DOM.VKP.KlantID = Offerte.GeefKlantID()
-	If ..OfferteService.HeeftOfferteVanHandel(Offerte) {
+	
+	If ($$$Not(Offerte.IsVhisie4()) && (..OfferteService.HeeftOfferteVanHandel(Offerte))) {
 		#dim OfferteVanHandel As APPS.VKP.Offerte = ..OfferteService.GeefOfferteVanHandel(Offerte)
 		Set KlantID = OfferteVanHandel.GeefKlantID()
-	}	
+	}
+		
 	Quit KlantID
 ]]></Implementation>
 </Method>