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