Index: vhDeploy/D20210628xLbxPlaatmateriaalSelectieAanpassen.cls.xml
===================================================================
diff -u -r65561 -r66465
--- vhDeploy/D20210628xLbxPlaatmateriaalSelectieAanpassen.cls.xml	(.../D20210628xLbxPlaatmateriaalSelectieAanpassen.cls.xml)	(revision 65561)
+++ vhDeploy/D20210628xLbxPlaatmateriaalSelectieAanpassen.cls.xml	(.../D20210628xLbxPlaatmateriaalSelectieAanpassen.cls.xml)	(revision 66465)
@@ -89,6 +89,7 @@
 			#define FormatDatum(%v)   $$$IfLength(%v,$ZD(%v,4)_" ($H=",")")
 			;write !,"Halffab UnId '"_UnId_"' is GeldigVan "_$$$FormatDatum(GeldigVan) _"  tot GeldigTot "_$$$FormatDatum(GeldigTot)_"."
 			
+ /*			
 			If GeldigVan = $$$DollarHvan18juni2021 {
 				Set GeldigVan = GeldigVan + ((8*365) + 2)
 				Set SaveStatus = ##class(Prod.Kenmerk.DataDefinitie).Set(KenmerkGroepNaam,UnId,"GeldigVan",GeldigVan)
@@ -102,6 +103,25 @@
 				Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Fout bij bewaren van Prod.Kenmerk.DataDefinitie met ID '"_(UnId_"||"_KenmerkGroepNaam_"||"_"GeldigTot")_"'.")
 				;write !,"aangepast: '"_UnId_"'."
 			}
+ */
+			If (UnId < 999999) {
+				Set GeldigVan = ""
+				Set SaveStatus = ##class(Prod.Kenmerk.DataDefinitie).Set(KenmerkGroepNaam,UnId,"GeldigVan",GeldigVan)
+				Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Fout bij bewaren van Prod.Kenmerk.DataDefinitie met ID '"_(UnId_"||"_KenmerkGroepNaam_"||"_"GeldigVan")_"'.")
+				Set 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")_"'.")
+			} 
+			Else {
+				Set GeldigVan = $$$DollarHvan18juni2021 + ((8*365) + 2)
+				Set SaveStatus = ##class(Prod.Kenmerk.DataDefinitie).Set(KenmerkGroepNaam,UnId,"GeldigVan",GeldigVan)
+				Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Fout bij bewaren van Prod.Kenmerk.DataDefinitie met ID '"_(UnId_"||"_KenmerkGroepNaam_"||"_"GeldigVan")_"'.")
+				Set 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")_"'.")
+			}
+
+
 			
 			Do ..PasAanBewerkingInfo(UnId)
 		}