Index: APPS/Halux/PPS/MatService.cls.xml
===================================================================
diff -u -r66705 -r66716
--- APPS/Halux/PPS/MatService.cls.xml	(.../MatService.cls.xml)	(revision 66705)
+++ APPS/Halux/PPS/MatService.cls.xml	(.../MatService.cls.xml)	(revision 66716)
@@ -56,11 +56,11 @@
 <FormalSpec>MatInfo:DOM.Halux.PPS.MatInfo</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim BestaandeMatInfo As TECH.Iterator = ..MatInfoRepository.ZoekViaProductIdEnDossierCode(MatInfo.ProductId, MatInfo.DossierCode)
-	If $$$Not(BestaandeMatInfo.HasNext()) {
+	#dim BestaandeMatInfoIterator As TECH.Iterator = ..MatInfoRepository.ZoekViaProductIdEnDossierCode(MatInfo.ProductId, MatInfo.DossierCode)
+	If $$$Not(BestaandeMatInfoIterator.HasNext()) {
 		Do ..MatInfoRepository.Bewaar(MatInfo)
 	} Else {
-		// Update
+		Do ..UpdatMatInfo(MatInfo, BestaandeMatInfoIterator.Next())
 	}
 ]]></Implementation>
 </Method>
@@ -126,6 +126,32 @@
 	Quit MatInfo
 ]]></Implementation>
 </Method>
+
+<Method name="UpdatMatInfo">
+<FormalSpec>NieuweMatInfo:DOM.Halux.PPS.MatInfo,BestaandeMatInfo:DOM.Halux.PPS.MatInfo</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set BestaandeMatInfo.BatchId = NieuweMatInfo.BatchId
+	Set BestaandeMatInfo.ToeleveringId = NieuweMatInfo.ToeleveringId
+	Set BestaandeMatInfo.Categorie = NieuweMatInfo.Categorie
+	Set BestaandeMatInfo.DossierCode = NieuweMatInfo.DossierCode
+	Set BestaandeMatInfo.ProductId = NieuweMatInfo.ProductId 
+	Set BestaandeMatInfo.Aantal = NieuweMatInfo.Aantal
+	Set BestaandeMatInfo.AantalGesneden = NieuweMatInfo.AantalGesneden 
+	Set BestaandeMatInfo.Diepte = NieuweMatInfo.Diepte
+	Set BestaandeMatInfo.BewerkingDiepte = NieuweMatInfo.BewerkingDiepte
+	Set BestaandeMatInfo.Breedte = NieuweMatInfo.Breedte
+	Set BestaandeMatInfo.BewerkingBreedte = NieuweMatInfo.BewerkingBreedte
+	Set BestaandeMatInfo.Beschrijving = NieuweMatInfo.Beschrijving
+	Set BestaandeMatInfo.Kleur = NieuweMatInfo.Kleur
+	Set BestaandeMatInfo.Materiaal = NieuweMatInfo.Materiaal
+	Set BestaandeMatInfo.SequentieNummer = NieuweMatInfo.SequentieNummer
+	Set BestaandeMatInfo.IsRework = NieuweMatInfo.IsRework
+	Set BestaandeMatInfo.IsGesneden = NieuweMatInfo.IsGesneden
+	
+	Do ..MatInfoRepository.Bewaar(BestaandeMatInfo)
+]]></Implementation>
+</Method>
 </Class>