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