Merge accounts

The following example shows you how to merge accounts.

C# example

using System;
using Independentsoft.Force;

namespace Sample
{
    class Program
    {
        static void Main(string[] args)
        {
            try
            {
                Service service = new Service();

                LoginResponse loginResponse = service.Login("username", "password", "securityToken");

                Account masterAccount = new Account();
                masterAccount.Id = "0018000000QKoq6AAD";
                masterAccount.Description = "Merged with another Account.";

                MergeResponseCollection response = service.Merge(masterAccount, "0018000000QMHC1AAP");

                foreach (MergeResponse mergeResponse in response)
                {
                    if (mergeResponse.Success)
                    {
                        Console.WriteLine("Id: " + mergeResponse.Id);
                    }
                    else
                    {
                        Console.WriteLine("Error code: " + mergeResponse.Error.StatusCode);
                        Console.WriteLine("Error message: " + mergeResponse.Error.Message);
                    }
                }

                Console.Read();
            }
            catch (ServiceRequestException ex)
            {
                Console.WriteLine("Error: " + ex.FaultCode);
                Console.WriteLine("Error: " + ex.FaultString);
                Console.WriteLine("Error: " + ex.Message);
                Console.WriteLine("Error: " + ex.StatusCode);
                Console.Read();
            }
            catch (Exception ex)
            {
                Console.WriteLine("Error: " + ex.Message);
                Console.Read();
            }
        }
    }
}

VB example

Imports System
Imports Independentsoft.Force

Namespace Sample
    Class Program
        Shared Sub Main(ByVal args As String())

            Try
                Dim service As New Service()

                Dim loginResponse As LoginResponse = service.Login("username", "password", "securityToken")

                Dim masterAccount As New Account()
                masterAccount.Id = "0018000000QKoq6AAD"
                masterAccount.Description = "Merged with another Account."

                Dim response As MergeResponseCollection = service.Merge(masterAccount, "0018000000QMHC1AAP")

                For Each mergeResponse As MergeResponse In response
                    If mergeResponse.Success Then
                        Console.WriteLine("Id: " & mergeResponse.Id)
                    Else
                        Console.WriteLine("Error code: " & mergeResponse.[Error].StatusCode)
                        Console.WriteLine("Error message: " & mergeResponse.[Error].Message)
                    End If
                Next

                Console.Read()

            Catch ex As ServiceRequestException
                Console.WriteLine("Error: " & ex.FaultCode)
                Console.WriteLine("Error: " & ex.FaultString)
                Console.WriteLine("Error: " & ex.Message)
                Console.WriteLine("Error: " & ex.StatusCode)
                Console.Read()
            Catch ex As Exception
                Console.WriteLine("Error: " & ex.Message)
                Console.Read()
            End Try

        End Sub
    End Class
End Namespace