Index: AXimpl/PM/Maatwerk/AxNaarEconConverter.cls.xml =================================================================== diff -u -r53226 -r53377 --- AXimpl/PM/Maatwerk/AxNaarEconConverter.cls.xml (.../AxNaarEconConverter.cls.xml) (revision 53226) +++ AXimpl/PM/Maatwerk/AxNaarEconConverter.cls.xml (.../AxNaarEconConverter.cls.xml) (revision 53377) @@ -28,7 +28,7 @@ #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 Name, LadeVariant As %String + #dim Name, NameInFirstCase, LadeVariant As %String While (KenmerkenIterator.HasNext()) { Set Kenmerk = KenmerkenIterator.Next() @@ -41,14 +41,15 @@ Do KenmerkenIterator.Reset() While (KenmerkenIterator.HasNext()) { Set Kenmerk = KenmerkenIterator.Next() + Set NameInFirstCase = ##class(TECH.StringUtils).ToFirstCase(Kenmerk.Name) If (LadeVariant = "TBX") { - If ((Kenmerk.Name = "Variant") || (Kenmerk.Name = "Familie")) { - Set Name = "Data.Kenmerken."_Kenmerk.Name + If ((NameInFirstCase = "Variant") || (NameInFirstCase = "Familie")) { + Set Name = "Data.Kenmerken."_NameInFirstCase } Else { - Set Name = "Data."_Kenmerk.Name + Set Name = "Data."_NameInFirstCase } } Else { - Set Name = "Data.Kenmerken."_Kenmerk.Name + Set Name = "Data.Kenmerken."_NameInFirstCase } Do EconConfiguratieArray.SetAt(Kenmerk.ValueTxt, Name) }