Index: APPS/VKP/impl/OfferteService.cls.xml
===================================================================
diff -u -r39591 -r68839
--- APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 39591)
+++ APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 68839)
@@ -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(), "Producten", 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>
@@ -147,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>
@@ -171,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>
@@ -208,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>
 
@@ -225,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>
@@ -298,6 +319,38 @@
 <Implementation><![CDATA[	Quit ..VerpakkingConvertor.Converteer(..GeefMaatwerkLijnenIterator(..OfferteRepository.GeefViaID(OfferteID)))
 ]]></Implementation>
 </Method>
+
+<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>