Index: vhTest/Mock/APPS/VKP/Offerte/impl/DoorHandelMeeleverensMelder.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/VKP/Offerte/impl/DoorHandelMeeleverensMelder.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/VKP/Offerte/impl/DoorHandelMeeleverensMelder.cls.xml	(revision 53513)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.VKP.Offerte.impl.DoorHandelMeeleverensMelder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Offerte.impl.DoorHandelMeeleverensMelder,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Finalize">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Finalize")
+]]></Implementation>
+</Method>
+
+<Method name="GeefMeeleverenAantalVoorPRNr">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefMeeleverenAantalVoorPRNr",PRNr)
+]]></Implementation>
+</Method>
+
+<Method name="GeefMeeleverensPRNrIterator">
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefMeeleverensPRNrIterator")
+]]></Implementation>
+</Method>
+
+<Method name="HeeftMeeleverens">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("HeeftMeeleverens")
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Init")
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkGroepLijn">
+<FormalSpec>GroepLijn:DOM.EC.Winkelkar.GroepLijn</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkGroepLijn",GroepLijn)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMaatwerkLijn">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkMaatwerkLijn",MaatwerkLijn)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProductLijn">
+<FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkProductLijn",ProductLijn)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTekstLijn">
+<FormalSpec>TekstLijn:DOM.EC.Winkelkar.TekstLijn</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkTekstLijn",TekstLijn)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/Offerte/impl/DoorHandelMeeleverensMelder/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Offerte/impl/DoorHandelMeeleverensMelder/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Offerte/impl/DoorHandelMeeleverensMelder/Test.cls.xml	(revision 53513)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Offerte.impl.DoorHandelMeeleverensMelder.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test 1 maatwerklijn">
+<Implementation><![CDATA[
+	#dim MaatwerkLijn as DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhTest.Utils.DOM.EC.Winkelkar.MaatwerkLijn).TaxStandaardLade(1,100,100,$$$False)
+	Do MaatwerkLijn.ZetDoorHandelMeeleverenProductEnAantal("ProductId",1)
+	
+	Set Melder = ##class(APPS.VKP.Offerte.impl.DoorHandelMeeleverensMelder).%New()
+	Do Melder.Init()
+	Do Melder.VerwerkMaatwerkLijn(MaatwerkLijn)
+	
+	Do $$$AssertTrue(Melder.HeeftMeeleverens())
+	Do $$$AssertEquals(Melder.GeefMeeleverenAantalVoorPRNr("ProductId"),1)
+	
+	Do $$$AssertEquals(Melder.GeefMeeleverensPRNrIterator().Next(),"ProductId")
+]]></Implementation>
+</Method>
+
+<Method name="Test 2 maatwerklijnen zelfde product mee te leveren telt de aantallen op">
+<Implementation><![CDATA[
+	#dim MaatwerkLijn1 as DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhTest.Utils.DOM.EC.Winkelkar.MaatwerkLijn).TaxStandaardLade(1,100,100,$$$False)
+	Do MaatwerkLijn1.ZetDoorHandelMeeleverenProductEnAantal("ProductId",1)
+
+	#dim MaatwerkLijn2 as DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhTest.Utils.DOM.EC.Winkelkar.MaatwerkLijn).TaxStandaardLade(1,100,100,$$$False)
+	Do MaatwerkLijn2.ZetDoorHandelMeeleverenProductEnAantal("ProductId",3)
+	
+	Set Melder = ##class(APPS.VKP.Offerte.impl.DoorHandelMeeleverensMelder).%New()
+	Do Melder.Init()
+	Do Melder.VerwerkMaatwerkLijn(MaatwerkLijn1)
+	Do Melder.VerwerkMaatwerkLijn(MaatwerkLijn2)
+	
+	Do $$$AssertTrue(Melder.HeeftMeeleverens())
+	Do $$$AssertEquals(Melder.GeefMeeleverenAantalVoorPRNr("ProductId"),4)
+	
+	Do $$$AssertEquals(Melder.GeefMeeleverensPRNrIterator().Next(),"ProductId")
+]]></Implementation>
+</Method>
+
+<Method name="Test 2 maatwerklijnen andere producten mee te leveren">
+<Implementation><![CDATA[
+	#dim MaatwerkLijn1 as DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhTest.Utils.DOM.EC.Winkelkar.MaatwerkLijn).TaxStandaardLade(1,100,100,$$$False)
+	Do MaatwerkLijn1.ZetDoorHandelMeeleverenProductEnAantal("ProductId1",1)
+
+	#dim MaatwerkLijn2 as DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhTest.Utils.DOM.EC.Winkelkar.MaatwerkLijn).TaxStandaardLade(1,100,100,$$$False)
+	Do MaatwerkLijn2.ZetDoorHandelMeeleverenProductEnAantal("ProductId2",3)
+	
+	Set Melder = ##class(APPS.VKP.Offerte.impl.DoorHandelMeeleverensMelder).%New()
+	Do Melder.Init()
+	Do Melder.VerwerkMaatwerkLijn(MaatwerkLijn1)
+	Do Melder.VerwerkMaatwerkLijn(MaatwerkLijn2)
+	
+	Do $$$AssertTrue(Melder.HeeftMeeleverens())
+	Do $$$AssertEquals(Melder.GeefMeeleverenAantalVoorPRNr("ProductId1"),1)
+	Do $$$AssertEquals(Melder.GeefMeeleverenAantalVoorPRNr("ProductId2"),3)
+	#dim ProductIdIterator as TECH.Iterator = Melder.GeefMeeleverensPRNrIterator()
+	Do $$$AssertEquals(ProductIdIterator.Next(),"ProductId1")
+	Do $$$AssertEquals(ProductIdIterator.Next(),"ProductId2")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Offerte/impl/DoorHandelMeeleverensMelder.cls.xml
===================================================================
diff -u
--- APPS/VKP/Offerte/impl/DoorHandelMeeleverensMelder.cls.xml	(revision 0)
+++ APPS/VKP/Offerte/impl/DoorHandelMeeleverensMelder.cls.xml	(revision 53513)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Offerte.impl.DoorHandelMeeleverensMelder">
+<Super>DOM.EC.Winkelkar.WinkelkarVisitor,TECH.Mockable</Super>
+
+<Property name="Meeleverens">
+<Type>%Numeric</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="Init">
+<Implementation><![CDATA[	set ..Meeleverens = ##class(%ArrayOfDataTypes).%New()
+]]></Implementation>
+</Method>
+
+<Method name="HeeftMeeleverens">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..Meeleverens.Count() > 0)
+]]></Implementation>
+</Method>
+
+<Method name="GeefMeeleverensPRNrIterator">
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(##class(TECH.ArrayUtils).ArrayKeysToList(..Meeleverens))
+]]></Implementation>
+</Method>
+
+<Method name="GeefMeeleverenAantalVoorPRNr">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	Quit ..Meeleverens.GetAt(PRNr)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMaatwerkLijn">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<Implementation><![CDATA[
+	if (MaatwerkLijn.DoorHandelMeeleverens.Count()){
+		Set MeeleverenPRNrIterator = ##class(TECH.ListIterator).%New(##class(TECH.ArrayUtils).ArrayKeysToList(MaatwerkLijn.DoorHandelMeeleverens))
+		While MeeleverenPRNrIterator.HasNext(){
+			#Dim PRNr as %String = MeeleverenPRNrIterator.Next()
+			#dim VorigAantal as %Numeric = ..Meeleverens.GetAt(PRNr)
+			Do ..Meeleverens.SetAt(VorigAantal + MaatwerkLijn.GeefAantalDoorHandelMeeLeveren(PRNr) ,PRNr)
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/VKP/Offerte/impl/DoorHandelMeeleverensMelder.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/VKP/Offerte/impl/DoorHandelMeeleverensMelder.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/VKP/Offerte/impl/DoorHandelMeeleverensMelder.cls.xml	(revision 53513)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.VKP.Offerte.impl.DoorHandelMeeleverensMelder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Offerte.impl.DoorHandelMeeleverensMelder</Super>
+
+<Method name="Finalize">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="GeefMeeleverenAantalVoorPRNr">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefMeeleverensPRNrIterator">
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="HeeftMeeleverens">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkGroepLijn">
+<FormalSpec>GroepLijn:DOM.EC.Winkelkar.GroepLijn</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMaatwerkLijn">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProductLijn">
+<FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTekstLijn">
+<FormalSpec>TekstLijn:DOM.EC.Winkelkar.TekstLijn</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>