Index: vhDeploy/D20210628xLbxPlaatmateriaalSelectieAanpassen.cls.xml
===================================================================
diff -u -r65410 -r65545
--- vhDeploy/D20210628xLbxPlaatmateriaalSelectieAanpassen.cls.xml	(.../D20210628xLbxPlaatmateriaalSelectieAanpassen.cls.xml)	(revision 65410)
+++ vhDeploy/D20210628xLbxPlaatmateriaalSelectieAanpassen.cls.xml	(.../D20210628xLbxPlaatmateriaalSelectieAanpassen.cls.xml)	(revision 65545)
@@ -69,6 +69,7 @@
 	#define DollarHvan17juni2021   65912
 	#define DollarHvan18juni2021   65913
 	
+	#dim SaveStatus As %Status = $$$OK
 	#dim Rol As %String = ""
 	For Rol = "Bodem", "Rug" {
 
@@ -90,7 +91,8 @@
 			
 			If GeldigVan = $$$DollarHvan18juni2021 {
 				Set GeldigVan = GeldigVan + ((8*365) + 2)
-				Do ##class(Prod.Kenmerk.DataDefinitie).Set(KenmerkGroepNaam,UnId,"GeldigVan",GeldigVan)
+				Set SaveStatus = ##class(Prod.Kenmerk.DataDefinitie).Set(KenmerkGroepNaam,UnId,"GeldigVan",GeldigVan)
+				write !,"SaveStatus = "_$$ParseStatus^vhLib(SaveStatus)
 				;write !,"aangepast: '"_UnId_"'."
 			}
 			If GeldigTot = $$$DollarHvan17juni2021 {