Index: DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml =================================================================== diff -u -r38561 -r38564 --- DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml (.../IKCanonischeWaardeGenerator.cls.xml) (revision 38561) +++ DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml (.../IKCanonischeWaardeGenerator.cls.xml) (revision 38564) @@ -61,7 +61,7 @@ _ ";" _ TBXKenmerken.FrontHouderKleur _ ";" _ TBXKenmerken.FrontOndersteuningAantal _ ";" _ TBXKenmerken.FrontOndersteuningType - _ ";" _ TBXKenmerken.HangmapBoringen + _ ";" _ TBXKenmerken.HangmapBoringAantal _ ";" _ TBXKenmerken.Klasse _ ";" _ TBXKenmerken.HeeftOpvullijstLinks _ ";" _ TBXKenmerken.HeeftOpvullijstRechts Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml =================================================================== diff -u -r38561 -r38564 --- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38561) +++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38564) @@ -28,7 +28,7 @@ Set TBXKenmerken.FrontHouderKleur = "SW" Set TBXKenmerken.FrontOndersteuningAantal = 1 Set TBXKenmerken.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontSteun() - Set TBXKenmerken.HangmapBoringen = 0 + Set TBXKenmerken.HangmapBoringAantal = 0 Set TBXKenmerken.Klasse = ##class(DOM.PM.enu.TBXKlas).Spoelbak() Set TBXKenmerken.HeeftOpvullijstLinks = 1 Set TBXKenmerken.HeeftOpvullijstRechts = 0 Index: APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml =================================================================== diff -u -r38561 -r38564 --- APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml (.../DtoNaarKenmerkVisitor.cls.xml) (revision 38561) +++ APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml (.../DtoNaarKenmerkVisitor.cls.xml) (revision 38564) @@ -87,7 +87,7 @@ Set ..IngegevenKenmerken.FrontHouderKleur = TBXKenmerken.FrontHouderKleur Set ..IngegevenKenmerken.FrontOndersteuningAantal = TBXKenmerken.FrontOndersteuningAantal Set ..IngegevenKenmerken.FrontOndersteuningType = TBXKenmerken.FrontOndersteuningType - Set ..IngegevenKenmerken.HangmapBoringen = TBXKenmerken.HangmapBoringen + Set ..IngegevenKenmerken.HangmapBoringAantal = TBXKenmerken.HangmapBoringen Set ..IngegevenKenmerken.HeeftOpvullijstLinks = TBXKenmerken.HeeftOpvullijstLinks Set ..IngegevenKenmerken.HeeftOpvullijstRechts = TBXKenmerken.HeeftOpvullijstRechts Set ..IngegevenKenmerken.Klasse = TBXKenmerken.Klasse Index: DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml =================================================================== diff -u -r38561 -r38564 --- DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38561) +++ DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38564) @@ -64,7 +64,7 @@ DOM.PM.enu.TBXFrontOndersteuningType - + %Integer @@ -267,7 +267,7 @@ Set ..HeeftOpvullijstRechts = 0 Set ..Antislipmat = "0" Set ..FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontSteun() - Set ..HangmapBoringen = 0 + Set ..HangmapBoringAantal = 0 Set ..DwarsverdelingAantal = ##class(DOM.PM.enu.TBXDwarsverdeling).Zonder() Set ..RugMateriaal = ##class(DOM.PM.enu.TBXRugMateriaal).Hout() Set ..Verpakking = ##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen() ; Stuk @@ -646,7 +646,7 @@ FrontOndersteuningType -HangmapBoringen +HangmapBoringAantal CorpusBinnenbreedte Index: APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml =================================================================== diff -u -r38563 -r38564 --- APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 38563) +++ APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 38564) @@ -63,8 +63,8 @@ Do ..Controleer(TBXKenmerken.FrontOndersteuningType,Product.GeefFrontOndersteuningType(),"FrontOndersteuningType", ErrorLijst) Do ..IsValid(TBXKenmerken.FrontOndersteuningType,"DOM.PM.enu.TBXFrontOndersteuningType", ErrorLijst) - Set TBXKenmerken.HangmapBoringen = Product.GeefAantalHangmappen() - Do ..Controleer(TBXKenmerken.HangmapBoringen,Product.GeefAantalHangmappen(),"HangmapBoringen", ErrorLijst) + Set TBXKenmerken.HangmapBoringAantal = Product.GeefAantalHangmappen() + Do ..Controleer(TBXKenmerken.HangmapBoringAantal,Product.GeefAantalHangmappen(),"HangmapBoringen", ErrorLijst) Set TBXKenmerken.HeeftOpvullijstLinks = Product.BevatOpvullijstLinks() If (TBXKenmerken.HeeftOpvullijstLinks = "") { Do ErrorLijst.Insert("HeeftOpvullijstLinks niet ingevuld") }