Index: APPS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r1574 -r1674
--- APPS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 1574)
+++ APPS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 1674)
@@ -6,39 +6,205 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefWinkelkar">
-<FormalSpec>ApplicatieID:%String,WinkelkarID:%String</FormalSpec>
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <Implementation><![CDATA[
-	Set Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%OpenId(WinkelkarID)
+	Set WinkelkarImpl = ..OpenWinkelkar(Applicatie, WinkelkarID)
 	
-	If '$IsObject(Winkelkar)
+	Set Winkelkar = ##class(APPS.EC.Winkelkar.dto.Winkelkar).%New()
+	
+	Set ProductenTellerVisitor = ##class(DOM.EC.Winkelkar.Visitors.ProductenTeller).%New()
+	Do WinkelkarImpl.Accept(ProductenTellerVisitor)
+	
+	Set TotaalPrijsBepaler = ##class(DOM.EC.Winkelkar.Visitors.TotaalPrijsBepaler).%New()
+	Do WinkelkarImpl.Accept(TotaalPrijsBepaler)
+	
+	Set Winkelkar.AantalProducten = ProductenTellerVisitor.GeefAantal()
+	Set Winkelkar.TotaalPrijs = TotaalPrijsBepaler.GeefPrijs()
+	Set Winkelkar.ApplicatieID = Applicatie.Naam
+	Set Winkelkar.WinkelkarID = WinkelkarID
+	
+	Set LijnNaarDtoVisitor = ##class(APPS.EC.Winkelkar.impl.LijnNaarDtoVisitor).%New(Winkelkar)
+	Do WinkelkarImpl.Accept(LijnNaarDtoVisitor)
+	
+	Quit Winkelkar
+]]></Implementation>
+</Method>
+
+<Method name="MaakWinkelkar">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	If (Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern())
 	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De opgegeven winkelkar id is niet geldig!"))
+		Set WinkelkarImpl = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New(Applicatie.Naam)
 	}
+	Else
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Voor dit type winkelkar is nog geen implementatie voorzien."))
+	}
 	
-	If (Winkelkar.GeefApplicatieID() '= ApplicatieID)
+	Set Status = WinkelkarImpl.%Save()
+	
+	If ($$$ISERR(Status))
 	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De opgegeven applicatie id is niet geldig!"))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),"De winkelkar kon niet worden opgeslagen",Status))
 	}
 	
-	Set WinkelkarDto = ##class(APPS.EC.Winkelkar.dto.Winkelkar).%New()
+	Quit ..GeefWinkelkar(Applicatie, WinkelkarImpl.%Id())
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderLijn">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,LijnID:%String</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set WinkelkarImpl = ..OpenWinkelkar(Applicatie, WinkelkarID)
 	
-	Set ProductenTellerVisitor = ##class(DOM.EC.Winkelkar.Visitors.ProductenTeller).%New()
-	Do Winkelkar.Accept(ProductenTellerVisitor)
+	Do WinkelkarImpl.Verwijder(WinkelkarImpl.GeefLijn(LijnID))
 	
-	Set TotaalPrijsBepaler = ##class(DOM.EC.Winkelkar.Visitors.TotaalPrijsBepaler).%New()
-	Do Winkelkar.Accept(TotaalPrijsBepaler)
+	Set Status = WinkelkarImpl.%Save()
 	
-	Set WinkelkarDto.AantalProducten = ProductenTellerVisitor.GeefAantal()
-	Set WinkelkarDto.TotaalPrijs = TotaalPrijsBepaler.GeefPrijs()
-	Set WinkelkarDto.ApplicatieID = ApplicatieID
-	Set WinkelkarDto.WinkelkarID = WinkelkarID
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),"De lijn kon niet worden verwijderd omdat de winkelkar niet kon worden opgeslagen",Status))
+	}
 	
-	Set LijnNaarDtoVisitor = ##class(APPS.EC.Winkelkar.impl.LijnNaarDtoVisitor).%New(WinkelkarDto)
-	Do Winkelkar.Accept(LijnNaarDtoVisitor)
+	Quit ..GeefWinkelkar(Applicatie, WinkelkarID)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeMaatwerk">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set Winkelkar = ..OpenWinkelkar(Applicatie, WinkelkarID)
 	
-	Quit WinkelkarDto
+	Set Status = ..VoegToeAanGroep(Winkelkar, GroepNaam, ..MaakMaatwerkLijn(IngegevenKenmerken, Aantal))
+	
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),"De lijn kon niet worden toegevoegd aan de winkelkar.",Status))
+	}
+	
+	Set Status = Winkelkar.%Save()
+	
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),"De winkelkar kon niet worden opgeslagen.",Status))
+	}
+	
+	Quit ..GeefWinkelkar(Applicatie, WinkelkarID)
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeAanGroep">
+<Description>
+Maakt een groep aan indien deze niet bestaat.</Description>
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,GroepNaam:%String,Lijn:DOM.EC.Winkelkar.Lijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set GroepLijn = Winkelkar.GeefGroepLijn(GroepNaam)
+	If (GroepLijn = "")
+	{
+		Set GroepLijn = ##class(DOM.EC.Winkelkar.GroepLijn).%New(GroepNaam)
+		Do Winkelkar.VoegToe(GroepLijn)
+	}
+	Quit GroepLijn.VoegToe(Lijn)
+]]></Implementation>
+</Method>
+
+<Method name="WisWinkelkar">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Winkelkar = ..OpenWinkelkar(Applicatie, WinkelkarID)
+	Set Status = Winkelkar.%DeleteId(Winkelkar.%Id())
+	
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"De winkelkar kon niet worden verwijderd.",Status))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="WijzigLijn">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,LijnID:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set Winkelkar = ..OpenWinkelkar(Applicatie, WinkelkarID)
+	
+	Set Lijn = Winkelkar.GeefLijn(LijnID)
+	
+	Set Positie = Lijn.Groep.GeefPositie(Lijn)
+	
+	Do Winkelkar.Verwijder(Lijn)
+	
+	Do Lijn.Groep.VoegTussen(..MaakMaatwerkLijn(IngegevenKenmerken, Aantal), Positie)
+	
+	Do Winkelkar.%Save()
+	
+	Quit ..GeefWinkelkar(Applicatie, WinkelkarID)
+]]></Implementation>
+</Method>
+
+<Method name="MaakMaatwerkLijn">
+<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (Aantal '> 0)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Het aantal moet groter zijn dan 0"))
+	}
+	
+	If ('IngegevenKenmerken.IsVolledig())
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De ingegeven kenmerken zijn niet volledig"))
+	}
+	
+	Set IngegevenKenmerkenVisitor = ##class(APPS.PM.Maatwerk.impl.DtoNaarKenmerkVisitor).%New()
+	Do IngegevenKenmerken.Accept(IngegevenKenmerkenVisitor)
+	Set IngegevenKenmerkenDOM = IngegevenKenmerkenVisitor.GeefIngegevenKenmerken()
+	
+	// Berekenen halffabrikaat items product
+	Set KlantID = 7587
+	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
+	Set Context=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(IngegevenKenmerken.GeefFamilie(),IngegevenKenmerken.GeefVariant(),BerekeningsSpecificatie)
+	
+	Do ##class(vhLib.OldSchool).InitVars()
+	
+	Do Context.GeefHalffabSpec().BerekenHalffabDetails(Context,IngegevenKenmerkenDOM)
+	Set KostContext = ##class(DOM.PM.Maatwerk.Calc.Kost.KostContext).%New(IngegevenKenmerken.GeefFamilie(), IngegevenKenmerken.GeefVariant(), BerekeningsSpecificatie)
+	Set KostItem = KostContext.GeefKostSpec().BerekenKostDetails(KostContext,Context.HalffabItemsBoom,IngegevenKenmerkenDOM)
+	
+	// Aanmaken van de lijn
+	Set EenheidPrijs = $$ROUND^KPRIJS(KostItem.GeefKost())
+	Set TotaalPrijs = EenheidPrijs * Aantal
+	
+	Quit ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(Aantal, IngegevenKenmerkenDOM, EenheidPrijs, TotaalPrijs)
+]]></Implementation>
+</Method>
+
+<Method name="OpenWinkelkar">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set WinkelkarImpl = ##class(DOM.EC.Winkelkar.Winkelkar).%OpenId(WinkelkarID)
+	
+	If '$IsObject(WinkelkarImpl)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De opgegeven winkelkar id is niet geldig!"))
+	}
+	
+	If (WinkelkarImpl.GeefApplicatieID() '= Applicatie.Naam)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De opgegeven applicatie id is niet geldig!"))
+	}
+	
+	Quit WinkelkarImpl
+]]></Implementation>
+</Method>
 </Class>
 </Export>