Index: APPS/PM/Maatwerk/impl/KenmerkenValidator/LBX.cls.xml =================================================================== diff -u -r45729 -r45730 --- APPS/PM/Maatwerk/impl/KenmerkenValidator/LBX.cls.xml (.../LBX.cls.xml) (revision 45729) +++ APPS/PM/Maatwerk/impl/KenmerkenValidator/LBX.cls.xml (.../LBX.cls.xml) (revision 45730) @@ -18,11 +18,9 @@ Do:(LbxKenmerken.IsBinnenlade = "") OngeldigeProperties.Insert("IsBinnenlade") Do:(LbxKenmerken.RugWandMateriaal = "") OngeldigeProperties.Insert("RugWandMateriaal") - If '( ('LbxKenmerken.IsBinnenlade) - || ( (LbxKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()) && (LbxKenmerken.VoorWandTypeVanCBinnenlade '= "") ) - || ( (LbxKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()) && (LbxKenmerken.VoorWandTypeVanMBinnenlade '= "" )) - ){ - Do OngeldigeProperties.Insert("Binnenlade, C of M niet met VoorWandType ingevuld.") + If (LbxKenmerken.IsBinnenlade) { + Do:((LbxKenmerken.LadeHoogte = ..Enum.LadeHoogte.C) && (LbxKenmerken.VoorWandTypeVanCBinnenlade = "")) OngeldigeProperties.Insert("VoorWandTypeVanCBinnenlade") + Do:((LbxKenmerken.LadeHoogte = ..Enum.LadeHoogte.M) && (LbxKenmerken.VoorWandTypeVanMBinnenlade = "")) OngeldigeProperties.Insert("VoorWandTypeVanMBinnenlade") } Do:(LbxKenmerken.HeeftOpvullijstLinks = "") OngeldigeProperties.Insert("HeeftOpvullijstLinks") Index: vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenValidator/LBX/Test.cls.xml =================================================================== diff -u -r45729 -r45730 --- vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenValidator/LBX/Test.cls.xml (.../Test.cls.xml) (revision 45729) +++ vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenValidator/LBX/Test.cls.xml (.../Test.cls.xml) (revision 45730) @@ -67,7 +67,7 @@ Set LbxKenmerken.VoorWandTypeVanCBinnenlade = "" #dim VerwachteOngeldigeProperties As %ListOfDataTypes = ##class(%ListOfDataTypes).%New() - Do VerwachteOngeldigeProperties.Insert("Binnenlade, C of M niet met VoorWandType ingevuld.") + Do VerwachteOngeldigeProperties.Insert("VoorWandTypeVanCBinnenlade") Do ..ValideerKenmerken(LbxKenmerken, VerwachteOngeldigeProperties) ]]> @@ -80,7 +80,7 @@ Set LbxKenmerken.VoorWandTypeVanMBinnenlade = "" #dim VerwachteOngeldigeProperties As %ListOfDataTypes = ##class(%ListOfDataTypes).%New() - Do VerwachteOngeldigeProperties.Insert("Binnenlade, C of M niet met VoorWandType ingevuld.") + Do VerwachteOngeldigeProperties.Insert("VoorWandTypeVanMBinnenlade") Do ..ValideerKenmerken(LbxKenmerken, VerwachteOngeldigeProperties) ]]>