Sign in
Microsoft.com
 
Microsoft
 
 
 
Microsoft >
> 
> 
Convert lead to account/contact/opportunity in Visual Basic.net

Unanswered Convert lead to account/contact/opportunity in Visual Basic.net

  • Tuesday, 6 November 2007 12:26 PM
     
     
    Sign In to Vote
    0

    Hi everybody,

     

    I'm working in a project that converts lead into account, contact and opportunity. At this moment, it only converts into account...  I'll write the code and hope that somebody knows how can I do the other convertions:

     

    Code Block

    Public Function Convertir(ByVal GuidP As Guid) As String

    'Servicioweb = New crmservice.CrmService

    'Servicioweb.Credentials = System.Net.CredentialCache.DefaultCredentials

    'GuidP = New Guid(Potencial.leadid.Value.ToString)

    ires = New crmservice.InitializeFromResponse

    ires2 = New crmservice.InitializeFromResponse

    ires3 = New crmservice.InitializeFromResponse

     

    ireq = New crmservice.InitializeFromRequest

    ireq2 = New crmservice.InitializeFromRequest

    ireq3 = New crmservice.InitializeFromRequest

     

    ireq.TargetEntityName = crmservice.EntityName.account.ToString

    ireq.TargetFieldType = crmservice.TargetFieldType.ValidForCreate

    ireq2.TargetEntityName = crmservice.EntityName.contact.ToString

    ireq2.TargetFieldType = crmservice.TargetFieldType.ValidForCreate

    ireq3.TargetEntityName = crmservice.EntityName.opportunity.ToString

    ireq3.TargetFieldType = crmservice.TargetFieldType.ValidForCreate

     

    ireq.EntityMoniker = New crmservice.Moniker

    ireq.EntityMoniker.Id = GuidP

    ireq.EntityMoniker.Name = crmservice.EntityName.lead.ToString

     

    ireq2.EntityMoniker = New crmservice.Moniker

    ireq2.EntityMoniker.Id = GuidP

    ireq2.EntityMoniker.Name = crmservice.EntityName.lead.ToString

     

    ireq3.EntityMoniker = New crmservice.Moniker

    ireq3.EntityMoniker.Id = GuidP

    ireq3.EntityMoniker.Name = crmservice.EntityName.lead.ToString

     

    Try

    ires = Servicioweb.Execute(ireq)

    guidcuenta = Servicioweb.Create(ires.Entity)

    ires2 = Servicioweb.Execute(ireq2)

    guidcontacto = Servicioweb.Create(ires2.Entity)

    ires3 = Servicioweb.Execute(ireq3)

    guidoportunidad = Servicioweb.Create(ires3.Entity)

    setstate = New crmservice.SetStateLeadRequest

    setstate.EntityId = GuidP

    setstate.LeadState = crmservice.LeadState.Qualified

    setstate.LeadStatus = 3

    ires = Servicioweb.Execute(setstate)

    Catch ex As SoapException

    MessageBox.Show(ex.Detail.InnerText)

    End Try

     

    Return ires.Entity.ToString

    End Function

     

     

     

    Waiting for your answer, thanks a lot.