Index: ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml =================================================================== diff -u -r40778 -r40901 --- ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml (.../Lbx.cls.xml) (revision 40778) +++ ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml (.../Lbx.cls.xml) (revision 40901) @@ -32,7 +32,7 @@ #dim Property As %String = "" For { set Property = $order(Properties(Property)) quit:Property="" - If '(Property["UitsparingData.")&&'(Property="Familie")&&'(Property="Variant")&&'(Property["NietMeeleveren.")&&'(Property["DwarsverdelingAantal")&&'(##class(TECH.StringUtils).StartsWith(Property,"Mat")&&'(##class(TECH.StringUtils).StartsWith(Property,"Heeft"))&&'(##class(TECH.StringUtils).StartsWith(Property,"IsBinnen"))){ + If '(Property["UitsparingData.")&&'(Property="Familie")&&'(Property="Variant")&&'(Property["NietMeeleveren.")&&'(Property["NietIngegeven.")&&'(Property["DwarsverdelingAantal")&&'(##class(TECH.StringUtils).StartsWith(Property,"Mat")&&'(##class(TECH.StringUtils).StartsWith(Property,"Heeft"))&&'(##class(TECH.StringUtils).StartsWith(Property,"IsBinnen"))){ Do %code.WriteLine($$$TAB_"Set LbxKenmerken."_Property_" = Kenmerken."_Property) } } Index: vhUnitTest/ECONimpl/PM/Maatwerk/AppsConverter/ConverteerAppsNaarEcon/TestLbx.cls.xml =================================================================== diff -u --- vhUnitTest/ECONimpl/PM/Maatwerk/AppsConverter/ConverteerAppsNaarEcon/TestLbx.cls.xml (revision 0) +++ vhUnitTest/ECONimpl/PM/Maatwerk/AppsConverter/ConverteerAppsNaarEcon/TestLbx.cls.xml (revision 40901) @@ -0,0 +1,60 @@ + + + +vhUnitTest.TestCase + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +SoortLade:%String +1 + + + + + + Index: vhTest/Utils/ECON/PM/Maatwerk/dto/LbxKenmerken.cls.xml =================================================================== diff -u -r40778 -r40901 --- vhTest/Utils/ECON/PM/Maatwerk/dto/LbxKenmerken.cls.xml (.../LbxKenmerken.cls.xml) (revision 40778) +++ vhTest/Utils/ECON/PM/Maatwerk/dto/LbxKenmerken.cls.xml (.../LbxKenmerken.cls.xml) (revision 40901) @@ -26,7 +26,6 @@ Set LbxKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500() Set LbxKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M() Set LbxKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit() - Set LbxKenmerken.NietIngegeven = ##class(%ListOfDataTypes).%New() Set LbxKenmerken.Omschrijving = "" Set LbxKenmerken.OpvullijstKleur = "" Set LbxKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M() Index: ECONimpl/PM/Maatwerk/AppsConverter/AppsNaarEcon/Lbx.cls.xml =================================================================== diff -u -r40589 -r40901 --- ECONimpl/PM/Maatwerk/AppsConverter/AppsNaarEcon/Lbx.cls.xml (.../Lbx.cls.xml) (revision 40589) +++ ECONimpl/PM/Maatwerk/AppsConverter/AppsNaarEcon/Lbx.cls.xml (.../Lbx.cls.xml) (revision 40901) @@ -7,13 +7,14 @@ Kenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken ECON.PM.Maatwerk.dto.LbxKenmerken @@ -31,9 +32,15 @@ #dim Property As %String = "" For { set Property = $order(Properties(Property)) quit:Property="" - If '(Property["UitsparingData.")&&'(Property="Familie")&&'(Property="Variant")&&'(Property["NietMeeleveren.")&&'(Property["DwarsverdelingAantal")&&'(##class(TECH.StringUtils).StartsWith(Property,"Mat")){ + continue:(##class(TECH.StringUtils).Contains(Property,"UitsparingData","Familie","AantalDwarsverdelingen","VersieNr","ExplicietGekozenKenmerken","GekoppeldeIngegevenKenmerken")) + continue:(##class(TECH.StringUtils).StartsWith(Property,"Mat","Niet")) + + if $listget(Properties(Property),1)="%Library.Boolean" { + Do %code.WriteLine($$$TAB_"Set LbxKenmerken."_Property_" = $select(Kenmerken."_Property_":""true"",1:""false"")") + } else { Do %code.WriteLine($$$TAB_"Set LbxKenmerken."_Property_" = Kenmerken."_Property) } + } Do %code.WriteLine($$$TAB_"Quit LbxKenmerken") @@ -43,29 +50,30 @@ - + 1 - + 1 - + 1 Index: vhTest/Utils/APPS/PM/Maatwerk/dto/LBXKenmerken.cls.xml =================================================================== diff -u -r40770 -r40901 --- vhTest/Utils/APPS/PM/Maatwerk/dto/LBXKenmerken.cls.xml (.../LBXKenmerken.cls.xml) (revision 40770) +++ vhTest/Utils/APPS/PM/Maatwerk/dto/LBXKenmerken.cls.xml (.../LBXKenmerken.cls.xml) (revision 40901) @@ -21,7 +21,6 @@ Set LBXKenmerken.CorpusBreedte = 600 Set LBXKenmerken.CorpusWandDikte = 0 Set LBXKenmerken.Draagkracht = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40() - Set LBXKenmerken.ExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New() Set LBXKenmerken.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO() Set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION() Set LBXKenmerken.HeeftDwarsverdeling = $$$False @@ -34,6 +33,7 @@ Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500() Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M() Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit() + Set LBXKenmerken.NietIngegeven = ##class(%ListOfDataTypes).%New() Set LBXKenmerken.OpvullijstKleur = "" Set LBXKenmerken.ProductieWijze = "" Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M() Index: ECON/PM/Maatwerk/dto/LbxKenmerken.cls.xml =================================================================== diff -u -r40374 -r40901 --- ECON/PM/Maatwerk/dto/LbxKenmerken.cls.xml (.../LbxKenmerken.cls.xml) (revision 40374) +++ ECON/PM/Maatwerk/dto/LbxKenmerken.cls.xml (.../LbxKenmerken.cls.xml) (revision 40901) @@ -99,11 +99,6 @@ - -TECH.String - - - ECON.PM.Maatwerk.dto.LbxKenmerken.NietMeeleveren