Index: AXtools/InterfaceObjectGenerator.cls.xml
===================================================================
diff -u
--- AXtools/InterfaceObjectGenerator.cls.xml	(revision 0)
+++ AXtools/InterfaceObjectGenerator.cls.xml	(revision 42155)
@@ -0,0 +1,211 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXtools.InterfaceObjectGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="svnHelper">
+<Type>svn.Helper</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Prefix">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..svnHelper = ##class(svn.Helper).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>RootPath:%String,SubPath:%String</FormalSpec>
+<Implementation><![CDATA[
+	set ..Prefix = "AXif."_RootPath_"."_SubPath
+	
+	do ..GenerateEnvelope(RootPath,SubPath)
+	do ..GenerateHeader(RootPath,SubPath)
+	do ..GenerateBody(RootPath,SubPath)
+	do ..GenerateMessageParts(RootPath,SubPath)
+]]></Implementation>
+</Method>
+
+<Method name="GenerateEnvelope">
+<FormalSpec>RootPath:%String,SubPath:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Classname As %String = ..Prefix_".Envelope"
+	
+	#dim cd As %Dictionary.ClassDefinition = ..CreateClassDefinition(Classname)
+
+	do ..AddParameter(cd,"XMLNAME","Envelope")
+	do ..AddParameter(cd,"XMLSEQUENCE","0")
+	
+	set pd = ##class(%Dictionary.PropertyDefinition).%New()
+	set pd.parent = cd
+	set pd.Name = "Header"
+	set pd.Type = ..Prefix_".Header"
+	do pd.Parameters.SetAt("Header","XMLNAME")
+	do pd.Parameters.SetAt("ELEMENT","XMLPROJECTION")
+	do pd.%Save()
+	
+	set pd = ##class(%Dictionary.PropertyDefinition).%New()
+	set pd.parent = cd
+	set pd.Name = "Body"
+	set pd.Type = ..Prefix_".Body"
+	do pd.Parameters.SetAt("Body","XMLNAME")
+	do pd.Parameters.SetAt("ELEMENT","XMLPROJECTION")
+	do pd.%Save()
+	
+	do ..StoreClassDefintion(cd)
+]]></Implementation>
+</Method>
+
+<Method name="GenerateHeader">
+<FormalSpec>RootPath:%String,SubPath:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Classname As %String = ..Prefix_".Header"
+	
+	#dim cd As %Dictionary.ClassDefinition = ..CreateClassDefinition(Classname)
+	
+	do ..AddParameter(cd,"ELEMENTQUALIFIED","1")
+	do ..AddParameter(cd,"NAMESPACE","http://schemas.microsoft.com/dynamics/2011/01/documents/Message")
+	do ..AddParameter(cd,"XMLNAME","Header")
+	do ..AddParameter(cd,"XMLSEQUENCE","0")
+	
+	set pd = ##class(%Dictionary.PropertyDefinition).%New()
+	set pd.parent = cd
+	set pd.Name = "MessageId"
+	set pd.Type = "%String"
+	do pd.Parameters.SetAt("MessageId","XMLNAME")
+	do pd.Parameters.SetAt("","MAXLEN")
+	do pd.%Save()
+	
+	set pd = ##class(%Dictionary.PropertyDefinition).%New()
+	set pd.parent = cd
+	set pd.Name = "Company"
+	set pd.Type = "%String"
+	do pd.Parameters.SetAt("Company","XMLNAME")
+	do pd.Parameters.SetAt("","MAXLEN")
+	do pd.%Save()
+
+	set pd = ##class(%Dictionary.PropertyDefinition).%New()
+	set pd.parent = cd
+	set pd.Name = "Action"
+	set pd.Type = "%String"
+	do pd.Parameters.SetAt("Action","XMLNAME")
+	do pd.Parameters.SetAt("","MAXLEN")
+	do pd.%Save()
+
+	set pd = ##class(%Dictionary.PropertyDefinition).%New()
+	set pd.parent = cd
+	set pd.Name = "RequestMessageId"
+	set pd.Type = "%String"
+	do pd.Parameters.SetAt("RequestMessageId","XMLNAME")
+	do pd.Parameters.SetAt("","MAXLEN")
+	do pd.%Save()
+	
+	do ..StoreClassDefintion(cd)
+]]></Implementation>
+</Method>
+
+<Method name="GenerateBody">
+<FormalSpec>RootPath:%String,SubPath:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Classname As %String = ..Prefix_".Body"
+
+	#dim cd As %Dictionary.ClassDefinition = ..CreateClassDefinition(Classname)
+	
+	do ..AddParameter(cd,"ELEMENTQUALIFIED","1")
+	do ..AddParameter(cd,"NAMESPACE","http://schemas.microsoft.com/dynamics/2011/01/documents/Message")
+	
+	set pd = ##class(%Dictionary.PropertyDefinition).%New()
+	set pd.parent = cd
+	set pd.Name = "MessageParts"
+	set pd.Type = ..Prefix_".MessageParts"
+	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 pd.%Save()
+
+	do ..StoreClassDefintion(cd)
+]]></Implementation>
+</Method>
+
+<Method name="GenerateMessageParts">
+<FormalSpec>RootPath:%String,SubPath:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Classname As %String = ..Prefix_".MessageParts"
+	
+	#dim cd As %Dictionary.ClassDefinition = ..CreateClassDefinition(Classname)
+	
+	set pd = ##class(%Dictionary.PropertyDefinition).%New()
+	set pd.parent = cd
+	set pd.Name = "Property"
+	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 pd.%Save()
+	
+	
+	do ..StoreClassDefintion(cd)
+]]></Implementation>
+</Method>
+
+<Method name="CreateClassDefinition">
+<FormalSpec>Classname:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Dictionary.ClassDefinition</ReturnType>
+<Implementation><![CDATA[
+	do ##class(%Dictionary.ClassDefinition).%DeleteId(Classname)
+	
+	set cd = ##class(%Dictionary.ClassDefinition).%New()
+	set cd.Name = Classname
+	set cd.ClassType = "serial"
+	do cd.ProcedureBlockReset()
+	do cd.InheritanceReset()
+	set cd.Super = "%SerialObject,%XML.Adaptor"
+	
+	do ..AddParameter(cd,"XMLIGNORENULL","0")
+	do ..AddParameter(cd,"NAMESPACE","http://schemas.microsoft.com/dynamics/2011/01/documents/Message")
+	
+	quit cd
+]]></Implementation>
+</Method>
+
+<Method name="StoreClassDefintion">
+<FormalSpec>cd:%Dictionary.ClassDefinition</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do cd.%Save()
+	do ..svnHelper.SVNExport(cd.Name_".cls")
+]]></Implementation>
+</Method>
+
+<Method name="AddParameter">
+<FormalSpec>cd:%Dictionary.ClassDefinition,Name:%String,Value:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set pd = ##class(%Dictionary.ParameterDefinition).%New()
+	set pd.parent = cd
+	set pd.Name = Name
+	set pd.Default = Value
+	do pd.%Save()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>