Index: APPS/PM/KenmerkenService.cls.xml =================================================================== diff -u -r2002 -r2064 --- APPS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 2002) +++ APPS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 2064) @@ -265,8 +265,8 @@ Set KenmerkMetadata.Naam = RS.Get("Kenmerk") Set KenmerkMetadata.NieuweWaardeToegelaten = RS.Get("NieuweWaardeToegelaten") If (KenmerkMetadata.NieuweWaardeToegelaten = "") Set KenmerkMetadata.NieuweWaardeToegelaten = "0" - Set KenmerkMetadata.SuggereerGeenWaarden = RS.Get("SuggereerGeenWaarden") - If (KenmerkMetadata.SuggereerGeenWaarden = "") Set KenmerkMetadata.SuggereerGeenWaarden = "0" + Set KenmerkMetadata.SuggereerWaarden = RS.Get("SuggereerWaarden") + If (KenmerkMetadata.SuggereerWaarden = "") Set KenmerkMetadata.SuggereerWaarden = "0" Set KenmerkMetadata.IsReadOnly = RS.Get("IsReadOnly") If (KenmerkMetadata.IsReadOnly = "") Set KenmerkMetadata.IsReadOnly = "0" @@ -286,7 +286,7 @@ /// Voor read-only kenmerken moet geen lijst van de gebruikte waarden opgezocht en doorgegeven worden aan de GUI. /// 2) Bovendien een flag "gebruikte waarden niet suggereren" voorzien. Indien die opstaat, moeten we ook geen lijst van de gebruikte waarden opzoeken en doorgeven aan de GUI. - If ('KenmerkMetadata.SuggereerGeenWaarden) + If (KenmerkMetadata.SuggereerWaarden) { /// WaardenSortering nagaan en als mogelijkheden invullen Set WaardenSorteringLijst = $ListBuild("WaardenSortering","WaardenSortering2","WaardenSortering3") Index: APPS/PM/dto/Kenm/KenmerkMetadata.cls.xml =================================================================== diff -u -r1112 -r2064 --- APPS/PM/dto/Kenm/KenmerkMetadata.cls.xml (.../KenmerkMetadata.cls.xml) (revision 1112) +++ APPS/PM/dto/Kenm/KenmerkMetadata.cls.xml (.../KenmerkMetadata.cls.xml) (revision 2064) @@ -1,8 +1,6 @@ - - 1 %RegisteredObject,%XML.Adaptor 0 @@ -45,9 +43,9 @@ %Boolean - + -Indien die opstaat, moeten we ook geen lijst van de gebruikte waarden opzoeken en doorgeven aan de GUI. +Indien die niet opstaat, moeten we ook geen lijst van de gebruikte waarden opzoeken en doorgeven aan de GUI. %Boolean Index: vhDeploy/CSC/Deploy20110914x1059.cls.xml =================================================================== diff -u --- vhDeploy/CSC/Deploy20110914x1059.cls.xml (revision 0) +++ vhDeploy/CSC/Deploy20110914x1059.cls.xml (revision 2064) @@ -0,0 +1,170 @@ + + + +1 +svn.Deploy +0 + + +1 + + + + Index: Prod/Kenmerk/MetaDefinitie.cls.xml =================================================================== diff -u -r1074 -r2064 --- Prod/Kenmerk/MetaDefinitie.cls.xml (.../MetaDefinitie.cls.xml) (revision 1074) +++ Prod/Kenmerk/MetaDefinitie.cls.xml (.../MetaDefinitie.cls.xml) (revision 2064) @@ -188,9 +188,9 @@ 0 - + -Indien die opstaat, moeten we ook geen lijst van de gebruikte waarden opzoeken en doorgeven aan de GUI. +Indien deze niet opstaat, moeten we ook geen lijst van de gebruikte waarden opzoeken en doorgeven aan de GUI. %Boolean 0 @@ -490,12 +490,12 @@ SELECT ID,Groep,Decimalen,DisableWhen,Eenheid,Format, Intern,Kenmerk,LangtekstTransform,LangtekstVolgNr, Lengte,MaxValue,MinValue,Multiple,MultipleDisplay, - Omschrijving,Verplicht,VolgNr,WaardenSortering,ToelatenEC,SubGroep,SortType,NieuweWaardeToegelaten,IsReadOnly,SuggereerGeenWaarden,WaardenSortering2,WaardenSortering3 + Omschrijving,Verplicht,VolgNr,WaardenSortering,ToelatenEC,SubGroep,SortType,NieuweWaardeToegelaten,IsReadOnly,SuggereerWaarden,WaardenSortering2,WaardenSortering3 FROM Prod_Kenmerk.MetaDefinitie WHERE (Groep=:paGroep) ORDER BY VolgNr - + @@ -602,12 +602,9 @@ ReadOnly - + SuggereerWaarden - -SuggereerGeenWaarden - IsReadOnly Index: vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml =================================================================== diff -u -r1775 -r2064 --- vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml (.../TestKenmerkenService.cls.xml) (revision 1775) +++ vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml (.../TestKenmerkenService.cls.xml) (revision 2064) @@ -216,14 +216,14 @@ Do $$$AssertTrue(KenmerkMeta.Mogelijkheden.Find("TIPS_Brooddoos_zonder_toebehoor") '= "","Tip 'TIPS_Brooddoos_zonder_toebehoor' is gevonden als mogelijkheid bij BOWeten") Do $$$AssertTrue('KenmerkMeta.IsReadOnly,"BOWeten is niet Read Only.") Do $$$AssertTrue(KenmerkMeta.NieuweWaardeToegelaten,"BOWeten mag nieuwe waarden hebben.") - Do $$$AssertTrue('KenmerkMeta.SuggereerGeenWaarden,"BOWeten mag waarden suggereren.") + Do $$$AssertTrue(KenmerkMeta.SuggereerWaarden,"BOWeten mag waarden suggereren.") } If (KenmerkMeta.Naam = "ProductSorteerSleutel"){ Do $$$AssertTrue(KenmerkMeta.Mogelijkheden.Count()=0,"ProductSorteerSleutel heeft geen mogelijkheden.") Do $$$AssertTrue(KenmerkMeta.IsReadOnly,"ProductSorteerSleutel is Read Only.") Do $$$AssertTrue('KenmerkMeta.NieuweWaardeToegelaten,"ProductSorteerSleutel mag nieuwe waarden hebben.") - Do $$$AssertTrue(KenmerkMeta.SuggereerGeenWaarden,"ProductSorteerSleutel mag waarden suggereren.") + Do $$$AssertFalse(KenmerkMeta.SuggereerWaarden,"ProductSorteerSleutel mag waarden suggereren.") } } ]]>