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[