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