Hi there
I have a really tricky task to try and complete.
I have been handed an application to build an integration from the CF
application to a CRM application.
Basically here is what I am trying to do
Basically I have a form which has been created
Collects data from a user - namely First Name, Postcode, Email Address,
Favourite Hair Colour with four possible selections, and also a check box - Do
you like icecream (yep I know very complicate.
I want to capture this information and integrate the answers with the CRM.
I have some sample code (from .Net I think but have no idea what it is trying
to do.
Hoping someone might be able to shed some light onto how I convert the .Net
code to CF.
Here is the code below:
Imports Traction.Integration
Imports Traction.Integration.DataObjects
Imports Traction.Integration.Result
Imports Traction.Integration.TractionTypes.CustomerAttributes
Imports Traction.Integration.TractionTypes.CustomerAttributes.Default
Imports Traction.Integration.Result.Errors
....
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
'instantiate a new SurveyDataObject using the web.config configuration
"MySurvey1"
Dim SurveyResponse As New SurveyDataObject("MySurvey1")
With SurveyResponse
'customer details
With .Customer
'default attributes
.FirstName.Value = txtFirstName.Text
.Email.Value = txtEmail.Text
'custom attributes are pre-defined in the web.config
configuration;
'in this case there is only one custom attribute (postcode),
which is a text attribute
CType(.CustomAttributes(0), TextCustomerAttribute).Value =
txtPostcode.Text
'validate and handle any errors before posting to Traction
If .Validate.Length > 0 Then
'pre-post error handling if the Validate method returns any
errors
End If
End With
'match key is email
.MatchKey =
TractionTypes.Enumerations.Traction_MatchKeyEnumeration.E
.MatchValue = txtEmail.Text
'survey responses:
'list boxes and dropdown boxes should return the sequential option
number per Traction,
'not the option text
.Questions(0).Answer = lbxHairColour.SelectedValue 'e.g. "2", not
"Brunette"
'check boxes should return the string representation of the Checked
boolean property
.Questions(1).Answer = cbxIceCream.Checked.ToString 'e.g. "True"
End With
'perform the post
Dim MyResult As SurveyResult = Post.SurveyPost(SurveyResponse)
'examine the result
If MyResult.Success Then
lblResult.Text = "Thanks for entering!"
Else
'handle error conditions
End If
End Sub
Thanking anyone who replies.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
Adobe® ColdFusion® 8 software 8 is the most important and dramatic release to
date
Get the Free Trial
http://ad.doubleclick.net/clk;207172674;29440083;f
Archive:
http://www.houseoffusion.com/groups/cf-talk/message.cfm/messageid:314284
Subscription: http://www.houseoffusion.com/groups/cf-talk/subscribe.cfm
Unsubscribe: http://www.houseoffusion.com/cf_lists/unsubscribe.cfm?user=89.70.4
