Error Updating Customer Record

Join Date: Jan 2012
Posts: 14

Default RE: Error Updating Customer Record
Dim leadref As New RecordRef
leadref.internalId = 201
leadref.type = RecordType.customer
leadref.typeSpecified = True
Dim leadexiststatus = srv.get(leadref)
If leadexiststatus.status.isSuccess = True Then
Dim NewLead As netsuite.Customer = leadexiststatus.record

NewLead.fax = contactObj.Fax
NewLead.email = contactObj.Email
NewLead.phone = contactObj.Phone
NewLead.entityId = contactObj.Title
NewLead.companyName = contactObj.AccountName

Dim statusRef As New RecordRef
statusRef.internalId = 6
statusRef.type = RecordType.customerStatus
statusRef.typeSpecified = True
NewLead.entityStatus = statusRef


If contactObj.opIn = "Y" Then
NewLead.globalSubscriptionStatus = GlobalSubscriptionStatus._confirmedOptIn
End If
If contactObj.OpOut = "Y" Then
NewLead.globalSubscriptionStatus = GlobalSubscriptionStatus._confirmedOptOut
End If