Index: APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml
===================================================================
diff -u -r39894 -r50004
--- APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml	(.../VerkoopService.cls.xml)	(revision 39894)
+++ APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml	(.../VerkoopService.cls.xml)	(revision 50004)
@@ -20,8 +20,28 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MagOfferteInSamenvattingenBepaler">
+<Type>APPS.EC.impl.MagOfferteInSamenvattingenBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OfferteSelectieCriteriaBepaler">
+<Type>APPS.EC.OfferteSelectieCriteriaBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantDataReferentieBepaler">
+<Type>APPS.EC.KlantDataReferentieBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>OfferteService:APPS.VKP.OfferteService="",WinkelkarService:APPS.EC.Winkelkar.WinkelkarService="",WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository="",OfferteRepository:APPS.VKP.Offerte.impl.OfferteRepository="",OfferteEventRaiser:APPS.VKP.event.OfferteEventRaiser</FormalSpec>
+<FormalSpec>OfferteService:APPS.VKP.OfferteService="",WinkelkarService:APPS.EC.Winkelkar.WinkelkarService="",WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository="",OfferteRepository:APPS.VKP.Offerte.impl.OfferteRepository="",OfferteEventRaiser:APPS.VKP.event.OfferteEventRaiser,KlantDataReferentieBepaler:APPS.EC.KlantDataReferentieBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -33,6 +53,10 @@
 	Set ..OfferteHerberekenaar = ##class(APPS.EC.Verkoop.impl.OfferteHerberekenaar).%New(,,,..WinkelkarService)
 	Set ..GeldigheidVermeldingBepaler = ##class(APPS.EC.Verkoop.impl.GeldigheidVermeldingBepaler).%New()
 	Set ..OfferteEventRaiser = $$$Inject(OfferteEventRaiser,##class(APPS.VKP.event.OfferteEventRaiser).%New())
+	Set ..Logger = ##class(vhLib.Logger).%New()
+	Set ..MagOfferteInSamenvattingenBepaler = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefMagOfferteInSamenvattingenBepaler()
+	Set ..OfferteSelectieCriteriaBepaler = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefOfferteSelectieCriteriaBepaler()
+	Set ..KlantDataReferentieBepaler = $$$Inject(KlantDataReferentieBepaler,##class(APPS.EC.impl.KlantDataReferentieBepaler).%New())
 
 	Quit $$$OK
 ]]></Implementation>
@@ -45,6 +69,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOfferteEnHerbereken">
+<FormalSpec>OfferteID:%String</FormalSpec>
+<ReturnType>APPS.EC.dto.Offerte</ReturnType>
+<Implementation><![CDATA[	Quit ..OfferteHerberekenaar.GeefOfferteEnHerbereken(OfferteID)
+]]></Implementation>
+</Method>
+
 <Method name="HerrekenOfferte">
 <FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
 <Implementation><![CDATA[	Do ..OfferteHerberekenaar.HerrekenOfferte(Offerte)
@@ -72,7 +103,7 @@
 	Set Offerte.PersonalityID = PersonalityID
 	Set Offerte.LeverAdres = ..GeefStandaardLeverAdres(Offerte)
 	Set Offerte.ExterneId = ExterneId
-	
+
 	#dim OfferteBewaarder As APPS.VKP.OfferteBewaarder = ..OfferteService.GeefOfferteBewaarder()
 	Do OfferteBewaarder.Bewaar(Offerte)
 	
@@ -106,24 +137,34 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.EC.dto.OfferteSamenvatting"</ReturnTypeParams>
 <Implementation><![CDATA[
+	#dim StartTijdSeconden As %Integer = $Piece($H,",",2)
 	Set OfferteSamenvattingen = ##class(%ListOfObjects).%New()
 	
-	#dim MagOfferteInSamenvattingenBepaler As APPS.EC.impl.MagOfferteInSamenvattingenBepaler = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefMagOfferteInSamenvattingenBepaler()
+	#dim SelectieCriteria As APPS.VKP.Offerte.dto.SelectieCriteria = ..OfferteSelectieCriteriaBepaler.BepaalSelectieCriteria(KlantID,WebshopVersie)
 	
-	#dim OfferteSelectieCriteriaBepaler As APPS.EC.OfferteSelectieCriteriaBepaler = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefOfferteSelectieCriteriaBepaler()
-	#dim SelectieCriteria As APPS.VKP.Offerte.dto.SelectieCriteria = OfferteSelectieCriteriaBepaler.BepaalSelectieCriteria(KlantID,WebshopVersie)
-	
 	#dim Offertes As %ListOfDataTypes = ..OfferteService.GeefOffertes(SelectieCriteria)
+	Do ..Logger.Debug("GeefOfferteSamenvattingenVoorKlant","ID's van offertes gevonden")
 	
 	Set OfferteIterator = ##class(TECH.ListIterator).%New(Offertes)
-	While OfferteIterator.HasNext(){
+	#Dim HuidigeTijdSeconden As %Integer = $Piece($H,",",2)
+	While (OfferteIterator.HasNext() && ((HuidigeTijdSeconden-StartTijdSeconden)<10)) {
 		#dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteIterator.Next())
-		#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarService.OpenWinkelkar(Offerte.GeefWinkelkarID())
-		If (Winkelkar.GeefLijnIterator().HasNext() && MagOfferteInSamenvattingenBepaler.MagOfferteInSamenvattingen( Offerte ))
-		{
-			#dim OfferteSamenvatting As APPS.EC.dto.OfferteSamenvatting = ..GeefOfferteSamenvatting(Offerte)
-			Do OfferteSamenvattingen.Insert(OfferteSamenvatting)
+		try {
+			#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarService.OpenWinkelkar(Offerte.GeefWinkelkarID())
+			If (Winkelkar.GeefLijnIterator().HasNext() && ..MagOfferteInSamenvattingenBepaler.MagOfferteInSamenvattingen( Offerte ))
+			{
+				#dim OfferteSamenvatting As APPS.EC.dto.OfferteSamenvatting = ..GeefOfferteSamenvatting(Offerte)
+				Do OfferteSamenvattingen.Insert(OfferteSamenvatting)
+			}
+		} catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			set Warning = ##class(%Library.GlobalCharacterStream).%New()
+			do Warning.WriteLine("In de samenvatting wordt de offerte niet weergegeven met OfferteID " _Offerte.GeefID() _" en klantID " _KlantID)
+			do Warning.CopyFrom(Exception.ToStream())
+			Do ..Logger.Warning("Andere winkelkarren",Warning)
+			Do ..Logger.Error("Andere winkelkarren",Exception.ToStream())
 		}
+		Set HuidigeTijdSeconden = $Piece($H,",",2)
 	}
 	Quit OfferteSamenvattingen
 ]]></Implementation>
@@ -142,7 +183,7 @@
 	Set OfferteSamenvatting.CreatieTijdstip = Offerte.GeefAangemaaktOp()
 	Set OfferteSamenvatting.OfferteID = Offerte.GeefID()
 	
-	#dim KlantDataReferentie As %String = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefKlantDataReferentieBepaler().GeefKlantDataReferentie(Offerte)
+	#dim KlantDataReferentie As %String = ..KlantDataReferentieBepaler.GeefKlantDataReferentie(Offerte)
 	Set:$Length(KlantDataReferentie)>0 KlantDataReferentie = " ("_KlantDataReferentie_")"
 	
 	If ..OfferteService.HeeftOfferteVanHandel(Offerte) {
@@ -168,13 +209,13 @@
 </Method>
 
 <Method name="BestelOfferte">
-<FormalSpec>OfferteID:%String,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<FormalSpec>OfferteID:%String,KlantID:DOM.VKP.KlantID,PersonalityID:DOM.common.enu.Personality</FormalSpec>
 <Implementation><![CDATA[
 	#Dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
 	#Dim KlantInstellingenService As APPS.common.KlantInstellingenService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefKlantInstellingenService(Personality)
 	#Dim OfferteBesteller As APPS.EC.impl.ExterneVerkoopService.OfferteBesteller = ##class(APPS.EC.impl.ExterneVerkoopService.OfferteBesteller).%New(..OfferteService, KlantInstellingenService)
 	
-	Do ##class(vhLib.Logger).%New().Info("BestelOfferte","Bestel Offerte '"_OfferteID_"' voor klant '"_KlantID_"' (van "_Personality.GeefNaam()_" ("_PersonalityID_").")
+	Do ..Logger.Info("BestelOfferte","Bestel Offerte '"_OfferteID_"' voor klant '"_KlantID_"' (van "_Personality.GeefNaam()_" ("_PersonalityID_")).")
 	
 	Do OfferteBesteller.BestelOfferte(OfferteID, KlantID, PersonalityID)
 ]]></Implementation>
@@ -193,35 +234,50 @@
 <FormalSpec>OfferteID:%String,Hoofding:APPS.EC.dto.Hoofding</FormalSpec>
 <Implementation><![CDATA[
 	#Dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID)
-	#Dim LeverAdresConvertor As APPS.common.impl.LeverAdresConvertor = ##class(APPS.common.impl.LeverAdresConvertor).%New()
+	Do ..OfferteService.ZetHoofding(Offerte, Hoofding)
 	
-	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.Save()
+]]></Implementation>
+</Method>
+
+<Method name="ZetTotaalBedragWebshop">
+<FormalSpec>OfferteID:%String,TotaalBedragWebshop:%Decimal</FormalSpec>
+<Implementation><![CDATA[
+	#Dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID)
+	Do Offerte.ZetTotaalBedragWebshop(TotaalBedragWebshop)
 	
 	Do Offerte.Save()
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOpgekuisteTekst">
-<FormalSpec>Tekst:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
+<Method name="GeefTotaalBedragWebshop">
+<FormalSpec>OfferteID:%String</FormalSpec>
+<ReturnType>%Decimal</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
+	#Dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID)
+	Quit Offerte.GeefTotaalBedragWebshop()
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBerekendeTotaalBedrag">
+<FormalSpec>OfferteID:%String</FormalSpec>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#Dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID)
+	Quit ..OfferteService.GeefBerekendeTotaalBedrag(Offerte)
+]]></Implementation>
+</Method>
+
+<Method name="ZetAutomatischeVerwerking">
+<FormalSpec>OfferteID:%String,AutomatischeVerwerking:%Boolean</FormalSpec>
+<Implementation><![CDATA[
+	#Dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID)
+	Do Offerte.ZetAutomatischeVerwerking(AutomatischeVerwerking)
+	
+	Do Offerte.Save()
+]]></Implementation>
+</Method>
+
 <Method name="GeefMogelijkeLeverdatums">
 <FormalSpec>OfferteID:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
@@ -232,13 +288,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAsapMogelijk">
+<Method name="GeefIsAsapMogelijk">
 <FormalSpec>OfferteID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 		
 	#dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID)
-	Quit ..WinkelkarService.GeefAsapMogelijk(Offerte.WinkelkarID)
+	Quit ..WinkelkarService.GeefIsAsapMogelijk(Offerte.WinkelkarID)
 ]]></Implementation>
 </Method>