megaphone
Update your Profile with your Support type to get your Support Type badge.
Nominate Your Peers for NetSuite Support Community's Choice of the Quarter! Submit your nomination today.
Stay in the know of how NetSuite can help grow your business with our guides, webinars, and events. Subscribe Here
What Topic Should We Cover Next? Your idea could be our next feature—drop your suggestion now!
No Limits. Just possibilities. Join us for complimentary one-day events around the world and step into a future fueled by AI and limitless potential. Discover what's next at SuiteConnect Tour 2026.
Try Intelligent Payment Automation – Fee Free For Your First Month For more information, visit this thread.
New AI Community Guidelines. Please review and follow them to ensure AI use stays safe, accurate, and compliant.
Don't miss out on our Question of the Week! You only have until tomorrow, May 7, 2026, 2:00PM ET to comment your answers.

Discussions
Stay up-to-date with the latest news from NetSuite. You’ll be in the know about how to connect with peers and take your business to new heights at our virtual, in-person, on demand events, and much more.
New AI Community Guidelines. Please review and follow them to ensure AI use stays safe, accurate, and compliant.
Update: Narrative Insights has been restored and is now available.

Narrative Insights is Temporarily Unavailable due to an Infrastructure Issue. Learn how This Impacts Your Account and What to Expect While the Feature is Disabled.

Error Updating Customer Record

edited May 26, 2020 5:09PM in SuiteCloud / Customization

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

Howdy, Stranger!

Log In

To view full details, sign in.

Register

Don't have an account? Click here to get started!

Leaderboard

Community Whiz

Quarter 2 (Apr-Jun 2026)

This Week's Leaders

This Month's Leaders

All Time Leaders