Index: vhDeploy/Deploy20241104xSSTSelStekkerTypeUitbreiden.cls.xml =================================================================== diff -u --- vhDeploy/Deploy20241104xSSTSelStekkerTypeUitbreiden.cls.xml (revision 0) +++ vhDeploy/Deploy20241104xSSTSelStekkerTypeUitbreiden.cls.xml (revision 74072) @@ -0,0 +1,19 @@ + + + +vhDeploy.Deploy + + +%String +SST_SEL_StekkerType Uitbreiden met datum en klantbep velden + + + +1 + + + + + + Index: vhDeploy/Maatwerk/SST/SEL/SSTxSSTxStekkerType.cls.xml =================================================================== diff -u -r61618 -r74072 --- vhDeploy/Maatwerk/SST/SEL/SSTxSSTxStekkerType.cls.xml (.../SSTxSSTxStekkerType.cls.xml) (revision 61618) +++ vhDeploy/Maatwerk/SST/SEL/SSTxSSTxStekkerType.cls.xml (.../SSTxSSTxStekkerType.cls.xml) (revision 74072) @@ -30,12 +30,59 @@ Set Kenmerk.NieuweWaardeToegelaten = 1 Set Kenmerk.SuggereerWaarden = 1 Set Kenmerk.VeldBreedteInTekens = 10 + Set Kenmerk.VolgNr = 4 + Do KenmerkGroep.Kenmerken.Insert(Kenmerk) + + Set Kenmerk = ##class(APPS.PM.dto.Kenm.KenmerkMetadata).%New() + Set Kenmerk.IsReadOnly = 0 + Set Kenmerk.IsWijzigbaar = 0 + Set Kenmerk.DataType = "Datum" + Set Kenmerk.Multipliciteit = ##class(APPS.PM.dto.Kenm.Multipliciteit).%New() + Set Kenmerk.Multipliciteit.Minimum = 1 + Set Kenmerk.Multipliciteit.Maximum = 1 + Set Kenmerk.Naam = "GeldigVan" + Set Kenmerk.NieuweWaardeToegelaten = 1 + Set Kenmerk.SuggereerWaarden = 0 + Set Kenmerk.VeldBreedteInTekens = 15 Set Kenmerk.VolgNr = 1 Do KenmerkGroep.Kenmerken.Insert(Kenmerk) + Set Kenmerk = ##class(APPS.PM.dto.Kenm.KenmerkMetadata).%New() + Set Kenmerk.IsReadOnly = 0 + Set Kenmerk.IsWijzigbaar = 0 + Set Kenmerk.DataType = "Datum" + Set Kenmerk.Multipliciteit = ##class(APPS.PM.dto.Kenm.Multipliciteit).%New() + Set Kenmerk.Multipliciteit.Minimum = 1 + Set Kenmerk.Multipliciteit.Maximum = 1 + Set Kenmerk.Naam = "GeldigTot" + Set Kenmerk.NieuweWaardeToegelaten = 1 + Set Kenmerk.SuggereerWaarden = 0 + Set Kenmerk.VeldBreedteInTekens = 15 + Set Kenmerk.VolgNr = 2 + Do KenmerkGroep.Kenmerken.Insert(Kenmerk) + + Set Kenmerk = ##class(APPS.PM.dto.Kenm.KenmerkMetadata).%New() + Set Kenmerk.IsReadOnly = 0 + Set Kenmerk.IsWijzigbaar = 0 + Set Kenmerk.DataType = "Tekst" + Set Kenmerk.Multipliciteit = ##class(APPS.PM.dto.Kenm.Multipliciteit).%New() + Set Kenmerk.Multipliciteit.Minimum = 1 + Set Kenmerk.Multipliciteit.Maximum = 99 + Set Kenmerk.Naam = "Klantbeperking" + Set Kenmerk.NieuweWaardeToegelaten = 1 + Set Kenmerk.SuggereerWaarden = 0 + Set Kenmerk.VeldBreedteInTekens = 15 + Set Kenmerk.VolgNr = 3 + Do KenmerkGroep.Kenmerken.Insert(Kenmerk) + Set Service = ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New() Do Service.BewaarKenmerkGroepMetadataLijst(Lijst) + Set RepositoryManager = ##class(APPS.PM.Kenmerk.RepositoryManager).%New() + If (RepositoryManager.HeeftRepository("SST_SEL_StekkerType")) + { + Do RepositoryManager.VerwijderRepository("SST_SEL_StekkerType") + } Do ..RegistreerRepository("SST_SEL_StekkerType") Do ..RegistreerMogelijkeWaardenRepository("SST_SEL_StekkerType","StekkerType","DOM.PM.enu.SSTStekkerType")