One of our databases allows users to select a part # from the list. List is populated by the run on server agent which returns list of parts. (code blow).
Dim s As New NotesSession
Dim agent As NotesAgent
Set agent = s.CurrentAgent
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim PartNo As String
Set db = s.CurrentDatabase
Set doc = db.GetDocumentByID(agent.ParameterDocID)
PartNo = doc.AssyNo(0)
strFormula = { @Unique( @DbCommand( "ODBC" : "NoCache" ; "SQL" ; "USER" ; "*****" ; "QUERY" )) }
strFormula1 = { @Unique( @DbCommand( "ODBC" : "NoCache" ; "IBM AS400" ; "USER" ; "******" ; "QUERY") }
varList = Evaluate( strFormula, doc )
varList1 = Evaluate( strFormula1, doc )
varList = ArrayAppend(varList, varList1)
Dim item As NotesItem
Set item = doc.ReplaceItemValue( "PartsList", sortVariant(varList) )
Call doc.Save( False, True )
This agent was working for the last 10 years until last weekend upgrade to 9.01
Does anybody experienced similar problem.
Regards
Robert