Index: WSimpl/Vhisie4/Winkelkar/EconConfiguratieConverter.cls.xml =================================================================== diff -u -r40514 -r40732 --- WSimpl/Vhisie4/Winkelkar/EconConfiguratieConverter.cls.xml (.../EconConfiguratieConverter.cls.xml) (revision 40514) +++ WSimpl/Vhisie4/Winkelkar/EconConfiguratieConverter.cls.xml (.../EconConfiguratieConverter.cls.xml) (revision 40732) @@ -55,6 +55,8 @@ Set EconConfiguratieAsObject.IngegevenKenmerken = ##class(ECON.PM.Maatwerk.dto.TbxKenmerken).%New() } ElseIf EconConfiguratie.GetAt("Data.Kenmerken.Variant") [ "LBX"{ Set EconConfiguratieAsObject.IngegevenKenmerken = ##class(ECON.PM.Maatwerk.dto.LbxKenmerken).%New() + } ElseIf EconConfiguratie.GetAt("Data.Kenmerken.Variant") [ "TAX"{ + Set EconConfiguratieAsObject.IngegevenKenmerken = ##class(ECON.PM.Maatwerk.dto.TaxKenmerken).%New() } Else { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Onbekende LadeVariant")) } Index: vhTest/Utils/ECON/PM/Maatwerk/dto/TaxKenmerken.cls.xml =================================================================== diff -u -r40723 -r40732 --- vhTest/Utils/ECON/PM/Maatwerk/dto/TaxKenmerken.cls.xml (.../TaxKenmerken.cls.xml) (revision 40723) +++ vhTest/Utils/ECON/PM/Maatwerk/dto/TaxKenmerken.cls.xml (.../TaxKenmerken.cls.xml) (revision 40732) @@ -33,7 +33,7 @@ Set TaxKenmerken.RugHoogte = ##class(DOM.PM.enu.TAORRugHoogte).M() Set TaxKenmerken.SpecialType = ##class(DOM.PM.enu.SpecialType).Normaal() Set TaxKenmerken.Toepassing = "L" - Set TaxKenmerken.Variant = ##class(DOM.PM.enu.Variant).Taorbox() + Set TaxKenmerken.Variant = "TAX" Set TaxKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1() Quit TaxKenmerken @@ -50,6 +50,38 @@ Quit TaxKenmerken ]]> + + +1 +ECON.PM.Maatwerk.dto.TaxKenmerken + + Index: ECONimpl/PM/Maatwerk/AppsConverter.cls.xml =================================================================== diff -u -r40590 -r40732 --- ECONimpl/PM/Maatwerk/AppsConverter.cls.xml (.../AppsConverter.cls.xml) (revision 40590) +++ ECONimpl/PM/Maatwerk/AppsConverter.cls.xml (.../AppsConverter.cls.xml) (revision 40732) @@ -38,7 +38,7 @@ Set IngegevenKenmerken.LadeVariant = "TBX_Antaro" } ElseIf Kenmerken.Variant [ "LBX"{ Set IngegevenKenmerken = ##class(ECONimpl.PM.Maatwerk.AppsConverter.EconNaarApps.Lbx).%New().Converteer(Kenmerken) - } ElseIf Kenmerken.Variant [ "TAOR"{ + } ElseIf Kenmerken.Variant [ "TAX"{ Set IngegevenKenmerken = ##class(ECONimpl.PM.Maatwerk.AppsConverter.EconNaarApps.Tax).%New().Converteer(Kenmerken) } Quit IngegevenKenmerken Index: ECONimpl/PM/Maatwerk/AppsConverter/AppsNaarEcon/Tax.cls.xml =================================================================== diff -u -r40717 -r40732 --- ECONimpl/PM/Maatwerk/AppsConverter/AppsNaarEcon/Tax.cls.xml (.../Tax.cls.xml) (revision 40717) +++ ECONimpl/PM/Maatwerk/AppsConverter/AppsNaarEcon/Tax.cls.xml (.../Tax.cls.xml) (revision 40732) @@ -12,7 +12,7 @@ Set TaxKenmerken.GeleiderType = Kenmerken.GlijderType Set TaxKenmerken.Toepassing = "L" - Set TaxKenmerken.Variant = "TAOR" + Set TaxKenmerken.Variant = "TAX" Do ..ConverteerBooleans(Kenmerken, .TaxKenmerken) Quit TaxKenmerken