Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r39894 -r62207
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 39894)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 62207)
@@ -40,26 +40,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="WinkelkarRepository">
-<Type>DOM.EC.Winkelkar.impl.WinkelkarRepository</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="ProductLijnBuilder">
-<Type>APPS.EC.Winkelkar.impl.ProductLijnBuilder</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="WinkelkarLijnRepository">
-<Type>DOM.EC.Winkelkar.impl.LijnRepository</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="WinkelkarKopieerder">
-<Type>DOM.EC.Winkelkar.impl.WinkelkarKopieerder</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="GroepnaamVoorIngegevenKenmerkenBepaler">
 <Type>APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler</Type>
 <Private>1</Private>
@@ -75,8 +55,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DataService">
+<Type>APPS.EC.impl.DataService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarService">
+<Type>DOM.EC.Winkelkar.WinkelkarService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>MagMaatwerklijnGewijzigdWordenBepaler:APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden,MaatwerklijnInputValidator:APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator,BestelService:DOM.VKP.Maatwerk.BestelService,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler,WinkelkarPrijsUpdater:APPS.EC.impl.WinkelkarPrijsUpdater,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository,ProductLijnBuilder:APPS.EC.Winkelkar.impl.ProductLijnBuilder,WinkelkarLijnRepository:DOM.EC.Winkelkar.impl.LijnRepository,MaatwerkLijnBuilder:APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder,QueryAPI:TECH.Query.QueryAPI,WinkelkarServiceHelper:APPS.EC.Winkelkar.impl.WinkelkarService.Helper,GroepnaamBepaler:APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler</FormalSpec>
+<FormalSpec>MagMaatwerklijnGewijzigdWordenBepaler:APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden,MaatwerklijnInputValidator:APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator,BestelService:DOM.VKP.Maatwerk.BestelService,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler,WinkelkarPrijsUpdater:APPS.EC.impl.WinkelkarPrijsUpdater,MaatwerkLijnBuilder:APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder,QueryAPI:TECH.Query.QueryAPI,WinkelkarServiceHelper:APPS.EC.Winkelkar.impl.WinkelkarService.Helper,GroepnaamBepaler:APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler,DataService:APPS.EC.impl.DataService,WinkelkarService:DOM.EC.Winkelkar.WinkelkarService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -87,29 +77,26 @@
 	set ..BestelService = $$$Inject(BestelService, ##class(DOM.VKP.Maatwerk.impl.BestelService).%New())
 	Set ..VroegsteLeverdatumBepaler = $$$Inject(VroegsteLeverdatumBepaler, ##Class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New())
 	Set ..WinkelkarPrijsUpdater = $$$Inject(WinkelkarPrijsUpdater, ##class(APPS.EC.impl.WinkelkarPrijsUpdater).%New())
-	Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository,##class(DOM.EC.Winkelkar.impl.WinkelkarRepository).%New())
-	Set ..ProductLijnBuilder = $$$Inject(ProductLijnBuilder,##class(APPS.EC.Winkelkar.impl.ProductLijnBuilder).%New())
-	Set ..WinkelkarLijnRepository = $$$Inject(WinkelkarLijnRepository,##class(DOM.EC.Winkelkar.impl.LijnRepository).%New())
- 	Set ..WinkelkarKopieerder = ##class(DOM.EC.Winkelkar.impl.WinkelkarKopieerder).%New()
  	Set ..WinkelkarTaalBepaler = ##class(APPS.EC.Winkelkar.impl.TaalBepaler).%New()
 
 	Set ..MaatwerkLijnBuilder = $$$Inject(MaatwerkLijnBuilder,##class(APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder).%New())
 	Set ..GroepnaamVoorIngegevenKenmerkenBepaler = $$$Inject(GroepnaamBepaler,##class(APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler).%New())
 	
 	Set ..QueryAPI = $$$Inject(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
 	
-	Set ..WinkelkarServiceHelper = $$$Inject(WinkelkarServiceHelper,##class(APPS.EC.Winkelkar.impl.WinkelkarService.Helper).%New())
+	Set ..DataService = $$$Inject(DataService , ##class(APPS.EC.impl.DataService).%New())
+	Set ..WinkelkarServiceHelper = $$$Inject(WinkelkarServiceHelper,##class(APPS.EC.Winkelkar.impl.WinkelkarService.Helper).%New(..DataService))
 	
+	Set ..WinkelkarService = $$$Inject(WinkelkarService, ##class(DOM.EC.Winkelkar.impl.WinkelkarService).%New())
+	
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="ControleerWinkelkarViaExterneId">
 <FormalSpec>ExterneId:%String=""</FormalSpec>
-<Implementation><![CDATA[
-	If ..WinkelkarRepository.BestaatViaExterneId(ExterneId) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("ExterneId "_ExterneId _" bestaat reeds"))			
-	}
+<Implementation><![CDATA[	Do ..WinkelkarService.ControleerWinkelkarViaExterneId(ExterneId)
 ]]></Implementation>
 </Method>
 
@@ -118,7 +105,7 @@
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <Implementation><![CDATA[
 	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar(WinkelkarID)
-	#dim WinkelkarKopie As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarKopieerder.Kopieer(Winkelkar)
+	#dim WinkelkarKopie As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarService.Kopieer(Winkelkar)
 	Quit ..WinkelkarServiceHelper.GeefWinkelkarDto(WinkelkarKopie)
 ]]></Implementation>
 </Method>
@@ -147,12 +134,8 @@
 <FormalSpec>Applicatie:APPS.common.dto.Applicatie,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality,ExterneId:%String=""</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <Implementation><![CDATA[
-	#dim WinkelkarImpl As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarRepository.Maak(Applicatie.Type , Applicatie.Naam)
-	Do WinkelkarImpl.ZetKlantID(KlantID)
-	Do WinkelkarImpl.ZetPersonalityID(PersonalityID)
-	Do WinkelkarImpl.ZetExterneId(ExterneId)
-	Do ..WinkelkarRepository.Bewaar(WinkelkarImpl)
-	
+	#dim WinkelkarImpl As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarService.MaakWinkelkar(Applicatie, KlantID, PersonalityID, ExterneId)
+	Do ..WinkelkarService.BewaarWinkelkar(WinkelkarImpl)
 	Quit ..GeefWinkelkar(WinkelkarImpl.GeefID())
 ]]></Implementation>
 </Method>
@@ -162,17 +145,9 @@
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <Implementation><![CDATA[
 	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar(WinkelkarID)
-	If ..WinkelkarLijnRepository.BestaatViaID(LijnID) {
-		#dim Lijn As DOM.EC.Winkelkar.Lijn = Winkelkar.GeefLijn(LijnID)
-		Do Winkelkar.Verwijder( Lijn )
-		if $IsObject(Lijn.Groep) {
-			Do ..MaatwerkLijnBuilder.Init(Winkelkar)
-			Do ..MaatwerkLijnBuilder.VerwijderGroepIndienLeeg( Lijn.Groep) 
-		}
-		Do ..WinkelkarRepository.Bewaar(Winkelkar)
-	} Else {
-		Do ##class(vhLib.Logger).%New("APPS.EC.Winkelkar.WinkelkarService").Warning("VerwijderLijn","Lijn '"_LijnID_"' bestond niet meer voor winkelkar '"_WinkelkarID_"'.")
-	}	
+	
+	Do ..WinkelkarService.VerwijderLijn(Winkelkar, LijnID)
+	
 	Quit ..GeefWinkelkar(WinkelkarID)
 ]]></Implementation>
 </Method>
@@ -183,7 +158,7 @@
 <Implementation><![CDATA[
 	#dim WinkelkarImpl As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar(WinkelkarID)
 	Do WinkelkarImpl.VerwijderAlleInhoud()
-	Do ..WinkelkarRepository.Bewaar(WinkelkarImpl)
+	Do ..WinkelkarService.BewaarWinkelkar(WinkelkarImpl)
 	
 	Quit ..GeefWinkelkar(WinkelkarID)
 ]]></Implementation>
@@ -201,19 +176,19 @@
 </Method>
 
 <Method name="VoegToeMaatwerk">
-<FormalSpec>WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Integer,ProjectReferentie:%String="",ExterneId:%String=""</FormalSpec>
+<FormalSpec>WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Integer,ProjectReferentie:%String="",ExterneId:%String="",EconConfiguratieSleutel:%String="",HerbestellingBijProbleem:%Boolean=0</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.MaatwerkLijn</ReturnType>
 <Implementation><![CDATA[
 	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar(WinkelkarID)
 
 	Do ..MaatwerkLijnBuilder.Init(Winkelkar)
-	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ..MaatwerkLijnBuilder.MaakLijn(IngegevenKenmerken, Aantal, ProjectReferentie, GroepNaam, ExterneId)
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ..MaatwerkLijnBuilder.MaakLijn(IngegevenKenmerken, Aantal, ProjectReferentie, GroepNaam, ExterneId, EconConfiguratieSleutel,HerbestellingBijProbleem)
 	Do ..WijzigLijn(Winkelkar,MaatwerkLijn,Aantal)
 	
 	#dim GevondenLijn As APPS.EC.Winkelkar.dto.Lijn = ""
 	#dim Winkelkardto As APPS.EC.Winkelkar.dto.Winkelkar = ..GeefWinkelkar(WinkelkarID)
 	
-	Set Iterator = ##class(TECH.ListIterator).%New(##class(APPS.EC.Winkelkar.impl.WinkelkarUtils).%New().GeefMaatwerkLijnen(Winkelkardto))
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(##class(APPS.EC.Winkelkar.impl.WinkelkarUtils).%New().GeefMaatwerkLijnen(Winkelkardto))
 	
 	While $$$Not($IsObject(GevondenLijn)) && Iterator.HasNext() {
 		#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = Iterator.Next()
@@ -225,29 +200,22 @@
 </Method>
 
 <Method name="VoegToeProduct">
-<FormalSpec>WinkelkarID:%String,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String=""</FormalSpec>
+<FormalSpec>WinkelkarID:%String,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String="",EenheidPrijs:%Decimal="",TotaalPrijs:%Decimal="",KlantOrderlijnNr:%String="",HandelAankoopprijs:%Decimal=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar(WinkelkarID)
-	Do ..ProductLijnBuilder.Init(Winkelkar)
-	#dim ProductLijn As DOM.EC.Winkelkar.ProductLijn = ..ProductLijnBuilder.MaakLijn(GroepNaam, ProductID, Aantal, PakketReferentie, ProjectReferentie, ExterneId)
-	Do ..WinkelkarLijnRepository.Bewaar(ProductLijn)
 	
-	Do ..WinkelkarRepository.Bewaar(Winkelkar)
+	#dim ProductLijnID As %String = ..WinkelkarService.VoegToeProduct(Winkelkar, GroepNaam, ProductID, Aantal, PakketReferentie, ProjectReferentie, ExterneId, EenheidPrijs, TotaalPrijs, KlantOrderlijnNr, HandelAankoopprijs)
 	
-	Quit ProductLijn.GeefID()
+	Do ..WinkelkarService.BewaarWinkelkar(Winkelkar)
+	
+	Quit ProductLijnID
 ]]></Implementation>
 </Method>
 
 <Method name="WisWinkelkar">
 <FormalSpec>WinkelkarID:%String</FormalSpec>
-<Implementation><![CDATA[
-	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar(WinkelkarID)
-	If (Winkelkar.%IsA("DOM.EC.Winkelkar.ExterneWinkelkar")) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De winkelkar '"_WinkelkarID_"' hoort bij een ExterneOfferte, en mag daarom niet rechtstreeks gewist worden."))	
-	} Else {
-		Do ..WinkelkarRepository.VerwijderViaID(WinkelkarID)
-	}
+<Implementation><![CDATA[	Do ..WinkelkarService.WisWinkelkar(WinkelkarID)
 ]]></Implementation>
 </Method>
 
@@ -269,16 +237,7 @@
 <Method name="OpenWinkelkar">
 <FormalSpec>WinkelkarID:%String</FormalSpec>
 <ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
-<Implementation><![CDATA[
-	try {
-		#dim WinkelkarImpl As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarRepository.GeefViaID(WinkelkarID)	
-	} catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De opgegeven winkelkar id "_WinkelkarID_" is niet geldig!"))
-	}
-	
-	Do ..ControleerInput( $IsObject(WinkelkarImpl), "De opgegeven winkelkar id "_WinkelkarID_" is niet geldig!" )
-	Quit WinkelkarImpl
+<Implementation><![CDATA[	Quit ..WinkelkarService.GeefWinkelkar(WinkelkarID)
 ]]></Implementation>
 </Method>
 
@@ -287,7 +246,7 @@
 <ReturnType>DOM.enu.Taal</ReturnType>
 <Implementation><![CDATA[
 	#dim Taal As DOM.enu.Taal = ##class(TECH.Context.RuntimeContext).Instance().GeefTaal()
-	Set:$$$Not($Length(Taal)) Taal = ..WinkelkarTaalBepaler.GeefTaal(Winkelkar.GeefKlantID())
+	Set:$$$Not($Length(Taal)) Taal = ..WinkelkarTaalBepaler.GeefTaal(Winkelkar.GeefKlantID(),Winkelkar.GeefPersonalityID())
 	Quit Taal
 ]]></Implementation>
 </Method>
@@ -327,10 +286,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAsapMogelijk">
+<Method name="GeefIsAsapMogelijk">
 <FormalSpec>WinkelkarID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (..VroegsteLeverdatumBepaler.GeefVroegsteLeverdatumPerLijn(..GeefWinkelkar(WinkelkarID)).Count()>1)
+<Implementation><![CDATA[	Quit (..VroegsteLeverdatumBepaler.GeefVroegsteLeverdatumPerLijn(..OpenWinkelkar(WinkelkarID)).Count()>1)
 ]]></Implementation>
 </Method>
 
@@ -341,7 +300,7 @@
 	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar(WinkelkarID)	
 	#dim Lijn As DOM.EC.Winkelkar.Lijn = ..GeefWinkelkarLijn(Winkelkar, LijnID)	
 	#dim WinkelkarDto As APPS.EC.Winkelkar.dto.Winkelkar = ##class(APPS.EC.Winkelkar.dto.Winkelkar).%New()
-	Set WinkelkarDto.Klant = ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI().GeefDataService().GeefKlantData(Winkelkar.GeefKlantID())
+	Set WinkelkarDto.Klant = ..DataService.GeefKlantData(Winkelkar.GeefPersonalityID(),Winkelkar.GeefKlantID())
 	#dim LijnNaarDtoVisitor As APPS.EC.Winkelkar.impl.LijnNaarDtoVisitor = ##class(APPS.EC.Winkelkar.impl.LijnNaarDtoVisitor).%New(WinkelkarDto,Winkelkar.GeefApplicatieType())
 	
 	Do Lijn.Accept(LijnNaarDtoVisitor)
@@ -360,17 +319,18 @@
 <Method name="WijzigLijnAantal">
 <FormalSpec>WinkelkarID:%String,LijnID:%String,Aantal:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar( WinkelkarID )	
-	#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ..GeefWinkelkarLijn( Winkelkar, LijnID )
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar(WinkelkarID)	
+	#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ..GeefWinkelkarLijn(Winkelkar, LijnID)
 	
 	Do ..ControleerInput(Lijn.%IsA("DOM.EC.Winkelkar.MaatwerkLijn"), "'Aantal' is niet van toepassing of het lijntype van lijn met opgegeven id '"_LijnID_"'.")
 	
 	Do:(Aantal <= 0) ##class(TECH.Exceptions.InvalidUserInputException).Throw("Het aantal moet groter zijn dan 0.")
 	
-	try {
-		do ..BestelService.ValideerBestelEenheid(Lijn.GeefIngegevenKenmerken(), Aantal)
-	} catch {
-		do ##class(TECH.ExceptionHandler).Catch(..E.InvalidInputException).Rethrow(..E.InvalidUserInputException, "Het opgegeven aantal '" _ Aantal _ "' is geen geldige bestelhoeveelheid.")
+	Try {
+		Do ..BestelService.ValideerBestelEenheid(Lijn.GeefIngegevenKenmerken(), Aantal)
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch(..E.InvalidInputException)
+		Do Exception.Rethrow(..E.InvalidUserInputException, Exception.GeefOmschrijving())
 	}
 	
 	Do ..WijzigLijn(Winkelkar,Lijn,Aantal)
@@ -389,7 +349,7 @@
 	Do ..WinkelkarPrijsUpdater.HerberekenLijn(Winkelkar,Lijn)
 	Do ..MaatwerkLijnBuilder.BewaarLijn(Lijn)
 	
-	Do ..WinkelkarRepository.Bewaar(Winkelkar)
+	Do ..WinkelkarService.BewaarWinkelkar(Winkelkar)
 ]]></Implementation>
 </Method>
 
@@ -402,7 +362,7 @@
 	Do ..MaatwerkLijnBuilder.Init(Winkelkar)
 	Do ..MaatwerkLijnBuilder.ZetProjectReferentie(Lijn, NieuweProjectReferentie)
 	Do ..MaatwerkLijnBuilder.BewaarLijn(Lijn)
-	Do ..WinkelkarRepository.Bewaar(Winkelkar)
+	Do ..WinkelkarService.BewaarWinkelkar(Winkelkar)
 ]]></Implementation>
 </Method>
 
@@ -467,6 +427,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductLijnen">
+<FormalSpec>WinkelkarID:%String</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar(WinkelkarID)
+	Quit ##class(DOM.EC.Winkelkar.impl.WinkelkarUtils).%New().GeefProductLijnen(Winkelkar)
+]]></Implementation>
+</Method>
+
 <Method name="GeefWinkelkarInclusiefBewerkteIngaveGroeperingGewijzigd">
 <FormalSpec>WinkelkarID:%String,Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,LijnIDIndienBestaandeLijn:%String=""</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>