Index: ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Mvx.cls.xml =================================================================== diff -u -r62835 -r62971 --- ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Mvx.cls.xml (.../Mvx.cls.xml) (revision 62835) +++ ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Mvx.cls.xml (.../Mvx.cls.xml) (revision 62971) @@ -90,35 +90,29 @@ Kenmerken:ECON.PM.Maatwerk.dto.MvxKenmerken,MvxKenmerken:APPS.PM.Maatwerk.dto.MVXKenmerken 1 -Uitsparing:ECON.PM.Maatwerk.dto.CommonKenmerken.Uitsparingdata.Uitsparing,Variant:DOM.PM.enu.LadeVariant +Uitsparing:ECON.PM.Maatwerk.dto.CommonKenmerken.Uitsparingdata.Uitsparing,Variant:DOM.PM.enu.LadeVariant,Toepassing:DOM.PM.enu.MVXToepassing 1 %String - Index: APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml =================================================================== diff -u -r62287 -r62971 --- APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml (.../DtoNaarKenmerkVisitor.cls.xml) (revision 62287) +++ APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml (.../DtoNaarKenmerkVisitor.cls.xml) (revision 62971) @@ -60,6 +60,14 @@ Set ..IngegevenKenmerken = DomKenmerken + Set DomKenmerken.UitsparingData.RugDeelX = MVXKenmerken.UitsparingDataBreedteX + Set DomKenmerken.UitsparingData.RugDeelM = MVXKenmerken.UitsparingDataBreedteM + Set DomKenmerken.UitsparingData.RugDeelY = MVXKenmerken.UitsparingDataBreedteY + + Set DomKenmerken.UitsparingData.UitsparingZ1 = MVXKenmerken.UitsparingDataCodeZ1 + Set DomKenmerken.UitsparingData.UitsparingZ2 = MVXKenmerken.UitsparingDataCodeZ2 + Set DomKenmerken.UitsparingData.AantalUitsparingen = MVXKenmerken.UitsparingDataAantalUitsparingen + Quit $$$OK ]]> Index: APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter.cls.xml =================================================================== diff -u -r37191 -r62971 --- APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter.cls.xml (.../IngegevenKenmerkenConverter.cls.xml) (revision 37191) +++ APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter.cls.xml (.../IngegevenKenmerkenConverter.cls.xml) (revision 62971) @@ -34,7 +34,7 @@ #dim DtoNaarKenmerkVisitor As APPS.PM.Maatwerk.impl.DtoNaarKenmerkVisitor = ##class(APPS.PM.Maatwerk.impl.DtoNaarKenmerkVisitor).%New() #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = DtoNaarKenmerkVisitor.GeefIngegevenKenmerken(IngegevenKenmerkenDto) - If (..IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken)) { + If (..IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) && (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).LegraboxPure())) { Try { Set IngegevenKenmerken.SpoelbakKenmerken = ..SpoelbakKenmerkenBepaler.BepaalSpoelbakKenmerken(IngegevenKenmerken) } Catch { Index: vhUnitTest/ECONimpl/PM/Maatwerk/LadeUitsparingHelper/GeefUitsparingCode/Test.cls.xml =================================================================== diff -u -r52935 -r62971 --- vhUnitTest/ECONimpl/PM/Maatwerk/LadeUitsparingHelper/GeefUitsparingCode/Test.cls.xml (.../Test.cls.xml) (revision 52935) +++ vhUnitTest/ECONimpl/PM/Maatwerk/LadeUitsparingHelper/GeefUitsparingCode/Test.cls.xml (.../Test.cls.xml) (revision 62971) @@ -36,6 +36,33 @@ ]]> + + + + + + + + + + + + - + Hoogte:%String,VerwachteUitsparingCode:%String 1 - + Hoogte:%String,VerwachteUitsparingCode:%String 1 + + + +Hoogte:%String,VerwachteUitsparingCode:%String +1 + + + + +Hoogte:%String,VerwachteUitsparingCode:%String +1 + + + + +Hoogte:%String,VerwachteUitsparingCode:%String +1 + Index: ECONimpl/PM/Maatwerk/LadeUitsparingHelper.cls.xml =================================================================== diff -u -r52533 -r62971 --- ECONimpl/PM/Maatwerk/LadeUitsparingHelper.cls.xml (.../LadeUitsparingHelper.cls.xml) (revision 52533) +++ ECONimpl/PM/Maatwerk/LadeUitsparingHelper.cls.xml (.../LadeUitsparingHelper.cls.xml) (revision 62971) @@ -11,7 +11,7 @@ -LadeVariant:DOM.PM.enu.LadeVariant,Vorm:%String,Hoogte:%String,Diepte:%String,Breedte:%String +LadeVariant:DOM.PM.enu.LadeVariant,Vorm:%String,Hoogte:%String,Diepte:%String,Breedte:%String,Toepassing:%String="" %String