Discussions
Join us for complimentary one-day events around the world and step into a future fueled by AI and limitless potential. Explore new breakthroughs, sharpen your skills, and connect with experts who are shaping what’s next. Experience bold keynotes, interactive learning, and connections that span the global NetSuite community. Discover what's next at SuiteConnect Tour 2026.
NetSuite has launched SuiteSuccess Wholesale Distribution Edition, in Japan. Please join us the webinar on February 12 that introduces NetSuite solution with demos and case studies for Wholesale Industry.
Register Now
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