Index: APPS/VKP/impl/Offerte.cls.xml
===================================================================
diff -u -r38988 -r39115
--- APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 38988)
+++ APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 39115)
@@ -425,6 +425,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefExterneId">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ExterneId
+]]></Implementation>
+</Method>
+
+<Method name="ZetExterneId">
+<FormalSpec>ExterneId:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..ExterneId = ExterneId
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.VKP.OfferteD</DataLocation>
Index: vhTest/Mock/APPS/VKP/Offerte.cls.xml
===================================================================
diff -u -r36317 -r39115
--- vhTest/Mock/APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 36317)
+++ vhTest/Mock/APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 39115)
@@ -57,6 +57,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefExterneId">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefExterneId")
+]]></Implementation>
+</Method>
+
 <Method name="GeefGewijzigdDoor">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefGewijzigdDoor")
@@ -182,6 +188,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetExterneId">
+<FormalSpec>ExterneId:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetExterneId",ExterneId)
+]]></Implementation>
+</Method>
+
 <Method name="ZetKlantID">
 <FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetKlantID",KlantID)
Index: APPS/EC/impl/AuthorisatieControleur.cls.xml
===================================================================
diff -u -r29059 -r39115
--- APPS/EC/impl/AuthorisatieControleur.cls.xml	(.../AuthorisatieControleur.cls.xml)	(revision 29059)
+++ APPS/EC/impl/AuthorisatieControleur.cls.xml	(.../AuthorisatieControleur.cls.xml)	(revision 39115)
@@ -11,6 +11,9 @@
 	}
 		
 	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).OpenId(WinkelkarID)
+	if $Length(Winkelkar.ExterneId){
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Winkelkar '"_WinkelkarID_"' Is Vhisie4."))	
+	}
 	Do ..ControleerHeeftToegangTotKlant(Winkelkar.GeefKlantID(),"tot winkelkar '"_WinkelkarID_"'")
 ]]></Implementation>
 </Method>
@@ -35,6 +38,9 @@
 	}
 		
 	#dim Offerte As APPS.VKP.Offerte = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService().GeefOfferte(OfferteID)
+	if $Length(Offerte.GeefExterneId()){
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Offerte '"_OfferteID_"' Is Vhisie4."))	
+	}
 	Do ..ControleerHeeftToegangTotKlant(Offerte.KlantID,"tot offerte '"_OfferteID_"'")
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/EC/impl/TestAuthorisatieControleur.cls.xml
===================================================================
diff -u -r36785 -r39115
--- vhUnitTest/APPS/EC/impl/TestAuthorisatieControleur.cls.xml	(.../TestAuthorisatieControleur.cls.xml)	(revision 36785)
+++ vhUnitTest/APPS/EC/impl/TestAuthorisatieControleur.cls.xml	(.../TestAuthorisatieControleur.cls.xml)	(revision 39115)
@@ -93,6 +93,47 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestWerkenMetVhisie4Offerte">
+<Implementation><![CDATA[
+	Set EVS = ##class(APPS.EC.Verkoop.impl.Externe.VerkoopService).%New()
+	#dim OfferteEnWinkelkar1 As APPS.EC.dto.OfferteIDEnWinkelkarID = EVS.MaakOfferte(..KlantID,##class(DOM.common.enu.Personality).VanHoecke(),"EenExterneId")
+		
+	
+	#dim IsFoutmeldingGeraised As %Boolean = 0
+	Try {
+		Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetOfferte(OfferteEnWinkelkar1.OfferteID)
+	}Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertEquals($P(Exception.GeefOmschrijving()," ("),"Offerte '"_OfferteEnWinkelkar1.OfferteID_"' Is Vhisie4.")
+		Set IsFoutmeldingGeraised = 1
+	}
+	Do $$$AssertTrue(IsFoutmeldingGeraised,"Er is foutmelding geraised, geen toegang tot offerte")
+	
+	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(OfferteEnWinkelkar1.WinkelkarID)
+	Do ##class(APPS.VKP.impl.Offerte).DeleteId(OfferteEnWinkelkar1.OfferteID)
+]]></Implementation>
+</Method>
+
+<Method name="TestWerkenMetVhisie4Winkelkar">
+<Implementation><![CDATA[
+	Set WKS = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()
+	#dim Applicatie As APPS.common.dto.Applicatie = ..GeefApplicatie()		
+	#dim Winkelkar1 As APPS.EC.Winkelkar.dto.Winkelkar = WKS.MaakWinkelkar(Applicatie,..KlantID,##class(DOM.common.enu.Personality).VanHoecke(),"Een ExterneID")
+	
+	#dim IsFoutmeldingGeraised As %Boolean = 0
+	Try {
+		Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefAuthorisatieControleur().ControleerWerkenMetWinkelkar(Winkelkar1.WinkelkarID)
+	}Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertEquals($P(Exception.GeefOmschrijving()," ("),"Winkelkar '"_ Winkelkar1.WinkelkarID _"' Is Vhisie4.")
+		Set IsFoutmeldingGeraised = 1
+	}
+	Do $$$AssertTrue(IsFoutmeldingGeraised,"Er is foutmelding geraised, geen toegang tot winkelkar")
+	
+	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(Winkelkar1.WinkelkarID)
+]]></Implementation>
+</Method>
+
 <Method name="GeefApplicatie">
 <Private>1</Private>
 <ReturnType>APPS.common.dto.Applicatie</ReturnType>
Index: APPS/VKP/Offerte.cls.xml
===================================================================
diff -u -r36317 -r39115
--- APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 36317)
+++ APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 39115)
@@ -236,6 +236,16 @@
 <Abstract>1</Abstract>
 <FormalSpec>Selectie:WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Selectie</FormalSpec>
 </Method>
+
+<Method name="GeefExterneId">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="ZetExterneId">
+<Abstract>1</Abstract>
+<FormalSpec>ExterneId:%String</FormalSpec>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EC/impl/ExterneVerkoopService/GeefOfferteSamenvattingenVoorKlant/Base.cls.xml
===================================================================
diff -u -r39036 -r39115
--- vhUnitTest/APPS/EC/impl/ExterneVerkoopService/GeefOfferteSamenvattingenVoorKlant/Base.cls.xml	(.../Base.cls.xml)	(revision 39036)
+++ vhUnitTest/APPS/EC/impl/ExterneVerkoopService/GeefOfferteSamenvattingenVoorKlant/Base.cls.xml	(.../Base.cls.xml)	(revision 39115)
@@ -87,6 +87,7 @@
 	
 	Set SelectieCriteria = ##class(APPS.VKP.Offerte.dto.SelectieCriteria).%New()
 	Set SelectieCriteria.KlantID = ..#KlantID
+	Set SelectieCriteria.ExterneId = ""
 	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
 	#dim FakeOfferte As APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New(..GeefPersonality(), ..#AantalDagenPrijzenGeldig)
 	#dim OfferteIDLijst As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(FakeOfferte.GeefID())