Index: APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterNull.cls.xml
===================================================================
diff -u
--- APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterNull.cls.xml	(revision 0)
+++ APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterNull.cls.xml	(revision 46836)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterNull">
+<Super>APPS.VKP.Offerte.KlantBestellingNaarLeverancierOfferteConverter,TECH.RegisteredObject</Super>
+
+<Method name="Converteer">
+<FormalSpec>KlantBestelling:APPS.VKP.Offerte</FormalSpec>
+<ReturnType>APPS.VKP.Offerte</ReturnType>
+<Implementation><![CDATA[	quit ##class(APPS.VKP.impl.Offerte).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/VKP/Offerte/KlantBestellingNaarLeverancierOfferteConverterFactory.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/VKP/Offerte/KlantBestellingNaarLeverancierOfferteConverterFactory.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/VKP/Offerte/KlantBestellingNaarLeverancierOfferteConverterFactory.cls.xml	(revision 46836)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.VKP.Offerte.KlantBestellingNaarLeverancierOfferteConverterFactory">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Offerte.KlantBestellingNaarLeverancierOfferteConverterFactory,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefConverter">
+<FormalSpec>KlantBestelling:APPS.VKP.Offerte</FormalSpec>
+<ReturnType>APPS.VKP.Offerte.KlantBestellingNaarLeverancierOfferteConverter</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefConverter",KlantBestelling)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterFactory/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterFactory/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterFactory/Test.cls.xml	(revision 46836)
@@ -0,0 +1,77 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterFactory.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Geen bestelde offerte geen converter">
+<Implementation><![CDATA[
+	set Factory = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterFactory).%New()
+	
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Voor offerte '1000' kan er geen converter gemaakt worden daar de status nog niet op besteld staat.")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.IllegalUsageException,Substrings))
+	
+	do Factory.GeefConverter(##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Een bestelde offerte op het einde van de ketting zal een null object converter teruggeven">
+<Implementation><![CDATA[
+	set Factory = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterFactory).%New()
+	#dim Converter As APPS.VKP.Offerte.KlantBestellingNaarLeverancierOfferteConverter = Factory.GeefConverter(##class(vhTest.Utils.APPS.VKP.Offerte).StandaardBestelling())
+	
+	do $$$AssertEquals($classname(Converter),"APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterNull")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien de leverancier gebruik maakt van de webshopversie 3 dan wordt er een webshopversie 3 converter teruggegeven">
+<Implementation><![CDATA[
+	set WebshopServiceStub = ##class(vhTest.Mock.APPS.EC.WebshopService).%New()
+	do WebshopServiceStub.IndienMethodCall("GeefVersie",$$$ElkeWaarde).DanReturn(##class(APPS.EC.enu.WebshopVersie).V3())
+	
+	set Factory = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterFactory).%New(WebshopServiceStub)
+	
+	#dim Klantbestelling As APPS.VKP.Offerte =  ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardBestelling()
+	do Klantbestelling.ZetPersonalityID(##class(DOM.common.enu.Personality).SFS())
+	
+	#dim Converter As APPS.VKP.Offerte.KlantBestellingNaarLeverancierOfferteConverter = Factory.GeefConverter(Klantbestelling)
+	
+	do $$$AssertEquals($classname(Converter),"APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie3")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien de leverancier gebruik maakt van de webshopversie 4 dan wordt er een webshopversie 4 converter teruggegeven">
+<Implementation><![CDATA[
+	set WebshopServiceStub = ##class(vhTest.Mock.APPS.EC.WebshopService).%New()
+	do WebshopServiceStub.IndienMethodCall("GeefVersie",$$$ElkeWaarde).DanReturn(##class(APPS.EC.enu.WebshopVersie).V4())
+	
+	set Factory = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterFactory).%New(WebshopServiceStub)
+	
+	#dim Klantbestelling As APPS.VKP.Offerte =  ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardBestelling()
+	do Klantbestelling.ZetPersonalityID(##class(DOM.common.enu.Personality).SFS())
+	
+	#dim Converter As APPS.VKP.Offerte.KlantBestellingNaarLeverancierOfferteConverter = Factory.GeefConverter(Klantbestelling)
+	
+	do $$$AssertEquals($classname(Converter),"APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien de leverancier gebruik maakt van een niet ondersteunde webshopversie dan wordt er een exceptie gegooid">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen converter beschikbaar voor offerte '1000', personality 'Van Hoecke nv' maakt gebruik van de niet ondersteunde webshopversie 'NotSupported'.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.IllegalUsageException,Substrings))
+	
+	set WebshopServiceStub = ##class(vhTest.Mock.APPS.EC.WebshopService).%New()
+	do WebshopServiceStub.IndienMethodCall("GeefVersie",$$$ElkeWaarde).DanReturn("NotSupported")
+	
+	set Factory = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterFactory).%New(WebshopServiceStub)
+	
+	#dim Klantbestelling As APPS.VKP.Offerte =  ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardBestelling()
+	do Klantbestelling.ZetPersonalityID(##class(DOM.common.enu.Personality).SFS())
+	
+	Do Factory.GeefConverter(Klantbestelling)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterFactory.cls.xml
===================================================================
diff -u
--- APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterFactory.cls.xml	(revision 0)
+++ APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterFactory.cls.xml	(revision 46836)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterFactory">
+<Super>TECH.RegisteredObject,APPS.VKP.Offerte.KlantBestellingNaarLeverancierOfferteConverterFactory</Super>
+
+<Property name="WebshopService">
+<Type>APPS.EC.WebshopService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PersonalityRepo">
+<Type>DOM.common.impl.PersonalityRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>WebshopService:APPS.EC.WebshopService,PersonalityRepo:DOM.common.impl.PersonalityRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..WebshopService = $$$Inject(WebshopService,##class(APPS.EC.impl.WebshopService).%New())
+	set ..PersonalityRepo = $$$Inject(PersonalityRepo,##class(DOM.common.impl.PersonalityRepository).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefConverter">
+<FormalSpec>KlantBestelling:APPS.VKP.Offerte</FormalSpec>
+<ReturnType>APPS.VKP.Offerte.KlantBestellingNaarLeverancierOfferteConverter</ReturnType>
+<Implementation><![CDATA[
+	do:$$$Not(KlantBestelling.GeefBestelStatus() = ##class(APPS.VKP.Offerte.enu.BestelStatus).Besteld()) ##class(TECH.Exceptions.IllegalUsageException).Throw("Voor offerte "_$$$SingleQuotes(KlantBestelling.GeefID())_" kan er geen converter gemaakt worden daar de status nog niet op besteld staat.")
+
+	quit:$$$Not($$$HasLength(KlantBestelling.GeefPersonality().GeefLeverancierData().PersonalityId)) ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterNull).%New()
+	
+	#dim LeverancierPersonality As DOM.common.Personality = ..PersonalityRepo.GeefViaID(KlantBestelling.GeefPersonality().GeefLeverancierData().PersonalityId)
+	
+	#dim WebshopVersie As APPS.EC.enu.WebshopVersie = ..WebshopService.GeefVersie(LeverancierPersonality)
+	
+	if WebshopVersie = ##class(APPS.EC.enu.WebshopVersie).V3() {
+		set Converter = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie3).%New()
+	} elseif WebshopVersie = ##class(APPS.EC.enu.WebshopVersie).V4() {
+		set Converter = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4).%New()
+	} else {
+		#dim Msg As %String = "Geen converter beschikbaar voor offerte "_$$$SingleQuotes(KlantBestelling.GeefID()) _", personality "_$$$SingleQuotes(LeverancierPersonality.GeefNaam())_" maakt gebruik van de niet ondersteunde webshopversie "_$$$SingleQuotes(WebshopVersie)_ "."
+		do ##class(TECH.Exceptions.IllegalUsageException).Throw(Msg)
+	}
+	quit Converter
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Offerte/KlantBestellingNaarLeverancierOfferteConverterFactory.cls.xml
===================================================================
diff -u
--- APPS/VKP/Offerte/KlantBestellingNaarLeverancierOfferteConverterFactory.cls.xml	(revision 0)
+++ APPS/VKP/Offerte/KlantBestellingNaarLeverancierOfferteConverterFactory.cls.xml	(revision 46836)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Offerte.KlantBestellingNaarLeverancierOfferteConverterFactory">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="GeefConverter">
+<Abstract>1</Abstract>
+<FormalSpec>KlantBestelling:APPS.VKP.Offerte</FormalSpec>
+<ReturnType>APPS.VKP.Offerte.KlantBestellingNaarLeverancierOfferteConverter</ReturnType>
+</Method>
+</Class>
+
+
+</Export>