Agemni CMS Sync

AgemniLogin

CMSDownload EXE

The CMSDownload.exe is a utility written for those who want to use the CMS Sync but do not have a programmer.  This is a windows executable that performs the same operations as the CMS Sync API but sends the data to a file: XML or Comma Seperated Values (CSV).  This file can be imported into a database or used in any manner choosen.

 VB .NET Examples

The following example uses Microsoft Visual Studio 2005.  Create a vb.net Console Application project.  Add 2 web references to:

https://www.agemni.com/_snet/AgemniLogin.asmx

Http://www.agemni.com/_anet/ADBAccess.asmx

The use the following code in the module1.vb (or whatever you want to call it):

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System
Imports System.Xml
Imports System.Xml.Schema
Imports System.IO
Imports System.Text

Module Module1

    Sub Main()

        Dim responseBuilder As StringBuilder
        Dim responseWriter As XmlTextWriter

        responseBuilder = New StringBuilder()
        responseWriter = New XmlTextWriter(New StringWriterWithEncoding(responseBuilder, Encoding.UTF8))

        Dim loginObj As testcmssync.AgemniLogin.AgemniLogin = New testcmssync.AgemniLogin.AgemniLogin

        'create a cookiecontainer or the cookies will not be returned
        loginObj.CookieContainer = New System.Net.CookieContainer

        Dim loginResults As System.Xml.XmlNode = Nothing

        'login to agemni
        loginResults = loginObj.agLogin("somedn", "someuser", "someuserspassword")

        'print out the login results
        loginResults.WriteTo(responseWriter)
        Console.Write(responseBuilder.ToString())

        'get the cookie
        Dim uri As System.Uri = New System.Uri("https://www.agemni.com/_snet/AgemniLogin.asmx")
        Dim cc As System.Net.CookieCollection = loginObj.CookieContainer.GetCookies(uri)

        'print out the cookie
        Console.Write(cc.Item("AGSESSION"))

        Dim adbaccessObj As testcmssync.ADBAccess.ADBAccess = New testcmssync.ADBAccess.ADBAccess

        'set the cookies from the login to the adbaccess object
        adbaccessObj.CookieContainer = loginObj.CookieContainer

        Dim custResults As System.Xml.XmlNode = Nothing
        'get the customer information
        Dim includeList As String() = {"*"}
        custResults = adbaccessObj.getCMSData("accounts", "", DateTime.Now.ToShortDateString(), "", includeList)

        'print out the customer information
        custResults.WriteTo(responseWriter)
        Console.Write(responseBuilder.ToString())

        'get the customer information - but only a few fields

        Dim includeList1 As String() = {"FName", "LName", "SSN", "Phone3", "blah"}
        custResults = adbaccessObj.getCMSData("accounts", "", "", "", includeList1)

        'print out the customer information
        custResults.WriteTo(responseWriter)
        Console.Write(responseBuilder.ToString())

        'get invoice information - but only a few fields

        Dim includeList2 As String() = {"InvoiceType", "Account ID", "Date_Created", "Receivers"}
        custResults = adbaccessObj.getCMSData("invoice", "", "", "", includeList2)

        'print out the invoiceinformation
        custResults.WriteTo(responseWriter)
        Console.Write(responseBuilder.ToString())

        Dim includeList3 As String() = {"*"}
        custResults = adbaccessObj.getCMSData("transactions", "", "", "", includeList3)

        custResults.WriteTo(responseWriter)
        Console.Write(responseBuilder.ToString())

        custResults = adbaccessObj.getCMSData("campaigns", "", "", "", includeList3)

        custResults.WriteTo(responseWriter)
        Console.Write(responseBuilder.ToString())

        custResults = adbaccessObj.getCMSData("leads", "", "", "", includeList3)

        custResults.WriteTo(responseWriter)
        Console.Write(responseBuilder.ToString())

        responseBuilder.Remove(0, responseBuilder.Length)

        custResults = adbaccessObj.getCMSDataByID("employee", 12, includeList3)

        custResults.WriteTo(responseWriter)
        Console.WriteLine(responseBuilder.ToString())
        responseBuilder.Remove(0, responseBuilder.Length)

        custResults = adbaccessObj.getCMSDataByID("notes", 10, includeList3)

        custResults.WriteTo(responseWriter)
        Console.WriteLine(responseBuilder.ToString())
        responseBuilder.Remove(0, responseBuilder.Length)

        custResults = adbaccessObj.getCMSDataByID("campaigns", 10, includeList3)

        custResults.WriteTo(responseWriter)
        Console.WriteLine(responseBuilder.ToString())
        responseBuilder.Remove(0, responseBuilder.Length)

    End Sub

    Friend Class StringWriterWithEncoding
        Inherits StringWriter

        Private m_encoding As Encoding

        Public Sub New(ByVal sb As StringBuilder, ByVal encoding As Encoding)
            MyBase.New(sb)
            m_encoding = encoding
        End Sub

        Public Overrides ReadOnly Property Encoding() As Encoding
            Get
                Return m_encoding
            End Get
        End Property
    End Class

End Module
 

Test project

Attached to this page is a zip containging a test program used to test some aspects of CMS Sync.  It is a MS Visual Stuiod 2005 vb.net project.  In this project there are 2 web services interfaces.  One for the a local instance of CMS Sync (localhost and localhostlogin) and one for the live servers (AgemniAccess and AgemniLogin).  If you decide to use this you must use the live servers since you do not have a version running on your local servers.  You must also set your company's dn, username, and password where the 'xxxxx' are specified for the login.  You can get the project here.

Special Considerations

DB Schema

The following image shows the most common tables and the schema of these.