Index: vhDeploy/D20210628xLbxPlaatmateriaalSelectieAanpassen.cls.xml
===================================================================
diff -u -r65545 -r65561
--- vhDeploy/D20210628xLbxPlaatmateriaalSelectieAanpassen.cls.xml	(.../D20210628xLbxPlaatmateriaalSelectieAanpassen.cls.xml)	(revision 65545)
+++ vhDeploy/D20210628xLbxPlaatmateriaalSelectieAanpassen.cls.xml	(.../D20210628xLbxPlaatmateriaalSelectieAanpassen.cls.xml)	(revision 65561)
@@ -92,12 +92,14 @@
 			If GeldigVan = $$$DollarHvan18juni2021 {
 				Set GeldigVan = GeldigVan + ((8*365) + 2)
 				Set SaveStatus = ##class(Prod.Kenmerk.DataDefinitie).Set(KenmerkGroepNaam,UnId,"GeldigVan",GeldigVan)
-				write !,"SaveStatus = "_$$ParseStatus^vhLib(SaveStatus)
+				Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Fout bij bewaren van Prod.Kenmerk.DataDefinitie met ID '"_(UnId_"||"_KenmerkGroepNaam_"||"_"GeldigVan")_"'.")
+				;write !,"SaveStatus = "_$$ParseStatus^vhLib(SaveStatus)
 				;write !,"aangepast: '"_UnId_"'."
 			}
 			If GeldigTot = $$$DollarHvan17juni2021 {
 				Set GeldigTot = GeldigTot + ((8*365) + 2)
-				Do ##class(Prod.Kenmerk.DataDefinitie).Set(KenmerkGroepNaam,UnId,"GeldigTot",GeldigTot)
+				Set SaveStatus = ##class(Prod.Kenmerk.DataDefinitie).Set(KenmerkGroepNaam,UnId,"GeldigTot",GeldigTot)
+				Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Fout bij bewaren van Prod.Kenmerk.DataDefinitie met ID '"_(UnId_"||"_KenmerkGroepNaam_"||"_"GeldigTot")_"'.")
 				;write !,"aangepast: '"_UnId_"'."
 			}