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