Index: vhUnitTest/ECONimpl/PM/Maatwerk/AppsConverter/ConverteerEconNaarApps/TestTax.cls.xml
===================================================================
diff -u -r40723 -r40750
--- vhUnitTest/ECONimpl/PM/Maatwerk/AppsConverter/ConverteerEconNaarApps/TestTax.cls.xml (.../TestTax.cls.xml) (revision 40723)
+++ vhUnitTest/ECONimpl/PM/Maatwerk/AppsConverter/ConverteerEconNaarApps/TestTax.cls.xml (.../TestTax.cls.xml) (revision 40750)
@@ -13,6 +13,11 @@
]]>
+
+
+
+
SoortLade:%String
1
Index: ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Tax.cls.xml
===================================================================
diff -u -r40717 -r40750
--- ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Tax.cls.xml (.../Tax.cls.xml) (revision 40717)
+++ ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Tax.cls.xml (.../Tax.cls.xml) (revision 40750)
@@ -10,6 +10,7 @@
Set TaxKenmerken = ##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%New()
Set TaxKenmerken = ..ConverteerGegenereerdeProperties(Kenmerken)
Do ..ConverteerBooleans(Kenmerken, .TaxKenmerken)
+ Do ..ConverteerMat(Kenmerken, .TaxKenmerken)
Set TaxKenmerken.GlijderType = Kenmerken.GeleiderType
Set TaxKenmerken.Uittrekbaarheid = "V"
@@ -41,6 +42,35 @@
]]>
+
+
+1
+
+
+
1
Index: vhUnitTest/ECONimpl/PM/Maatwerk/AppsConverter/ConverteerAppsNaarEcon/TestTax.cls.xml
===================================================================
diff -u -r40723 -r40750
--- vhUnitTest/ECONimpl/PM/Maatwerk/AppsConverter/ConverteerAppsNaarEcon/TestTax.cls.xml (.../TestTax.cls.xml) (revision 40723)
+++ vhUnitTest/ECONimpl/PM/Maatwerk/AppsConverter/ConverteerAppsNaarEcon/TestTax.cls.xml (.../TestTax.cls.xml) (revision 40750)
@@ -13,6 +13,11 @@
]]>
+
+
+
+
SoortLade:%String
1
Index: vhTest/Utils/APPS/PM/Maatwerk/dto/TAORKenmerken.cls.xml
===================================================================
diff -u -r40736 -r40750
--- vhTest/Utils/APPS/PM/Maatwerk/dto/TAORKenmerken.cls.xml (.../TAORKenmerken.cls.xml) (revision 40736)
+++ vhTest/Utils/APPS/PM/Maatwerk/dto/TAORKenmerken.cls.xml (.../TAORKenmerken.cls.xml) (revision 40750)
@@ -89,7 +89,10 @@
Set MATKenmerken = ##class(APPS.PM.Maatwerk.dto.MATKenmerken).%New()
Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
Set MATKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberWit()
- Do TAORKenmerken.GekoppeldeIngegevenKenmerken.Insert(MATKenmerken)
+ Set GekoppeldIngegevenKenmerk = ##class(APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk).%New()
+ Set GekoppeldIngegevenKenmerk.IngegevenKenmerken = MATKenmerken
+ Set GekoppeldIngegevenKenmerk.Key = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).Mat()
+ Do TAORKenmerken.GekoppeldeIngegevenKenmerken.Insert(GekoppeldIngegevenKenmerk)
Set TAORKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.TAOROpvullijstKleur).PlatinaZilverGrijs()
Set TAORKenmerken.RugHoogte = ##class(DOM.PM.enu.TAORRugHoogte).N()
Index: ECONimpl/PM/Maatwerk/AppsConverter/AppsNaarEcon/Tax.cls.xml
===================================================================
diff -u -r40732 -r40750
--- ECONimpl/PM/Maatwerk/AppsConverter/AppsNaarEcon/Tax.cls.xml (.../Tax.cls.xml) (revision 40732)
+++ ECONimpl/PM/Maatwerk/AppsConverter/AppsNaarEcon/Tax.cls.xml (.../Tax.cls.xml) (revision 40750)
@@ -14,6 +14,7 @@
Set TaxKenmerken.Toepassing = "L"
Set TaxKenmerken.Variant = "TAX"
Do ..ConverteerBooleans(Kenmerken, .TaxKenmerken)
+ Do ..ConverteerMat(Kenmerken, .TaxKenmerken)
Quit TaxKenmerken
]]>
@@ -31,7 +32,7 @@
#dim Property As %String = ""
For { set Property = $order(Properties(Property)) quit:Property=""
- If '(Property["ExplicietGekozenKenmerken")&&'(Property["GekoppeldeIngegevenKenmerken")&&'(Property["GlijderType")&&'(Property["NietIngegeven")&&'(Property["NietMeeleveren")&&'(Property["Omschrijving")&&'(Property["Uittrekbaarheid")&&'(Property["Validator")&&'(Property["VersieNr"){
+ If '(Property["ExplicietGekozenKenmerken")&&'(Property["GekoppeldeIngegevenKenmerken")&&'(Property["GlijderType")&&'(Property["NietIngegeven")&&'(Property["NietMeeleveren")&&'(Property["Omschrijving")&&'(Property["Uittrekbaarheid")&&'(Property["Validator")&&'(Property["VersieNr")&&'(##class(TECH.StringUtils).StartsWith(Property,"Mat")){
Do %code.WriteLine($$$TAB_"Set TaxKenmerken."_Property_" = Kenmerken."_Property)
}
}
@@ -42,6 +43,30 @@
]]>
+
+
+1
+
+
+
1