Hi all.
I start follow example
http://technet.microsoft.com/en-us/library/hh859456%28v=ws.10%29.aspx
and i create profile as "Full Export Profile", run profile is success, 4 file is exported, and data is right as well.
<?xml version="1.0" encoding="ISO-8859-1"?>
-<root>-<item><IDTEXT>7B6U96M32LH5EFS1E</IDTEXT><OID>LUR1SF27WWFUKVV9PGET6F</OID><STRPOS>TZRFW8H35B3FQY9CC65JDKLUMYUZGBASH1905540Z0AWZR8</STRPOS><STRPAR/></item>-<item><IDTEXT>VHROYR3VBZSF56HDJRFWKH4MDC07VCYSVPYVYAS0Q6ASS</IDTEXT><OID>MZD62UJY20I89FZUH8KCWRZ5MKS9K2I6ZU6P</OID><STRPOS>CSVR6YPLMXSN1EHJRH4GLTICNNFEBIH20CG0F7SVX89CMP7</STRPOS><STRPAR/></item></root>
but Export statistic don't show any thing.
Export Statistic
Adds :0
Updates :0
Renames :0
Deletes :0
Delete Adds :0
Here is my code
I create a class implement some interface as
Public Class EzmaExtension
Implements IMAExtensible2CallExport, IMAExtensible2CallImport, IMAExtensible2GetCapabilities, IMAExtensible2GetParameters, IMAExtensible2GetSchema
..
and this is body
Public ReadOnly Property Capabilities As MACapabilities Implements IMAExtensible2GetCapabilities.Capabilities
Get
Dim myCapabilities As New MACapabilities()
myCapabilities.ConcurrentOperation = True
myCapabilities.ObjectRename = False
myCapabilities.DeleteAddAsReplace = True
myCapabilities.DeltaImport = False
myCapabilities.DistinguishedNameStyle = MADistinguishedNameStyle.None
myCapabilities.ExportType = MAExportType.AttributeUpdate
myCapabilities.NoReferenceValuesInFirstExport = False
myCapabilities.Normalizations = MANormalizations.None
myCapabilities.FullExport = True
Return myCapabilities
End Get
End Property
Public Function PutExportEntries(csentries As IList(Of CSEntryChange)) As PutExportEntriesResults Implements IMAExtensible2CallExport.PutExportEntries
Dim exportEntriesResults As New PutExportEntriesResults
Try
Dim exportfiles() As String = {"T054.xml", "T100.xml", "T101.xml", "T120.xml"}
'Dim exportfiles() As String = {"T054.xml", "T100.xml"}
For Each exportfile As String In exportfiles
xmlSettings.Encoding = System.Text.Encoding.GetEncoding(&H6FAF)
m_xmlWriterExport = XmlTextWriter.Create(MAUtils.MAFolder + "\" + exportfile, xmlSettings)
m_xmlWriterExport.WriteStartElement(Nodes.Root)
For Each csEntryChange As CSEntryChange In csentries
If csEntryChange.ObjectModificationType = ObjectModificationType.Add OrElse csEntryChange.ObjectModificationType = ObjectModificationType.Replace
Then
m_xmlWriterExport.WriteStartElement(Nodes.Item)
Select Case exportfile.ToUpper
Case "T054.XML"
m_xmlWriterExport.WriteElementString(Nodes.IDTEXT, If((csEntryChange.AttributeChanges.Contains("IDTEXT")),
csEntryChange.AttributeChanges("IDTEXT").ValueChanges(0).Value.ToString(), ""))
m_xmlWriterExport.WriteElementString(Nodes.OID, If((csEntryChange.AttributeChanges.Contains("OID")),
csEntryChange.AttributeChanges("OID").ValueChanges(0).Value.ToString(), ""))
m_xmlWriterExport.WriteElementString(Nodes.STRPOS, If((csEntryChange.AttributeChanges.Contains("STRPOS")),
csEntryChange.AttributeChanges("STRPOS").ValueChanges(0).Value.ToString(), ""))
m_xmlWriterExport.WriteElementString(Nodes.STRPAR, If((csEntryChange.AttributeChanges.Contains("STRPAR")),
csEntryChange.AttributeChanges("STRPAR").ValueChanges(0).Value.ToString(), ""))
Case "T100.XML"
m_xmlWriterExport.WriteElementString(Nodes.PNUMID, csEntryChange.DN.ToString())
m_xmlWriterExport.WriteElementString(Nodes.EFTERNAMN, If((csEntryChange.AttributeChanges.Contains("EFTERNAMN")),
csEntryChange.AttributeChanges("EFTERNAMN").ValueChanges(0).Value.ToString(), ""))
m_xmlWriterExport.WriteElementString(Nodes.FOERNAMN, If((csEntryChange.AttributeChanges.Contains("FOERNAMN")),
csEntryChange.AttributeChanges("FOERNAMN").ValueChanges(0).Value.ToString(), ""))
Case "T101.XML"
m_xmlWriterExport.WriteElementString(Nodes.PNUMID, csEntryChange.DN.ToString())
m_xmlWriterExport.WriteElementString(Nodes.ADDRESS1, If((csEntryChange.AttributeChanges.Contains("ADDRESS1")),
csEntryChange.AttributeChanges("ADDRESS1").ValueChanges(0).Value.ToString(), ""))
m_xmlWriterExport.WriteElementString(Nodes.POSTNR, If((csEntryChange.AttributeChanges.Contains("POSTNR")),
csEntryChange.AttributeChanges("POSTNR").ValueChanges(0).Value.ToString(), ""))
m_xmlWriterExport.WriteElementString(Nodes.POSTADR, If((csEntryChange.AttributeChanges.Contains("POSTADR")),
csEntryChange.AttributeChanges("POSTADR").ValueChanges(0).Value.ToString(), ""))
m_xmlWriterExport.WriteElementString(Nodes.TELNR1, If((csEntryChange.AttributeChanges.Contains("TELNR1")),
csEntryChange.AttributeChanges("TELNR1").ValueChanges(0).Value.ToString(), ""))
m_xmlWriterExport.WriteElementString(Nodes.MOBIL, If((csEntryChange.AttributeChanges.Contains("MOBIL")),
csEntryChange.AttributeChanges("MOBIL").ValueChanges(0).Value.ToString(), ""))
'm_xmlWriterExport.WriteElementString(Nodes.ADRART, "") 'csEntryChange.AttributeChanges("ADRART").ValueChanges(0).Value.ToString())
m_xmlWriterExport.WriteElementString(Nodes.ADRART, If((csEntryChange.AttributeChanges.Contains("ADRART")),
csEntryChange.AttributeChanges("ADRART").ValueChanges(0).Value.ToString(), ""))
Case "T120.XML"
m_xmlWriterExport.WriteElementString(Nodes.PNUMID, csEntryChange.DN.ToString())
m_xmlWriterExport.WriteElementString(Nodes.OID, If((csEntryChange.AttributeChanges.Contains("OID")),
csEntryChange.AttributeChanges("OID").ValueChanges(0).Value.ToString(), ""))
m_xmlWriterExport.WriteElementString(Nodes.FTGOID, If((csEntryChange.AttributeChanges.Contains("FTGOID")),
csEntryChange.AttributeChanges("FTGOID").ValueChanges(0).Value.ToString(), ""))
m_xmlWriterExport.WriteElementString(Nodes.ANSTDAT, If((csEntryChange.AttributeChanges.Contains("ANSTDAT")),
csEntryChange.AttributeChanges("ANSTDAT").ValueChanges(0).Value.ToString(), ""))
m_xmlWriterExport.WriteElementString(Nodes.ARBHEL, If((csEntryChange.AttributeChanges.Contains("ARBHEL")),
csEntryChange.AttributeChanges("ARBHEL").ValueChanges(0).Value.ToString(), ""))
End Select
m_xmlWriterExport.WriteEndElement()
For Each attributeChange As AttributeChange In csEntryChange.AttributeChanges
If Not csEntryChange.ChangedAttributeNames.Contains(attributeChange.Name) Then
csEntryChange.ChangedAttributeNames.Add(attributeChange.Name)
End If
Next
Dim csEntryChangeResult As CSEntryChangeResult = csEntryChangeResult.Create(Guid.NewGuid(), csEntryChange.AttributeChanges,
MAExportError.Success)
exportEntriesResults.CSEntryChangeResults.Add(csEntryChangeResult)
End If
Next
m_xmlWriterExport.WriteEndElement()
m_xmlWriterExport.Close()
Next
Catch ex As Exception
Finally
If Not m_xmlWriterExport Is Nothing Then
m_xmlWriterExport.Close()
End If
End Try
Return exportEntriesResults
End Function
Public Function GetSchema(configParameters As KeyedCollection(Of String, ConfigParameter)) As Schema Implements IMAExtensible2GetSchema.GetSchema
Dim personType As Microsoft.MetadirectoryServices.SchemaType = Microsoft.MetadirectoryServices.SchemaType.Create("person", False)
personType.Attributes.Add(SchemaAttribute.CreateAnchorAttribute("PNUMID", AttributeType.String))
personType.Attributes.Add(SchemaAttribute.CreateSingleValuedAttribute("IDTEXT", AttributeType.String))
personType.Attributes.Add(SchemaAttribute.CreateSingleValuedAttribute("OID", AttributeType.String))
personType.Attributes.Add(SchemaAttribute.CreateSingleValuedAttribute("STRPOS", AttributeType.String))
personType.Attributes.Add(SchemaAttribute.CreateSingleValuedAttribute("STRPAR", AttributeType.String))
personType.Attributes.Add(SchemaAttribute.CreateSingleValuedAttribute("BIRTHDATE", AttributeType.String))
personType.Attributes.Add(SchemaAttribute.CreateSingleValuedAttribute("EFTERNAMN", AttributeType.String))
personType.Attributes.Add(SchemaAttribute.CreateSingleValuedAttribute("FOERNAMN", AttributeType.String))
personType.Attributes.Add(SchemaAttribute.CreateSingleValuedAttribute("ADDRESS1", AttributeType.String))
personType.Attributes.Add(SchemaAttribute.CreateSingleValuedAttribute("POSTNR", AttributeType.String))
personType.Attributes.Add(SchemaAttribute.CreateSingleValuedAttribute("POSTADR", AttributeType.String))
personType.Attributes.Add(SchemaAttribute.CreateSingleValuedAttribute("TELNR1", AttributeType.String))
personType.Attributes.Add(SchemaAttribute.CreateSingleValuedAttribute("MOBIL", AttributeType.String))
personType.Attributes.Add(SchemaAttribute.CreateSingleValuedAttribute("ADRART", AttributeType.String))
personType.Attributes.Add(SchemaAttribute.CreateSingleValuedAttribute("FTGOID", AttributeType.String))
personType.Attributes.Add(SchemaAttribute.CreateSingleValuedAttribute("ANSTDAT", AttributeType.String))
personType.Attributes.Add(SchemaAttribute.CreateSingleValuedAttribute("ARBHEL", AttributeType.String))
Dim sch As Schema = Schema.Create()
sch.Types.Add(personType)
Return sch
End Function
Structure Nodes
Public Const Root As String = "root"
Public Const PartitionDN As String = "partition-dn"
Public Const FullExport As String = "full-export"
Public Const Item As String = "item"
Public Const IDTEXT As String = "IDTEXT"
Public Const OID As String = "OID"
Public Const STRPOS As String = "STRPOS"
Public Const STRPAR As String = "STRPAR"
Public Const PNUMID As String = "PNUMID"
Public Const BIRTHDATE As String = "BIRTHDATE"
Public Const EFTERNAMN As String = "EFTERNAMN"
Public Const FOERNAMN As String = "FOERNAMN"
Public Const ADDRESS1 As String = "ADDRESS1"
Public Const POSTNR As String = "POSTNR"
Public Const POSTADR As String = "POSTADR"
Public Const TELNR1 As String = "TELNR1"
Public Const MOBIL As String = "MOBIL"
Public Const ADRART As String = "ADRART"
Public Const FTGOID As String = "FTGOID"
Public Const ANSTDAT As String = "ANSTDAT"
Public Const ARBHEL As String = "ARBHEL"
End Structure
Please help me.
Thanks
- Edited by ECMA 2 not show report Statistic (Full Import) Thursday, December 26, 2013 10:56 AM
Other recent topics
