Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r45967 -r46020
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 45967)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 46020)
@@ -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>DOM.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>
@@ -80,8 +60,13 @@
 <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:DOM.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,DataService:APPS.EC.impl.DataService</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>
@@ -92,10 +77,6 @@
 	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(DOM.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())
@@ -106,6 +87,7 @@
 	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
@@ -114,10 +96,7 @@
 
 <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>
 
@@ -126,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>
@@ -155,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>
@@ -170,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>
@@ -191,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>
@@ -237,27 +204,18 @@
 <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 ProductLijn.ZetEindklantEenheidPrijsNettoExclBTW(EenheidPrijs)
-	Do ProductLijn.ZetEindklantTotaalPrijs(TotaalPrijs)
-	Do ..WinkelkarLijnRepository.Bewaar(ProductLijn)
 	
-	Do ..WinkelkarRepository.Bewaar(Winkelkar)
+	#dim ProductLijn As DOM.EC.Winkelkar.ProductLijn = ..WinkelkarService.VoegToeProduct(Winkelkar, GroepNaam, ProductID, Aantal, PakketReferentie, ProjectReferentie, ExterneId, EenheidPrijs, TotaalPrijs)
 	
+	Do ..WinkelkarService.BewaarWinkelkar(Winkelkar)
+	
 	Quit ProductLijn.GeefID()
 ]]></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>
 
@@ -279,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>
 
@@ -399,7 +348,7 @@
 	Do ..WinkelkarPrijsUpdater.HerberekenLijn(Winkelkar,Lijn)
 	Do ..MaatwerkLijnBuilder.BewaarLijn(Lijn)
 	
-	Do ..WinkelkarRepository.Bewaar(Winkelkar)
+	Do ..WinkelkarService.BewaarWinkelkar(Winkelkar)
 ]]></Implementation>
 </Method>
 
@@ -412,7 +361,7 @@
 	Do ..MaatwerkLijnBuilder.Init(Winkelkar)
 	Do ..MaatwerkLijnBuilder.ZetProjectReferentie(Lijn, NieuweProjectReferentie)
 	Do ..MaatwerkLijnBuilder.BewaarLijn(Lijn)
-	Do ..WinkelkarRepository.Bewaar(Winkelkar)
+	Do ..WinkelkarService.BewaarWinkelkar(Winkelkar)
 ]]></Implementation>
 </Method>