Index: vhUnitTest/AXimpl/Controle/Order/ProductOrderLijnRepository/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Controle/Order/ProductOrderLijnRepository/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Controle/Order/ProductOrderLijnRepository/Test.cls.xml	(revision 49275)
@@ -0,0 +1,181 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Controle.Order.ProductOrderLijnRepository.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+<InitialExpression>7</InitialExpression>
+</Property>
+
+<Property name="KlantNr">
+<Type>%String</Type>
+<InitialExpression>"1111"</InitialExpression>
+</Property>
+
+<Property name="OrderId">
+<Type>%Integer</Type>
+<InitialExpression>7913</InitialExpression>
+</Property>
+
+<Property name="ProductNr">
+<Type>%String</Type>
+<InitialExpression>"1000"</InitialExpression>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Do ..VerwijderData()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..VerwijderData()
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ..VerwijderData()
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: BestaatVolgensKlantNrOrderIdProductNr als er geen record bestaat">
+<Implementation><![CDATA[
+	#dim Result As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNr(..KlantNr,..OrderId,..ProductNr)
+	
+	Do $$$AssertFalse(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BestaatVolgensKlantNrOrderIdProductNr als er een record bestaat">
+<Implementation><![CDATA[
+	Do ..VoegToeProductOrderLijn(1)
+	
+	#dim Result As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNr(..KlantNr,..OrderId,..ProductNr)
+	
+	Do $$$AssertTrue(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BestaatVolgensKlantNrOrderIdProductNr als er meerdere records bestaan">
+<Implementation><![CDATA[
+	Do ..VoegToeProductOrderLijn(9)
+	
+	#dim Result As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNr(..KlantNr,..OrderId,..ProductNr)
+	
+	Do $$$AssertTrue(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: VerwijderVolgensKlantNrOrderIdProductNr als er geen record bestaat">
+<Implementation><![CDATA[
+	Do ..GeefProductOrderLijnRepository().VerwijderVolgensKlantNrOrderIdProductNr(..KlantNr,..OrderId,..ProductNr)
+	
+	#dim Result As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNr(..KlantNr,..OrderId,..ProductNr)
+	
+	Do $$$AssertFalse(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: VerwijderVolgensKlantNrOrderIdProductNr als er een record bestond">
+<Implementation><![CDATA[
+	Do ..VoegToeProductOrderLijn(1)
+	
+	Do ..GeefProductOrderLijnRepository().VerwijderVolgensKlantNrOrderIdProductNr(..KlantNr,..OrderId,..ProductNr)
+	
+	#dim Result As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNr(..KlantNr,..OrderId,..ProductNr)
+	
+	Do $$$AssertFalse(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: VerwijderVolgensKlantNrOrderIdProductNr als er meerdere records bestonden">
+<Implementation><![CDATA[
+	Do ..VoegToeProductOrderLijn(9)
+	
+	Do ..GeefProductOrderLijnRepository().VerwijderVolgensKlantNrOrderIdProductNr(..KlantNr,..OrderId,..ProductNr)
+	
+	#dim Result As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNr(..KlantNr,..OrderId,..ProductNr)
+	
+	Do $$$AssertFalse(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefAantalVolgensKlantNrOrderIdProductNr als er geen record bestaat">
+<Implementation><![CDATA[
+	#dim Result As %Integer = ..GeefProductOrderLijnRepository().GeefAantalVolgensKlantNrOrderIdProductNr(..KlantNr,..OrderId,..ProductNr)
+	
+	Do $$$AssertEquals(Result,0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefAantalVolgensKlantNrOrderIdProductNr als er een record bestaat">
+<Implementation><![CDATA[
+	Do ..VoegToeProductOrderLijn(1)
+	
+	#dim Result As %Integer = ..GeefProductOrderLijnRepository().GeefAantalVolgensKlantNrOrderIdProductNr(..KlantNr,..OrderId,..ProductNr)
+	
+	Do $$$AssertEquals(Result,7)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefAantalVolgensKlantNrOrderIdProductNr als er meerdere records bestaan">
+<Implementation><![CDATA[
+	Do ..VoegToeProductOrderLijn(9)
+	
+	#dim Result As %Integer = ..GeefProductOrderLijnRepository().GeefAantalVolgensKlantNrOrderIdProductNr(..KlantNr,..OrderId,..ProductNr)
+	
+	Do $$$AssertEquals(Result,63)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductOrderLijnRepository">
+<ReturnType>AXimpl.Controle.Order.ProductOrderLijnRepository</ReturnType>
+<Implementation><![CDATA[	Quit ##class(AXimpl.Controle.Order.ProductOrderLijnRepository).%New()
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ProductOrderLijnNr As %Integer
+	For ProductOrderLijnNr=0:1:9 {
+		Kill ^AXimpl.Con7EC2.ProductOrdeAC5AD(99999_ProductOrderLijnNr)
+		Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxKlantNr"," "_..KlantNr,99999_ProductOrderLijnNr)
+		Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxOrderId"," "_..OrderId,99999_ProductOrderLijnNr)
+		Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxProductNr"," "_..ProductNr,99999_ProductOrderLijnNr)
+		Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("UniqueIndex"," "_..KlantNr," "_..OrderId," "_..ProductNr,99999_ProductOrderLijnNr)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeProductOrderLijn">
+<FormalSpec>AantalProductOrderLijnen:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (AantalProductOrderLijnen > 9) {
+		Set Exceptie = ##class(TECH.Exceptions.InvalidInputException).%New("AantalProductOrderLijnen mag maximaal 9 zijn. AantalProductOrderLijnen = '"_AantalProductOrderLijnen_"'")
+		Do ##class(TECH.ExceptionHandler).%New().Throw(Exceptie)
+	}
+	
+	#dim ProductOrderLijnNr As %Integer
+	For ProductOrderLijnNr=1:1:AantalProductOrderLijnen {
+		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxKlantNr"," "_..KlantNr,99999_ProductOrderLijnNr) = ""
+		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxOrderId"," "_..OrderId,99999_ProductOrderLijnNr) = ""
+		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxProductNr"," "_..ProductNr,99999_ProductOrderLijnNr) = ""
+		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("UniqueIndex"," "_..KlantNr," "_..OrderId," "_..ProductNr,99999_ProductOrderLijnNr) = ""
+		Set ^AXimpl.Con7EC2.ProductOrdeAC5AD(99999_ProductOrderLijnNr) = $ListBuild("",..Aantal,..KlantNr,..OrderId,..ProductNr,00_ProductOrderLijnNr)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Controle/Order/ProductOrderLijnRepository.cls.xml
===================================================================
diff -u -r49091 -r49275
--- AXimpl/Controle/Order/ProductOrderLijnRepository.cls.xml	(.../ProductOrderLijnRepository.cls.xml)	(revision 49091)
+++ AXimpl/Controle/Order/ProductOrderLijnRepository.cls.xml	(.../ProductOrderLijnRepository.cls.xml)	(revision 49275)
@@ -26,9 +26,9 @@
 <Method name="VerwijderVolgensKlantNrOrderIdProductNr">
 <FormalSpec>KlantNr:%String,OrderId:%String,ProductNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	#Dim iterator as TECH.Iterator = ..ZoekVolgensKlantNrOrderIdProductNr(KlantNr, OrderId, ProductNr)
-	while iterator.HasNext(){
-		Do ##class(AXimpl.Controle.Order.ProductOrderLijnRepository).%New().VerwijderViaID(iterator.Next().GeefID())
+	#Dim Iterator as TECH.Iterator = ..ZoekVolgensKlantNrOrderIdProductNr(KlantNr, OrderId, ProductNr)
+	while Iterator.HasNext(){
+		Do ##class(AXimpl.Controle.Order.ProductOrderLijnRepository).%New().VerwijderViaID(Iterator.Next().GeefID())
 	}
 ]]></Implementation>
 </Method>
@@ -37,8 +37,9 @@
 <FormalSpec>KlantNr:%String,OrderId:%String,ProductNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	Quit:$$$Not(..BestaatVolgensKlantNrOrderIdProductNr(KlantNr,OrderId,ProductNr)) 0
 	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
-	#dim SqlStatement As TECH.String = "SELECT Aantal FROM " _SqlTableName _" WHERE KlantNr = '"_KlantNr_"' AND OrderId = '"_OrderId_"' AND ProductNr = '"_ProductNr_"'"
+	#dim SqlStatement As TECH.String = "SELECT SUM(Aantal) As Aantal FROM " _SqlTableName _" WHERE KlantNr = '"_KlantNr_"' AND OrderId = '"_OrderId_"' AND ProductNr = '"_ProductNr_"'"
 	
 	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
 	#dim ResultSetIterator As TECH.Iterator = ##class(TECH.ResultSetIterator).%New(ResultSet)