Index: WSimpl/Halux/PPS/MatService.cls.xml
===================================================================
diff -u -r66744 -r66745
--- WSimpl/Halux/PPS/MatService.cls.xml	(.../MatService.cls.xml)	(revision 66744)
+++ WSimpl/Halux/PPS/MatService.cls.xml	(.../MatService.cls.xml)	(revision 66745)
@@ -96,11 +96,28 @@
 				#dim MatInfo As DOM.Halux.PPS.MatInfo = MatInfoIterator.Next()
 				If ($$$Not(MatInfoIterator.HasNext())) {			
 					If (IsGesneden && $$$Not(MatInfo.IsGesneden)) {
+						Set MatInfo.AantalGesneden = MatInfo.AantalGesneden + 1
+						Set MatInfo.SnijTijdstip = ##class(TECH.DateTime).HorologToTimeStamp(..DateTimeApi.CurrentHorolog())
 						
+						If (MatInfo.AantalGesneden = MatInfo.Aantal) {
+							Set MatInfo.IsGesneden = $$$True
 						} Else {
-							Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).IllegalUsage()
-							Set Response.Header.Omschrijving = "Alle matten voor ProductId '"_ProductId_"' en dossiercode '"_DossierCode_"' zijn reeds gesneden op '"_MatInfo.SnijTijdstip_"'."
-						}		
+							Set MatInfo.IsGesneden = $$$False
+						}
+					
+						Do ..MatInfoRepository.Bewaar(MatInfo)	
+					
+						#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(MatInfo.BatchId)
+						#dim Categorie As APPS.Halux.common.enu.Categorie = Batch.GeefCategorie()
+					
+						Set Response.Header.Status = "200"
+						Set Response.BatchId = 	MatInfo.BatchId
+						Set Response.Categorie = Categorie
+						Set Response.MatInfo = ..MatAfmetingenUitvoeringInfoNaarDto(MatInfo)
+					} Else {
+						Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).IllegalUsage()
+						Set Response.Header.Omschrijving = "Alle matten voor ProductId '"_ProductId_"' en dossiercode '"_DossierCode_"' zijn reeds gesneden op '"_MatInfo.SnijTijdstip_"'."
+					}		
 				} Else {
 					Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataCorrupt()
 					Set Response.Header.Omschrijving = "Meerdere records gevonden voor mat met ProductId '"_ProductId_"' en dossiercode '"_DossierCode_"'."
Index: vhUnitTest/WSimpl/Halux/PPS/MatService/ZetStatusGesneden/Test.cls.xml
===================================================================
diff -u -r66744 -r66745
--- vhUnitTest/WSimpl/Halux/PPS/MatService/ZetStatusGesneden/Test.cls.xml	(.../Test.cls.xml)	(revision 66744)
+++ vhUnitTest/WSimpl/Halux/PPS/MatService/ZetStatusGesneden/Test.cls.xml	(.../Test.cls.xml)	(revision 66745)
@@ -62,9 +62,7 @@
 	Set Request.DossierCode = "UTDossierCode"
 	
 	Set MatInfoLijst = ##class(%ListOfObjects).%New()
-	#dim MatInfo As DOM.Halux.PPS.MatInfo = ##class(DOM.Halux.PPS.MatInfo).%New()
-	Set MatInfo.IsGesneden = $$$True
-	Set MatInfo.SnijTijdstip = "UT SnijTijdstip"
+	#dim MatInfo As DOM.Halux.PPS.MatInfo = ..MaakMatInfoObject($$$True, "UT Tijdstip")
 	Do MatInfoLijst.Insert(MatInfo)
 	
 	Set MatInfoIterator = ##class(TECH.ListIterator).%New(MatInfoLijst)
@@ -80,6 +78,73 @@
 	Do MatInfoRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Standaard gedrag =&gt; Aantal gesneden wordt bijgewerkt">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.PPS.MatService.ZetStatusGesnedenRequest).%New()
+	Set Request.ProductId = 100000
+	Set Request.DossierCode = "UTDossierCode"
+	
+	#dim BatchId As %Integer = 123456
+	#dim Categorie As APPS.Halux.common.enu.Categorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox()
+	#dim AantalMattenReedsGesneden As %Integer = 0
+	#dim AantalMatten As %Integer = 2
+	
+	Set MatInfoLijst = ##class(%ListOfObjects).%New()
+	#dim MatInfo As DOM.Halux.PPS.MatInfo = ..MaakMatInfoObject($$$False, "UT Tijdstip", AantalMattenReedsGesneden, AantalMatten, BatchId)
+	Do MatInfoLijst.Insert(MatInfo)
+	
+	#dim BatchServiceMock As vhTest.Mock.APPS.Halux.common.BatchService = ..GeefBatchMock(BatchId, Categorie)
+	
+	Set MatInfoIterator = ##class(TECH.ListIterator).%New(MatInfoLijst)
+	Set MatInfoRepositoryMock = ##class(vhTest.Mock.DOM.Halux.PPS.MatInfoRepository).%New()
+	Do MatInfoRepositoryMock.VerwachtMethodCall("ZoekViaProductIdEnDossierCode", Request.ProductId, Request.DossierCode).DanReturn(MatInfoIterator)
+	Do MatInfoRepositoryMock.VerwachtMethodCall("Bewaar", MatInfo).ExactAantalKeer(1).DanDoeNiks()
+	
+	Set MatService = ##class(WSimpl.Halux.PPS.MatService).%New(BatchServiceMock, MatInfoRepositoryMock)
+	#dim Antwoord As WS.Halux.PPS.MatService.ZetStatusGesnedenResponse = MatService.ZetStatusGesneden(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status, "200")
+	Do $$$AssertEquals(Antwoord.BatchId, BatchId)
+	Do $$$AssertEquals(Antwoord.Categorie, Categorie)
+	Do $$$AssertEquals(Antwoord.MatInfo.AantalGesneden, AantalMattenReedsGesneden + 1)
+	Do $$$AssertEquals(Antwoord.MatInfo.IsGesneden, $$$False)
+	
+	Do BatchServiceMock.Verifieer()
+	Do MatInfoRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="MaakMatInfoObject">
+<FormalSpec>IsGesneden:%Boolean,SnijTijdstip:TECH.Horolog,AantalGesneden:%Integer=0,Aantal:%Integer=1,BatchId:%Integer="123456"</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.Halux.PPS.MatInfo</ReturnType>
+<Implementation><![CDATA[
+	#dim MatInfo As DOM.Halux.PPS.MatInfo = ##class(DOM.Halux.PPS.MatInfo).%New()
+	
+	Set MatInfo.IsGesneden = IsGesneden
+	Set MatInfo.SnijTijdstip = SnijTijdstip
+	Set MatInfo.AantalGesneden = AantalGesneden
+	Set MatInfo.Aantal = Aantal
+	Set MatInfo.BatchId = BatchId
+	
+	Quit MatInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefBatchMock">
+<FormalSpec>BatchId:%Integer,Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
+<ReturnType>vhTest.Mock.APPS.Halux.common.BatchService</ReturnType>
+<Implementation><![CDATA[
+	Set LbxBatchStub = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do LbxBatchStub.IndienMethodCall("GeefCategorie").DanReturn(Categorie)
+	
+	Set BatchServiceMock = ##class(vhTest.Mock.APPS.Halux.common.BatchService).%New()
+	Do BatchServiceMock.VerwachtMethodCall("GeefBatch", BatchId).DanReturn(LbxBatchStub)
+	
+	Quit BatchServiceMock
+]]></Implementation>
+</Method>
 </Class>