Robert Brindza 7.May.13 03:03 PM a Web browser Applications Development All Releases All Platforms
I have script in a button that allows a user to choose a customer from the customer database using the PickListStrings method. Once the user selects the customer, I use the result, which is the customer number, as the key for my GetDocumentByKey to get the “BillToName” and “SalespersonName” from the same customer database. For some reason the GetDocumentByKey fails to find the document with that key. How could this be?
Side note: The view column style for the customer number column is “General” even though the field in the form is defined as numeric. Not sure if this has anything to do with it.
Script is below...
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim custdb As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim pickResult As Variant
Dim custNo As String
Set uidoc = workspace.CurrentDocument
Set db = session.CurrentDatabase
Set custdb = New NotesDatabase(db.Server,"Global databases\custmast.nsf")
Set view = custdb.GetView("(vwCustomersByNum)")
Set doc = view.GetDocumentByKey(custNo,True)
If doc Is Nothing Then
Msgbox "Customer " + custNo + " not found."
Call uidoc.FieldSetText("BillToName", doc.GetItemValue("CMBNME")(0))
Call uidoc.FieldSetText("SalesRepName", doc.GetItemValue("SalespersonName")(0))