Index: BL/Flow/Offerte/MailOverzicht/HTMLOfferteVerkoop.cls.xml
===================================================================
diff -u
--- BL/Flow/Offerte/MailOverzicht/HTMLOfferteVerkoop.cls.xml	(revision 0)
+++ BL/Flow/Offerte/MailOverzicht/HTMLOfferteVerkoop.cls.xml	(revision 40897)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Flow.Offerte.MailOverzicht.HTMLOfferteVerkoop">
+<Super>DOM.EC.Winkelkar.WinkelkarVisitor</Super>
+
+<Property name="strmBody">
+<Type>%GlobalCharacterStream</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarRepository">
+<Type>DOM.EC.Winkelkar.impl.WinkelkarRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OfferteRepository">
+<Type>APPS.VKP.Offerte.impl.OfferteRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository,OfferteRepository:APPS.VKP.Offerte.impl.OfferteRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	#define fmtHfd(%OffNr,%Datum,%Status) $C(10,13)_"<tr bgcolor=#CCCCCC ><td>Webshop offerte : <b>"_%OffNr_"</b></td><td>Status: "_%Status_"</td><td>Laatst gewijzigd: "_%Datum_"</td></tr>"
+	#define fmtRefs(%Ref,%ComRef,%BestelOpmerking) $C(10,13)_"<tr bgcolor=#EEEEEE ><td>Ref: "_%Ref_"</td><td>CommRef: "_%ComRef_"</td><td>Opm: "_%BestelOpmerking_"</td></tr>"
+	#define fmtGroep(%Groepnaam) $C(10,13)_"<tr bgcolor=#F5F5F5><td colspan=3>"_%Groepnaam_"</td></tr>"
+	#define fmtLijn(%Product,%Aantal,%Prijs) $C(10,13)_"<tr bgcolor=#F5F5F5><td>"_%Product_"</td><td>"_%Aantal_"</td><td>"_%Prijs_" EUR</td></tr>"
+	
+	Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository, ##class(DOM.EC.Winkelkar.impl.WinkelkarRepository).%New())
+	Set ..OfferteRepository = $$$Inject(OfferteRepository,##class(APPS.VKP.Offerte.impl.OfferteRepository).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkGroepBegin">
+<FormalSpec>GroepLijn:DOM.EC.Winkelkar.GroepLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..strmBody.Write($$$fmtGroep(GroepLijn.Naam))
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProductLijn">
+<FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<Implementation><![CDATA[	Do ..strmBody.Write($$$fmtLijn(ProductLijn.Product.KortTekst, ProductLijn.GeefAantal(), ProductLijn.GeefEindklantEenheidPrijsNettoExclBTW()))
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMaatwerkLijn">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<Implementation><![CDATA[	Do ..strmBody.Write($$$fmtLijn(MaatwerkLijn.GeefIngegevenKenmerken().GeefFamilie()_" - "_MaatwerkLijn.GeefIngegevenKenmerken().GeefVariant(),MaatwerkLijn.GeefAantal(),MaatwerkLijn.GeefEenheidPrijsNettoExclBTW()))
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeBody">
+<FormalSpec><![CDATA[OfferteID:%String,&strmBody:%GlobalCharacterStream=""]]></FormalSpec>
+<ReturnType>%GlobalCharacterStream</ReturnType>
+<Implementation><![CDATA[
+	If (strmBody="") {
+		Set ..strmBody = ##class(%GlobalCharacterStream).%New()
+	} else {
+		Set ..strmBody = strmBody
+	}
+
+	#Dim Offerte As APPS.VKP.impl.Offerte = ..OfferteRepository.GeefViaID(OfferteID)
+	
+	Do ..strmBody.Write($$$fmtHfd(OfferteID,Offerte.GeefGewijzigdOp(),$S(Offerte.IsBesteld():"Besteld",1:"Offerte")))
+	Do ..strmBody.Write($$$fmtRefs(Offerte.DocumentReferenties.OrderReferentie,Offerte.DocumentReferenties.CommissieReferentie,Offerte.BestelOpmerking))
+
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarRepository.GeefViaExterneId(Offerte.WinkelkarID)	
+	Do Winkelkar.Accept($this)
+	
+	Quit ..strmBody
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: BL/Flow/Offerte/MailOverzicht.cls.xml
===================================================================
diff -u -r40890 -r40897
--- BL/Flow/Offerte/MailOverzicht.cls.xml	(.../MailOverzicht.cls.xml)	(revision 40890)
+++ BL/Flow/Offerte/MailOverzicht.cls.xml	(.../MailOverzicht.cls.xml)	(revision 40897)
@@ -6,11 +6,27 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 
+<Property name="HTMLOfferteVerkoop">
+<Type>BL.Flow.Offerte.MailOverzicht.HTMLOfferteVerkoop</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Logger">
 <Type>vhLib.Logger</Type>
 <Private>1</Private>
 </Property>
 
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..HTMLOfferteVerkoop = ##class(BL.Flow.Offerte.MailOverzicht.HTMLOfferteVerkoop).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="LoggerGet">
 <Private>1</Private>
 <ReturnType>vhLib.Logger</ReturnType>
@@ -227,45 +243,13 @@
 	. . For  Set OfferteID=$O(Cache(User,KLNr,OffSoort,OfferteID)) Quit:OfferteID=""  Do
 	. . . If OffSoort="N" Do ..GetHTMLOfferte(OfferteID,strmBody)
 	. . . If OffSoort="O" Do ..GetHTMLOfferteKOFKL(KLNr,OfferteID,strmBody)
-	. . . If OffSoort="V" Do ..GetHTMLOfferteVKP(OfferteID,strmBody)
+	. . . If OffSoort="V" Do ..HTMLOfferteVerkoop.VoegToeBody(OfferteID, strmBody)
 	. Do strmBody.Write($$$fmtEndKlant)
 	Do strmBody.Write($$$fmtEndHtml)
 	Quit strmBody
 ]]></Implementation>
 </Method>
 
-<Method name="GetHTMLOfferteVKP">
-<FormalSpec>OfferteID:%String,strmBody:%GlobalCharacterStream</FormalSpec>
-<Implementation><![CDATA[
-	#define fmtHfd(%OffNr,%Datum,%Status) $C(10,13)_"<tr bgcolor=#CCCCCC ><td>Webshop offerte : <b>"_%OffNr_"</b></td><td>Status: "_%Status_"</td><td>Laatst gewijzigd: "_%Datum_"</td></tr>"
-	#define fmtRefs(%Ref,%ComRef,%BestelOpmerking) $C(10,13)_"<tr bgcolor=#EEEEEE ><td>Ref: "_%Ref_"</td><td>CommRef: "_%ComRef_"</td><td>Opm: "_%BestelOpmerking_"</td></tr>"
-	#define fmtGroep(%Groepnaam) $C(10,13)_"<tr bgcolor=#F5F5F5><td colspan=3>"_%Groepnaam_"</td></tr>"
-	#define fmtLijn(%Product,%Aantal,%Prijs) $C(10,13)_"<tr bgcolor=#F5F5F5><td>"_%Product_"</td><td>"_%Aantal_"</td><td>"_%Prijs_" EUR</td></tr>"
-	
-	#dim Offerte As APPS.VKP.impl.Offerte = ##class(APPS.VKP.impl.Offerte).OpenId(OfferteID)
-	Do strmBody.Write($$$fmtHfd(OfferteID,Offerte.GeefGewijzigdOp(),$S(Offerte.IsBesteld():"Besteld",1:"Offerte")))
-	Do strmBody.Write($$$fmtRefs(Offerte.DocumentReferenties.OrderReferentie,Offerte.DocumentReferenties.CommissieReferentie,Offerte.BestelOpmerking))
-	
-	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).OpenId(Offerte.WinkelkarID)
-	#dim GroepLijnIterator As TECH.Iterator = Winkelkar.GeefLijnIterator()
-	While (GroepLijnIterator.HasNext())
-	{
-		#dim GroepLijn As DOM.EC.Winkelkar.GroepLijn = GroepLijnIterator.Next()
-		Do strmBody.Write($$$fmtGroep(GroepLijn.Naam))
-		#dim LijnIterator As TECH.Iterator = GroepLijn.SublijnIterator()
-		While (LijnIterator.HasNext())
-		{
-			#dim Lijn As DOM.EC.Winkelkar.Lijn = LijnIterator.Next()
-			If Lijn.%Extends("DOM.EC.Winkelkar.MaatwerkLijn") {
-				Do strmBody.Write($$$fmtLijn(Lijn.GeefIngegevenKenmerken().GeefFamilie()_" - "_Lijn.GeefIngegevenKenmerken().GeefVariant(),Lijn.GeefAantal(),Lijn.GeefEenheidPrijsNettoExclBTW()))
-			} ElseIf Lijn.%Extends("DOM.EC.Winkelkar.ProductLijn") {
-				Do strmBody.Write($$$fmtLijn(Lijn.Product.KortTekst, Lijn.GeefAantal(), Lijn.GeefEindklantEenheidPrijsNettoExclBTW()))
-			}
-		}
-	}
-]]></Implementation>
-</Method>
-
 <Method name="GetHTMLOfferteKOFKL">
 <FormalSpec>KLNr,OFFNr,strmBody</FormalSpec>
 <Implementation><![CDATA[
Index: vhTest/Dummy/APPS/VKP/impl/Offerte.cls.xml
===================================================================
diff -u
--- vhTest/Dummy/APPS/VKP/impl/Offerte.cls.xml	(revision 0)
+++ vhTest/Dummy/APPS/VKP/impl/Offerte.cls.xml	(revision 40897)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Dummy.APPS.VKP.impl.Offerte">
+<Super>APPS.VKP.impl.Offerte</Super>
+
+<Property name="GewijzigdOp">
+<Type>%TimeStamp</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="ZetGewijzigdOp">
+<FormalSpec>GewijzigdOp:%TimeStamp</FormalSpec>
+<Implementation><![CDATA[	Set ..GewijzigdOp = GewijzigdOp
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/DOM/EC/Winkelkar/Winkelkar.cls.xml
===================================================================
diff -u
--- vhTest/Utils/DOM/EC/Winkelkar/Winkelkar.cls.xml	(revision 0)
+++ vhTest/Utils/DOM/EC/Winkelkar/Winkelkar.cls.xml	(revision 40897)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.DOM.EC.Winkelkar.Winkelkar">
+<IncludeCode>Tools.UnitTest</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="StandaardWinkelkar">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set StandaardWinkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New($$$DummyInteger)
+	Set StandaardWinkelkar.Root = ##class(DOM.EC.Winkelkar.GroepLijn).%New("Root")
+	
+	Set GroepLijn = ##class(DOM.EC.Winkelkar.GroepLijn).%New("GroepLijn")
+	Do GroepLijn.Sublijnen.Insert(..GeefProductLijn(2, 7.75, 15.5))
+	Do GroepLijn.Sublijnen.Insert(..GeefMaatwerkLijn(2, 6.75, 13.5))
+	
+	Do StandaardWinkelkar.Root.Sublijnen.Insert(GroepLijn)
+	
+	Quit StandaardWinkelkar
+]]></Implementation>
+</Method>
+
+<Method name="GeefMaatwerkLijn">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Aantal:%Integer,EenheidPrijs:%Decimal,TotaalPrijs:%Decimal</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Quit ##class(vhUnitTest.DOM.EC.Winkelkar.WinkelkarUtils).MaakNieuwMetEigenschappen(Aantal, Kenmerken, EenheidPrijs, TotaalPrijs)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductLijn">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Aantal:%Integer,EenheidPrijs:%Decimal,TotaalPrijs:%Decimal</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.EC.Winkelkar.ProductLijn</ReturnType>
+<Implementation><![CDATA[
+	Set ProductLijn = ##class(DOM.EC.Winkelkar.ProductLijn).%New("ProductId", Aantal)
+	Set ProductLijn.Product = ##class(Prod.Product).%New()
+	Set ProductLijn.Product.KortTekst = "ProductKortTekst"
+	Do ProductLijn.ZetEindklantEenheidPrijsNettoExclBTW(EenheidPrijs)
+	Do ProductLijn.ZetEindklantTotaalPrijs(TotaalPrijs)
+	Quit ProductLijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/APPS/VKP/Offerte.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/VKP/Offerte.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/VKP/Offerte.cls.xml	(revision 40897)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.VKP.Offerte">
+<IncludeCode>Tools.UnitTest</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="StandaardOfferte">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.VKP.Offerte</ReturnType>
+<Implementation><![CDATA[
+	Set StandaardOfferte = ##class(vhTest.Dummy.APPS.VKP.impl.Offerte).%New($$$DummyInteger)
+	Set StandaardOfferte.WinkelkarID = "WinkelkarID"
+	Set StandaardOfferte.BestelOpmerking = "BestelOpmerking"
+	Do StandaardOfferte.ZetGewijzigdOp($$$DummyTimeStamp) 
+	
+	Set StandaardOfferte.DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
+	Set StandaardOfferte.DocumentReferenties.OrderReferentie = "OrderReferentie"
+	Set StandaardOfferte.DocumentReferenties.CommissieReferentie = "CommissieReferentie"
+	
+	Quit StandaardOfferte
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/BL/Flow/Offerte/MailOverzicht/HTMLOfferteVerkoop/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/Flow/Offerte/MailOverzicht/HTMLOfferteVerkoop/Test.cls.xml	(revision 0)
+++ vhUnitTest/BL/Flow/Offerte/MailOverzicht/HTMLOfferteVerkoop/Test.cls.xml	(revision 40897)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.Flow.Offerte.MailOverzicht.HTMLOfferteVerkoop.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: geeft een stream met offerte gegevens voor verkoop weer in HTMLformaat">
+<Implementation><![CDATA[
+	#dim OfferteId As %String = "DummyOfferteId"
+	Set BodyStream = ##class(%GlobalCharacterStream).%New()
+
+	#dim StandaardWinkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).StandaardWinkelkar()
+	
+	Set WinkelkarRepositoryMock = ##class(vhTest.Mock.DOM.EC.Winkelkar.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefViaExterneId","WinkelkarID").DanReturn(StandaardWinkelkar)
+
+	#dim StandaardOfferte As APPS.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
+	
+	Set OfferteRepositoryMock = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
+	Do OfferteRepositoryMock.VerwachtMethodCall("GeefViaID",OfferteId).DanReturn(StandaardOfferte)
+
+	Set HTMLOfferteVerkoop = ##class(BL.Flow.Offerte.MailOverzicht.HTMLOfferteVerkoop).%New(WinkelkarRepositoryMock, OfferteRepositoryMock)
+	Do HTMLOfferteVerkoop.VoegToeBody(OfferteId, BodyStream)
+	
+	Do WinkelkarRepositoryMock.Verifieer()
+	Do OfferteRepositoryMock.Verifieer()
+	Do $$$AssertEquals(BodyStream.Read() , ..VerwachteBodyStream().Read())
+]]></Implementation>
+</Method>
+
+<Method name="VerwachteBodyStream">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set VerwachteBodyStream = ##class(%GlobalCharacterStream).%New()
+	Do VerwachteBodyStream.Write($C(10,13)_"<tr bgcolor=#CCCCCC ><td>Webshop offerte : <b>DummyOfferteId</b></td><td>Status: Offerte</td><td>Laatst gewijzigd: " _$$$DummyTimeStamp _"</td></tr>")
+	Do VerwachteBodyStream.Write($C(10,13)_"<tr bgcolor=#EEEEEE ><td>Ref: OrderReferentie</td><td>CommRef: CommissieReferentie</td><td>Opm: BestelOpmerking</td></tr>")
+	Do VerwachteBodyStream.Write($C(10,13)_"<tr bgcolor=#F5F5F5><td colspan=3>GroepLijn</td></tr>")
+	Do VerwachteBodyStream.Write($C(10,13)_"<tr bgcolor=#F5F5F5><td>ProductKortTekst</td><td>2</td><td>7.75 EUR</td></tr>")
+	Do VerwachteBodyStream.Write($C(10,13)_"<tr bgcolor=#F5F5F5><td>Lade - TAOR</td><td>2</td><td>6.75 EUR</td></tr>")
+	
+	Quit VerwachteBodyStream
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>