Novice Help with Creating Opportunities Using Web Services 2.0

Question

Hello,
I recently took over our CRM integration services and was asked to push some data via our custom portal.
We use our portal to automate the creation of new opportunities in our Oracle CRM System.
The code was developed using Web Services 1.0
I was recently asked to add data to the "Parent Opportunity" field upon creation of a new Opportunity. Now I may be mistaken and if I am I will be very pleased, but it seems to me this field isn't available in 1.0
If I am mistaken and there IS a way to push data to the "parent opportunity" field using 1.0 Please completely disregard what I have typed below.
Upon looking at the WSLD for 2.0 I see "ParentoptyID" as an available field.
I took it upon myself to try and move this process over to 2.0 but I have hit a few major stumbling blocks. Here is the working code for 1.0:
Public Function CRMAddFinalShipmentOpportunity2(ByVal Session As Session, ByVal Subject As String, ByVal Type As String, ByVal Priority As String, ByVal Account As String, ByVal DueDate As String, ByVal Status As String, ByVal Description As String, ByVal AnnBudget As String, ByVal oppType As String, ByVal partNumber As String, ByVal currency As String, ByVal Territory As String, ByVal Owner As String, ByVal Opp As String) As String
Dim opportunity As nkkcrm.SiebelOpportunity20.Opportunity = New nkkcrm.SiebelOpportunity20.Opportunity
Dim input As New nkkcrm.SiebelOpportunity20.OpportunityInsert_Input
Dim results As New nkkcrm.SiebelOpportunity20.OpportunityInsert_Output
Dim strPriority As String = "1-High,2-Medium,3-Low"
Dim strType As String = "Call,Correspondence,Email,Event,Final Shipment - Book,Final Shipment - Special,Lead Follow-Up,Meeting,Opportunity Follow-Up,Other,Presentation,Quote Follow-Up,Sample Follow-Up,Service Request Follow-Up"
Dim strStatus As String = "Completed,Deferred,Waiting For Someone Else,In Progress,Not Started,Assigned,In Call"
CRMAddFinalShipmentOpportunity2 = ""
' Validate Data (CRM will validate if owner is valid)
If Owner = "" Then
AddError("Error: Missing Owner")
Exit Function
End If
If Subject = "" Then
AddError("Error: Missing Subject")
Exit Function
End If
If strType.IndexOf(Type) < 0 Then
AddError("Error: Invalid or Missing Type")
Exit Function
End If
If strStatus.IndexOf(Status) < 0 Then
AddError("Error: Invalid or Missing Status")
Exit Function
End If
If strPriority.IndexOf(Priority) < 0 Then
AddError("Error: Invalid or Missing Priority")
Exit Function
End If
If Not IsDate(DueDate) Then
AddError("Error: Invalid or Missing DueDate")
Exit Function
End If
Try
opportunity.Url = Session.GetURL()
opportunity.CookieContainer = Session.GetCookieContainer()
'Create the opportunity
Dim tmpAry(0) As nkkcrm.SiebelOpportunity20.Opportunity
input.ListOfOpportunity(0) = tmpAry
input.ListOfOpportunity.SetValue(New nkkcrm.SiebelOpportunity20.Opportunity, 0)
'Assign the opportunity Properties
input.ListOfOpportunity(0).Owner = Owner
input.ListOfOpportunity(0).OpportunityName = Subject
input.ListOfOpportunity(0).AccountName = Account
input.ListOfOpportunity(0).SalesStage = "Rebuy"
input.ListOfOpportunity(0).CloseDate = Date.Today
input.ListOfOpportunity(0).Territory = Territory
input.ListOfOpportunity(0).stProject_Name = "FINAL SHIPMENT REBUY"
input.ListOfOpportunity(0).SourceCampaign = "Rebuy"
input.ListOfOpportunity(0).OpportunityType = oppType
input.ListOfOpportunity(0).Revenue = AnnBudget
input.ListOfOpportunity(0).Description = Description
input.ListOfOpportunity(0).bRebuy = "Y"
input.ListOfOpportunity(0).ProductInterest = partNumber
input.ListOfOpportunity(0).plCurrency_Type = currency
'input.ListOfOpportunity(0).ParentoptyId = Opp
'insert the opportunity
results = opportunity.OpportunityInsert(input)
If results.ListOfOpportunity.Length > 0 Then
CRMAddFinalShipmentOpportunity2 = results.ListOfOpportunity(0).OpportunityId
End If
Catch webex As WebException
AddError(webex.Message)
Catch ex As Exception
AddError(ex.Message)
End Try
End Function
What changes might I need to make in order to make this function correctly using Web Services 2.0?
Currently I get the following errors- For every line of input.ListOfOpportunity(0) I get: '..cannot be indexed because it has no default property.'
Another example of an issue I'm running into is: 'SetValue' is not a member of 'nkkcrm.SiebelOpportunity20.ListOfOpportunityData'

Answer 1

We were able to make this work by re-modeling my code after a code sample I found that creates new Activities.
Here's my code in case it helps someone scanning these forums in the future (Disregard the Opportunity entries that are missing when you compare this to my earlier code- Those weren't relevant to making this work or not work, I simply am not using them now.):
Public Function CRMAddFinalShipmentOpportunity2(ByVal Session As Session, ByVal Owner As String, ByVal Subject As String, ByVal Type As String, ByVal Priority As String, ByVal DueDate As String, ByVal Status As String, ByVal Description As String, ByVal POValue As String, ByVal oppType As String, ByVal partNumber As String, ByVal currency As String, ByVal servername As String, ByVal pass As String, ByVal usrname As String) As String
'Get SessionID
Dim sessionId As String
sessionId = getSessionLogin(usrname, pass, servername)
Dim Opportunity As nkkcrm.SiebelOpportunity20.Opportunity = New nkkcrm.SiebelOpportunity20.Opportunity
Dim OppInput As New nkkcrm.SiebelOpportunity20.OpportunityInsert_Input
Dim OppOutput As New nkkcrm.SiebelOpportunity20.OpportunityInsert_Output
Dim strPriority As String = "1-High,2-Medium,3-Low"
Dim strType As String = "Call,Correspondence,Email,Event,Final Shipment - Book,Final Shipment - Special,Lead Follow-Up,Meeting,Opportunity Follow-Up,Other,Presentation,Quote Follow-Up,Sample Follow-Up,Service Request Follow-Up"
Dim strStatus As String = "Completed,Deferred,Waiting For Someone Else,In Progress,Not Started,Assigned,In Call"
'Validate Data (CRM will validate if owner is valid)
If Owner = "" Then
AddError("Error: Missing Owner")
Exit Function
End If
If Subject = "" Then
AddError("Error: Missing Subject")
Exit Function
End If
If strType.IndexOf(Type) < 0 Then
AddError("Error: Invalid or Missing Type")
Exit Function
End If
If strStatus.IndexOf(Status) < 0 Then
AddError("Error: Invalid or Missing Status")
Exit Function
End If
If strPriority.IndexOf(Priority) < 0 Then
AddError("Error: Invalid or Missing Priority")
Exit Function
End If
If Not IsDate(DueDate) Then
AddError("Error: Invalid or Missing DueDate")
Exit Function
End If
'Instantiate OpportunityData
Dim objListOfOpportunity As nkkcrm.SiebelOpportunity20.ListOfOpportunityData
Dim objOpportunity As nkkcrm.SiebelOpportunity20.OpportunityData()
Try
objOpportunity = New nkkcrm.SiebelOpportunity20.OpportunityData(0) {}
objListOfOpportunity = New nkkcrm.SiebelOpportunity20.ListOfOpportunityData()
objOpportunity(0) = New nkkcrm.SiebelOpportunity20.OpportunityData
'Assign the opportunity Properties
objOpportunity(0).Owner = Owner
objOpportunity(0).OpportunityName = Subject
objOpportunity(0).AccountName = "UNKNOWN"
objOpportunity(0).SalesStage = "Rebuy"
objOpportunity(0).CloseDate = Date.Today
objOpportunity(0).Territory = "North America"
objOpportunity(0).stProject_Name = "FINAL SHIPMENT REBUY"
objOpportunity(0).SourceCampaign = "Rebuy"
objOpportunity(0).OpportunityType = oppType
objOpportunity(0).Revenue = POValue
objOpportunity(0).Description = Description
objOpportunity(0).bRebuy = True
objOpportunity(0).ProductInterest = partNumber
objOpportunity(0).plCurrency_Type = currency
'Connect the Opportunity to ListOfOpportunity
objListOfOpportunity.Opportunity = objOpportunity
'Connect ListofOpportunity to Input Parameter
OppInput.ListOfOpportunity = objListOfOpportunity
Opportunity.Url = servername & "/Services/Integration;jsessionid=" & sessionId
'Opportunity.CookieContainer = Session.GetCookieContainer()
Opportunity.OpportunityInsert(OppInput)
Return "success"
Catch webex As WebException
AddError(webex.Message)
Catch ex As Exception
AddError(ex.Message)
End Try
End Function
Public Function getSessionLogin(ByVal usrname As String, ByVal pass As String, ByVal servername As String)
Dim loginurl As String = servername & "/Services/Integration?command=login"
'MessageBox.Show(loginurl);
Dim req As HttpWebRequest = DirectCast(WebRequest.Create(loginurl), HttpWebRequest)
' username and password are passed as HTTP headers
req.Headers.Add("UserName", usrname)
req.Headers.Add("Password", pass)
' cookie container has to be added to request in order to
' retrieve the cookie from the response.
Dim cookie As Cookie
req.CookieContainer = New CookieContainer()
' make the HTTP callby
Dim resp As HttpWebResponse = DirectCast(req.GetResponse(), HttpWebResponse)
If resp.StatusCode = System.Net.HttpStatusCode.OK Then
' store cookie for later...
cookie = resp.Cookies("JSESSIONID")
If cookie Is Nothing Then
Return "invalid session"
End If
Return cookie.Value
Else
Return "invalid session"
End If
End Function