Index: APPS/VKP/impl/OfferteService.cls.xml
===================================================================
diff -u -r38997 -r68839
--- APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 38997)
+++ APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 68839)
@@ -18,13 +18,13 @@
 <Private>1</Private>
 </Property>
 
-<Property name="OfferteGemaaktEventRaiser">
-<Type>APPS.VKP.event.OfferteEventRaiser</Type>
+<Property name="GroepnaamBepaler">
+<Type>APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>OfferteRepository:APPS.VKP.Offerte.OfferteRepository,WinkelkarService:APPS.EC.Winkelkar.WinkelkarService="",LijnRepository:DOM.EC.Winkelkar.impl.LijnRepository,TaalBepaler:APPS.EC.Winkelkar.impl.TaalBepaler="",VerpakkingConvertor:APPS.VKP.impl.OfferteService.VerpakkingConvertor=""</FormalSpec>
+<FormalSpec>OfferteRepository:APPS.VKP.Offerte.OfferteRepository,WinkelkarService:APPS.EC.Winkelkar.WinkelkarService="",LijnRepository:DOM.EC.Winkelkar.impl.LijnRepository,TaalBepaler:APPS.EC.Winkelkar.impl.TaalBepaler="",VerpakkingConvertor:APPS.VKP.impl.OfferteService.VerpakkingConvertor="",GroepnaamBepaler:APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -34,8 +34,8 @@
 	Set ..WinkelkarService = $$$Inject(WinkelkarService,##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New())
 	Set ..LijnRepository = $$$Inject(LijnRepository,##class(DOM.EC.Winkelkar.impl.LijnRepository).%New())
 	Set ..VerpakkingConvertor = $$$Inject(VerpakkingConvertor,##class(APPS.VKP.impl.OfferteService.VerpakkingConvertor).%New())
+	Set ..GroepnaamBepaler = $$$Inject(GroepnaamBepaler,##class(APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler).%New())
 	Set ..TaalBepaler = TaalBepaler
-	Set ..OfferteGemaaktEventRaiser = ##class(APPS.VKP.event.OfferteEventRaiser).%New()
 
 	Quit $$$OK
 ]]></Implementation>
@@ -59,7 +59,7 @@
 <FormalSpec>ExterneId:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	If ..OfferteRepository.BestaatViaExterneId(ExterneId) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("ExterneId "_ExterneId _" bestaat reeds"))			
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("APPS.VKP.impl.OfferteService: ExterneId "_ExterneId _" bestaat reeds"))			
 	}
 ]]></Implementation>
 </Method>
@@ -75,8 +75,14 @@
 <FormalSpec>OfferteID:%String</FormalSpec>
 <ReturnType>APPS.VKP.impl.Offerte</ReturnType>
 <Implementation><![CDATA[
+	// Let op: dit werkt niet correct indien je een ExterneId doorgeeft. Je mag daarom niet aanroepen met de EDINummer vanop een Order (behalve eventueel voor de Unishop-personalities/klanten)?
 	if $$$Not(..OfferteRepository.BestaatViaID(OfferteID)) {
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Offerte '"_OfferteID_"' bestaat niet!"))	
+		#dim WorkAroundZoekViaExternID = $$$True   ; Tijdelijke work-around, TAOR productie-aansturing vraagt de DocumentReferenties op via Vhisie-winkelkar, maar geeft ExternId op als OfferteID
+		if (WorkAroundZoekViaExternID) && (..OfferteRepository.BestaatViaExterneId(OfferteID)) {
+			quit ..OfferteRepository.GeefViaExterneId(OfferteID)
+		} else {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("APPS.VKP.impl.OfferteService: Offerte '"_OfferteID_"' bestaat niet!"))	
+		}
 	}
 	Quit ..OfferteRepository.GeefViaID(OfferteID)
 ]]></Implementation>
@@ -90,10 +96,10 @@
 </Method>
 
 <Method name="VoegToeProduct">
-<FormalSpec>Offerte:APPS.VKP.Offerte,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String=""</FormalSpec>
+<FormalSpec>Offerte:APPS.VKP.Offerte,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String="",KlantOrderlijnNr:%String=""</FormalSpec>
 <ReturnType>DOM.EC.Winkelkar.ProductLijn</ReturnType>
 <Implementation><![CDATA[
-	#dim LijnId As %String = ..WinkelkarService.VoegToeProduct(Offerte.GeefWinkelkarID(), ProductID, Aantal, PakketReferentie, ProjectReferentie, ExterneId)
+	#dim LijnId As %String = ..WinkelkarService.VoegToeProduct(Offerte.GeefWinkelkarID(), "Producten", ProductID, Aantal, PakketReferentie, ProjectReferentie, ExterneId, , , KlantOrderlijnNr)
 	Quit ..LijnRepository.GeefViaID(LijnId)
 ]]></Implementation>
 </Method>
@@ -104,8 +110,8 @@
 <Implementation><![CDATA[
 	#dim Taal As %String = ..TaalBepaler.GeefTaal(Offerte.GeefKlantID(),Offerte.GeefPersonalityID())
 	#dim GroepNaam As %String = ..GroepnaamBepaler.GeefGroepNaam(IngegevenKenmerken,Taal)
-	#dim LijnId As %String = ..WinkelkarService.VoegToeMaatwerk(Offerte.GeefWinkelkarID(),GroepNaam,IngegevenKenmerken,Aantal,ProjectReferentie, ExterneId)
-	Quit ..LijnRepository.GeefViaID(LijnId)
+	#dim Lijn As APPS.EC.Winkelkar.dto.Lijn = ..WinkelkarService.VoegToeMaatwerk(Offerte.GeefWinkelkarID(),GroepNaam,IngegevenKenmerken,Aantal,ProjectReferentie, ExterneId)
+	Quit ..LijnRepository.GeefViaID(Lijn.LijnID)
 ]]></Implementation>
 </Method>
 
@@ -123,11 +129,6 @@
 ]]></Implementation>
 </Method>
 
-<Property name="GroepnaamBepaler">
-<Type>APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="GroepnaamBepalerGet">
 <Private>1</Private>
 <ReturnType>APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler</ReturnType>
@@ -152,6 +153,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBerekendeTotaalBedrag">
+<FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).OpenId(Offerte.GeefWinkelkarID())
+
+	Set TotaalPrijsBepaler = ##class(DOM.EC.Winkelkar.Visitors.TotaalPrijsBepaler).%New()
+
+	Do Winkelkar.Accept(TotaalPrijsBepaler)
+	
+	quit TotaalPrijsBepaler.GeefPrijs()
+]]></Implementation>
+</Method>
+
 <Method name="KopieerOfferte">
 <FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
 <ReturnType>APPS.VKP.Offerte</ReturnType>
@@ -176,10 +191,16 @@
 
 <Method name="KoppelAanOfferteVanHandel">
 <FormalSpec>Offerte:APPS.VKP.Offerte,OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
-<Implementation><![CDATA[	Do ##class(APPS.VKP.Offerte.impl.HandelOfferteAanVanHoeckeOfferteKoppelaar).%New().KoppelAanOfferteVanHandel(Offerte,OfferteVanHandel)
+<Implementation><![CDATA[	Do ##class(APPS.VKP.Offerte.impl.KlantBestellingAanLeverancierOfferteKoppelaar).%New().KoppelAanOfferteVanHandel(Offerte,OfferteVanHandel)
 ]]></Implementation>
 </Method>
 
+<Method name="KoppelLeverancierOfferteAanKlantBestelling">
+<FormalSpec>LeverancierOfferte:APPS.VKP.Offerte,KlantBestelling:APPS.VKP.Offerte</FormalSpec>
+<Implementation><![CDATA[	Do ##class(APPS.VKP.Offerte.impl.KlantBestellingAanLeverancierOfferteKoppelaar).%New().KoppelLeverancierOfferteAanKlantBestelling(LeverancierOfferte,KlantBestelling)
+]]></Implementation>
+</Method>
+
 <Method name="HeeftOfferteVanHandel">
 <FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
@@ -213,14 +234,14 @@
 <Method name="GeefOfferteVanHandel">
 <FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
 <ReturnType>APPS.VKP.Offerte</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.VKP.Offerte.impl.HandelOfferteAanVanHoeckeOfferteKoppelaar).%New().GeefOfferteVanHandel(Offerte)
+<Implementation><![CDATA[	Quit ##class(APPS.VKP.Offerte.impl.KlantBestellingAanLeverancierOfferteKoppelaar).%New().GeefOfferteVanHandel(Offerte)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefOfferteVanVH">
 <FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
 <ReturnType>APPS.VKP.Offerte</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.VKP.Offerte.impl.HandelOfferteAanVanHoeckeOfferteKoppelaar).%New().GeefOfferteVanVH(Offerte)
+<Implementation><![CDATA[	Quit ##class(APPS.VKP.Offerte.impl.KlantBestellingAanLeverancierOfferteKoppelaar).%New().GeefOfferteVanVH(Offerte)
 ]]></Implementation>
 </Method>
 
@@ -230,11 +251,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefHandelOfferteNaarVanHoeckeOfferteConverteerder">
-<Implementation><![CDATA[	quit ##class(APPS.VKP.Offerte.impl.HandelOfferteNaarVanHoeckeOfferteConverteerder).%New()
-]]></Implementation>
-</Method>
-
 <Method name="GeefOffertes">
 <FormalSpec>SelectieCriteria:APPS.VKP.Offerte.dto.SelectieCriteria</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
@@ -304,11 +320,37 @@
 ]]></Implementation>
 </Method>
 
-<Method name="RaiseOfferteGemaaktEvent">
-<FormalSpec>OfferteID:%String</FormalSpec>
-<Implementation><![CDATA[	Do ..OfferteGemaaktEventRaiser.RaiseOfferteGemaaktEvent(OfferteID)
+<Method name="ZetHoofding">
+<FormalSpec>Offerte:APPS.VKP.Offerte,Hoofding:APPS.EC.dto.Hoofding</FormalSpec>
+<Implementation><![CDATA[
+	#Dim LeverAdresConvertor As APPS.common.impl.LeverAdresConvertor = ##class(APPS.common.impl.LeverAdresConvertor).%New()
+	
+	If ($IsObject(Hoofding.LeveringDetail)) {
+		Do:($$$Not(Hoofding.LeveringDetail.Datum = "")) Offerte.ZetLeverDatum(Hoofding.LeveringDetail.Datum)
+		Do:($$$Not(Hoofding.LeveringDetail.WensDatum = "")) Offerte.ZetWensLeverDatum(Hoofding.LeveringDetail.WensDatum)
+		Do:($IsObject(Hoofding.LeveringDetail.Adres)) Offerte.ZetLeverAdres(LeverAdresConvertor.NaarObject(Hoofding.LeveringDetail.Adres)) 	
+	}
+		
+	Set Offerte.BestelOpmerking = ..GeefOpgekuisteTekst(Hoofding.BestelOpmerking)
+	Set Offerte.DocumentReferenties.OrderReferentie = ..GeefOpgekuisteTekst(Hoofding.Referentie.OrderReferentie)
+	Set Offerte.DocumentReferenties.KlantOrderNummer = ..GeefOpgekuisteTekst(Hoofding.Referentie.KlantOrderNummer)
+	Set Offerte.DocumentReferenties.CommissieReferentie = ..GeefOpgekuisteTekst(Hoofding.Referentie.CommissieReferentie)
+	Do Offerte.ZetEmailAdresBesteller(..GeefOpgekuisteTekst(Hoofding.EmailAdresBesteller))
+	Do Offerte.ZetEmailAdresBevestiging(..GeefOpgekuisteTekst(Hoofding.EmailAdresBevestiging))
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOpgekuisteTekst">
+<FormalSpec>Tekst:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim AdminTekstUtils As APPS.common.AdminTekstUtils = ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI().GeefAdminTekstUtils()	
+	#dim OpgekuisteTekst As %String = ##class(TECH.StringUtils).Trim(AdminTekstUtils.MaakTekstAdminVriendelijk(Tekst))
+	Set OpgekuisteTekst = ##class(TECH.StringUtils).Replace(OpgekuisteTekst,$C(160),"")
+	Quit OpgekuisteTekst
+]]></Implementation>
+</Method>
 </Class>