Index: AXtools/InterfaceObjectGenerator.cls.xml =================================================================== diff -u -r42400 -r44284 --- AXtools/InterfaceObjectGenerator.cls.xml (.../InterfaceObjectGenerator.cls.xml) (revision 42400) +++ AXtools/InterfaceObjectGenerator.cls.xml (.../InterfaceObjectGenerator.cls.xml) (revision 44284) @@ -165,14 +165,39 @@ set pd = ##class(%Dictionary.PropertyDefinition).%New() set pd.SequenceNumber = $increment(SequenceNumber) set pd.parent = cd - set pd.Name = "Property" + set pd.Name = "MessagePart" set pd.Type = ..Prefix_".MessageParts.Classname" do pd.Parameters.SetAt(1,"REFELEMENTQUALIFIED") do pd.Parameters.SetAt("http://schemas.microsoft.com/dynamics/2011/01/documents/Message","REFNAMESPACE") do pd.Parameters.SetAt("MessageParts","XMLNAME") do pd.Parameters.SetAt("ELEMENT","XMLPROJECTION") do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(pd.%Save()) + + set pd = ##class(%Dictionary.PropertyDefinition).%New() + set pd.SequenceNumber = $increment(SequenceNumber) + set pd.parent = cd + set pd.Name = "EntityKeyList" + set pd.Type = "AXif.Common.EntityKey.MessageParts.EntityKeyList" + do pd.Parameters.SetAt(1,"REFELEMENTQUALIFIED") + do pd.Parameters.SetAt("http://schemas.microsoft.com/dynamics/2006/02/documents/EntityKeyList","REFNAMESPACE") + do pd.Parameters.SetAt("EntityKeyList","XMLNAME") + do pd.Parameters.SetAt("ELEMENT","XMLPROJECTION") + do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(pd.%Save()) + set pd = ##class(%Dictionary.PropertyDefinition).%New() + set pd.SequenceNumber = $increment(SequenceNumber) + set pd.parent = cd + set pd.Name = "Fault" + set pd.Type = "AXif.Common.Fault.MessageParts.AxdFault" + do pd.Parameters.SetAt(1,"REFELEMENTQUALIFIED") + do pd.Parameters.SetAt("http://schemas.microsoft.com/dynamics/2008/01/documents/Fault","REFNAMESPACE") + do pd.Parameters.SetAt("Fault","XMLNAME") + do pd.Parameters.SetAt("ELEMENT","XMLPROJECTION") + do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(pd.%Save()) + + + + do ..StoreClassDefintion(cd) ]]>