Index: AXimpl/PM/Maatwerk/AxNaarEconConverter.cls.xml
===================================================================
diff -u -r56887 -r57328
--- AXimpl/PM/Maatwerk/AxNaarEconConverter.cls.xml (.../AxNaarEconConverter.cls.xml) (revision 56887)
+++ AXimpl/PM/Maatwerk/AxNaarEconConverter.cls.xml (.../AxNaarEconConverter.cls.xml) (revision 57328)
@@ -28,103 +28,16 @@
#dim EconConfiguratieArray As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
#dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Kenmerken)
#dim Kenmerk As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute
- #dim KenmerkInEconFormaat, LadeVariant As %String
- Set LadeVariant = ..BepaalLadeVariant(KenmerkenIterator)
-
Do KenmerkenIterator.Reset()
While (KenmerkenIterator.HasNext()) {
Set Kenmerk = KenmerkenIterator.Next()
-
- If (##class(TECH.StringUtils).Contains(Kenmerk.Name, "_")) {
- Set KenmerkInEconFormaat = ..GeefKenmerkInEconFormaatIndienUnderscoreAanwezig(Kenmerk.Name)
- } Else {
- Set KenmerkInEconFormaat = ##class(TECH.StringUtils).ToFirstCase(Kenmerk.Name)
- }
-
- Do EconConfiguratieArray.SetAt(Kenmerk.ValueTxt, "Data.Kenmerken." _ KenmerkInEconFormaat)
+ Do EconConfiguratieArray.SetAt(Kenmerk.ValueTxt, Kenmerk.Name)
}
- Do EconConfiguratieArray.SetAt("true", "Data.Lijn.Isgeldig")
-
Quit ..EconConfiguratieConverter.ConvertEconConfiguratieToObject(EconConfiguratieArray)
]]>
-
-
-KenmerkenIterator:TECH.Iterator
-1
-%String
-
-
-
-
-Name:%String
-1
-
-
-
-
-Name:%String
-1
-
-
-
-
-Name:%String
-1
-
-
Index: vhTest/Utils/AXimpl/PM/Maatwerk/TbxKenmerken.cls.xml
===================================================================
diff -u -r56327 -r57328
--- vhTest/Utils/AXimpl/PM/Maatwerk/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 56327)
+++ vhTest/Utils/AXimpl/PM/Maatwerk/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 57328)
@@ -16,39 +16,39 @@
@@ -226,8 +226,8 @@
TbxKenmerken:%ListOfObjects
1
@@ -262,18 +262,19 @@
1
@@ -130,28 +130,28 @@
#dim RugHoogte As DOM.PM.enu.TAORRugHoogte = ##class(DOM.PM.enu.TAORRugHoogte).M()
#dim RugWandMateriaal As %String = "Hout"
- Do ..VoegToeKenmerk("CorpusBreedte", "674", TaxKenmerken)
+ Do ..VoegToeKenmerk("Corpusbreedte", "674", TaxKenmerken)
Do ..VoegToeKenmerk("Toepassing", ##class(DOM.PM.enu.TAORToepassing).Sifon(), TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_UitsparingAantal", ##class(DOM.PM.enu.AantalUitsparingen).Enkel(), TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_M_Breedte", "0", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_M_Hoogte", "", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_M_Materiaal", "", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_X_Breedte", "205", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_X_Hoogte", RugHoogte, TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_X_Materiaal", RugWandMateriaal, TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Y_Breedte", "195", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Y_Hoogte", RugHoogte, TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Y_Materiaal", RugWandMateriaal, TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z1_Breedte", "274", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z1_Diepte", "250", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z1_Hoogte", RugHoogte, TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z1_Materiaal", RugWandMateriaal, TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z1_Vorm", "Recht", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z2_Breedte", "0", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z2_Diepte", "0", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z2_Hoogte", "", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z2_Materiaal", "", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z2_Vorm", "", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Uitsparingaantal", ##class(DOM.PM.enu.AantalUitsparingen).Enkel(), TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.M.Breedte", "0", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.M.Hoogte", "", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.M.Materiaal", "", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.X.Breedte", "205", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.X.Hoogte", RugHoogte, TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.X.Materiaal", RugWandMateriaal, TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Y.Breedte", "195", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Y.Hoogte", RugHoogte, TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Y.Materiaal", RugWandMateriaal, TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z1.Breedte", "274", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z1.Diepte", "250", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z1.Hoogte", RugHoogte, TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z1.Materiaal", RugWandMateriaal, TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z1.Vorm", "Recht", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z2.Breedte", "0", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z2.Diepte", "0", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z2.Hoogte", "", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z2.Materiaal", "", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z2.Vorm", "", TaxKenmerken)
Do ..ZetDefaultNietMeeleverenKenmerken(TaxKenmerken)
@@ -168,30 +168,30 @@
#dim RugWandMateriaal As %String = "Hout"
Do ..VoegToeKenmerk("Toepassing", ##class(DOM.PM.enu.TAORToepassing).Sifon(), TaxKenmerken)
- Do ..VoegToeKenmerk("LadeHoogte", ##class(DOM.PM.enu.TAORLadeHoogte).C(), TaxKenmerken)
- Do ..VoegToeKenmerk("RugHoogte", RugHoogte, TaxKenmerken)
- Do ..VoegToeKenmerk("CorpusBreedte", "958", TaxKenmerken)
+ Do ..VoegToeKenmerk("Ladehoogte", ##class(DOM.PM.enu.TAORLadeHoogte).C(), TaxKenmerken)
+ Do ..VoegToeKenmerk("Rughoogte", RugHoogte, TaxKenmerken)
+ Do ..VoegToeKenmerk("Corpusbreedte", "958", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_UitsparingAantal", ##class(DOM.PM.enu.AantalUitsparingen).Dubbel(), TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_M_Breedte", "160", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_M_Hoogte", RugHoogte, TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_M_Materiaal", RugWandMateriaal, TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_X_Breedte", "210", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_X_Hoogte", RugHoogte, TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_X_Materiaal", RugWandMateriaal, TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Y_Breedte", "190", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Y_Hoogte", RugHoogte, TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Y_Materiaal", RugWandMateriaal, TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z1_Breedte", "274", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z1_Diepte", "300", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z1_Hoogte", RugHoogte, TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z1_Materiaal", RugWandMateriaal, TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z1_Vorm", "Recht", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z2_Breedte", "124", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z2_Diepte", "300", TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z2_Hoogte", RugHoogte, TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z2_Materiaal", RugWandMateriaal, TaxKenmerken)
- Do ..VoegToeKenmerk("UitsparingData_Z2_Vorm", "Recht", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Uitsparingaantal", ##class(DOM.PM.enu.AantalUitsparingen).Dubbel(), TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.M.Breedte", "160", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.M.Hoogte", RugHoogte, TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.M.Materiaal", RugWandMateriaal, TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.X.Breedte", "210", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.X.Hoogte", RugHoogte, TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.X.Materiaal", RugWandMateriaal, TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Y.Breedte", "190", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Y.Hoogte", RugHoogte, TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Y.Materiaal", RugWandMateriaal, TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z1.Breedte", "274", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z1.Diepte", "300", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z1.Hoogte", RugHoogte, TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z1.Materiaal", RugWandMateriaal, TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z1.Vorm", "Recht", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z2.Breedte", "124", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z2.Diepte", "300", TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z2.Hoogte", RugHoogte, TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z2.Materiaal", RugWandMateriaal, TaxKenmerken)
+ Do ..VoegToeKenmerk("Uitsparingdata.Z2.Vorm", "Recht", TaxKenmerken)
Do ..ZetDefaultNietMeeleverenKenmerken(TaxKenmerken)
@@ -204,16 +204,16 @@
TaxKenmerken:%ListOfObjects
1
@@ -223,18 +223,19 @@
1
@@ -224,20 +224,20 @@
LbxKenmerken:%ListOfObjects
1
@@ -247,18 +247,19 @@
1