Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel/Rapporteer.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel/Rapporteer.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel/Rapporteer.cls.xml	(revision 53514)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.Handel.Rapporteer">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	
+	#dim OfferteVanHandel As APPS.VKP.impl.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardBestelling()
+	Do OfferteVanHandel.ZetPersonalityID(1)
+	
+	#dim Offerte As APPS.VKP.impl.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardBestelling()
+	Do Offerte.ZetPersonalityID(14)
+	Do Offerte.ZetExterneId("ExterneId")
+	Set Offerte.OfferteVanHandel = OfferteVanHandel
+	
+	#dim WinkelkarMock as DOM.EC.Winkelkar.Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).StandaardWinkelkar()
+	
+	Set WinkelkarServiceMock= ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+	Do WinkelkarServiceMock.VerwachtMethodCall("OpenWinkelkar","WinkelkarID").DanReturn(WinkelkarMock)
+
+	Set DoorHandelMeeleverensMelderMock = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.DoorHandelMeeleverensMelder).%New()
+	Do DoorHandelMeeleverensMelderMock.VerwachtMethodCall("Init").DanDoeNiks()
+	Do DoorHandelMeeleverensMelderMock.VerwachtMethodCall("VerwerkGroepLijn",..Matches.IsA("DOM.EC.Winkelkar.GroepLijn")).DanDoeNiks()
+	Do DoorHandelMeeleverensMelderMock.VerwachtMethodCall("Finalize").DanDoeNiks()
+	Do DoorHandelMeeleverensMelderMock.VerwachtMethodCall("HeeftMeeleverens").DanReturn($$$True)
+	
+	#dim PRNrIterator = ##class(TECH.ListIterator).%New(##class(TECH.ListUtils).CreateListOfDataTypes("PRNr1","PRNr2"))
+	Do DoorHandelMeeleverensMelderMock.VerwachtMethodCall("GeefMeeleverensPRNrIterator").DanReturn(PRNrIterator)
+	Do DoorHandelMeeleverensMelderMock.VerwachtMethodCall("GeefMeeleverenAantalVoorPRNr","PRNr1").DanReturn(1)
+	Do DoorHandelMeeleverensMelderMock.VerwachtMethodCall("GeefMeeleverenAantalVoorPRNr","PRNr2").DanReturn(2)
+	
+	
+	Set OfferteUrlBepalerMock = ##class(vhTest.Mock.APPS.EC.Webshop.impl.OfferteUrlBepaler).%New()
+	Do OfferteUrlBepalerMock.VerwachtMethodCall("GeefURL",Offerte,"Vrijgave").DanReturn("OfferteVrijgaveUrl")
+	Do OfferteUrlBepalerMock.VerwachtMethodCall("GeefURL",Offerte,"AlleenLezen").DanReturn("OfferteAlleenLezenUrl")
+	
+	Set KlantDataReferentieBepalerMock = ##class(vhTest.Mock.APPS.EC.KlantDataReferentieBepaler).%New()
+	
+	Do KlantDataReferentieBepalerMock.VerwachtMethodCall("GeefKlantDataReferentie",Offerte).DanReturn("")
+	
+	Set MailApiMock = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	#Dim MailDummy As TECH.Mail.Mail = ##class(TECH.Mail.impl.Mail).%New()
+	Do MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailDummy)
+	Do MailApiMock.VerwachtMethodCall("VerstuurMail",MailDummy).DanDoeNiks()
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Set ProductMock = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductMock.IndienMethodCall("GeefKorttekst").DanReturn("Korttekst")
+	Do ProductApiMock.IndienMethodCall("GeefProduct",$$$ElkeWaarde).DanReturn(ProductMock)
+	
+	Set Verzender = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.Handel).%New(,MailApiMock,,OfferteUrlBepalerMock,KlantDataReferentieBepalerMock,WinkelkarServiceMock,DoorHandelMeeleverensMelderMock,ProductApiMock)
+	Do Verzender.Rapporteer(Offerte)
+	
+	Do MailApiMock.Verifieer()
+	Do DoorHandelMeeleverensMelderMock.Verifieer()
+	Do OfferteUrlBepalerMock.Verifieer()
+	Do KlantDataReferentieBepalerMock.Verifieer()
+	Do WinkelkarServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml
===================================================================
diff -u -r52719 -r53514
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 52719)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 53514)
@@ -24,16 +24,34 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="WinkelkarService">
+<Type>APPS.EC.Winkelkar.WinkelkarService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DoorHandelMeeleverensMelder">
+<Type>APPS.VKP.Offerte.impl.DoorHandelMeeleverensMelder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>CommonApi:DOM.common.CommonAPI,MailApi:TECH.Mail.MailAPI,VertaalApi:DOM.common.Transl.VertaalAPI</FormalSpec>
+<FormalSpec>CommonApi:DOM.common.CommonAPI,MailApi:TECH.Mail.MailAPI,VertaalApi:DOM.common.Transl.VertaalAPI,OfferteUrlBepaler:APPS.EC.Webshop.impl.OfferteUrlBepaler,KlantDataReferentieBepaler:APPS.EC.KlantDataReferentieBepaler,WinkelkarService:APPS.EC.Winkelkar.WinkelkarService,DoorHandelMeeleverensMelder:APPS.VKP.Offerte.impl.DoorHandelMeeleverensMelder,ProductApi:DOM.PM.ProductAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	do ##super(.CommonApi,.MailApi,.VertaalApi)
-	Set ..OfferteUrlBepaler = ##class(APPS.EC.Webshop.impl.OfferteUrlBepaler).%New()
-	set ..KlantDataReferentieBepaler = ##class(APPS.EC.impl.KlantDataReferentieBepaler).%New()
+	Set ..OfferteUrlBepaler = $$$Inject(OfferteUrlBepaler,##class(APPS.EC.Webshop.impl.OfferteUrlBepaler).%New())
+	Set ..KlantDataReferentieBepaler = $$$Inject(KlantDataReferentieBepaler,##class(APPS.EC.impl.KlantDataReferentieBepaler).%New())
+	Set ..WinkelkarService = $$$Inject(WinkelkarService, ##class(APPS.EC.Winkelkar.WinkelkarService).%New())
+	Set ..DoorHandelMeeleverensMelder = $$$Inject(DoorHandelMeeleverensMelder, ##class(APPS.VKP.Offerte.impl.DoorHandelMeeleverensMelder).%New())
+	Set ..ProductApi = $$$Inject(ProductApi,##class(DOM.DomeinContext).Instance().GeefProductAPI())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -63,6 +81,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeMeeLeverensDoorHandel">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Winkelkar as APPS.EC.Winkelkar =  ..WinkelkarService.OpenWinkelkar(..Offerte.GeefWinkelkarID())
+	Do ..DoorHandelMeeleverensMelder.Init()
+	Do Winkelkar.Accept(..DoorHandelMeeleverensMelder)
+	If ..DoorHandelMeeleverensMelder.HeeftMeeleverens(){		
+		Do ..Mail.VoegToeLijn(..GeefVertaling("MeeleverenDoorHandelText"))
+		#dim MeeleverenPRNrIterator as TECH.Iterator = ..DoorHandelMeeleverensMelder.GeefMeeleverensPRNrIterator()
+		while MeeleverenPRNrIterator.HasNext(){
+			#dim PRNr as %String = MeeleverenPRNrIterator.Next()
+			#dim Aantal as %Numeric = ..DoorHandelMeeleverensMelder.GeefMeeleverenAantalVoorPRNr(PRNr)
+			Do ..Mail.VoegToeLijn(Aantal _ " "_ ..GeefVertaling("MeeleverenStuks") _ " " _ ..GeefKortTekst(PRNr))
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefKortTekst">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ProductApi.GeefProduct(PRNr).GeefKorttekst()
+]]></Implementation>
+</Method>
+
 <Method name="MaakBody">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -88,6 +131,8 @@
 		Do ..Mail.VoegToeLijn(..Offerte.GeefBestelOpmerking())
 	}
 	
+	Do ..VoegToeMeeLeverensDoorHandel()
+	
 	If $$$Not(..Offerte.GeefWensLeverDatum() = "") {
 		Do ..Mail.VoegToeLijn("")
 		Do ..Mail.VoegToeLijn(..GeefVertaling("WensLeverDatumLabel") _ ": ")
@@ -178,7 +223,7 @@
 
 <Method name="VerwerkBeslagDesign">
 <FormalSpec>BeslagDesignPersonality:DOM.common.BeslagDesignPersonality</FormalSpec>
-<Implementation><![CDATA[	Do ..Mail.VoegToeOntvanger("tve@vanhoecke.be")
+<Implementation><![CDATA[	Do ..Mail.VoegToeOntvanger("jwi@vanhoecke.be")
 ]]></Implementation>
 </Method>