How to emulate a dblookup
Posted on 2004-09-02
I have made a change and am nolonger using UNID for PArent Child relationship
I am using field value(Numbers)
I have a script
Set prdoc = currentdb.GetDocumentByUNID(xxpr_link1) I need to now get the parent doc based on its prnumber
which is in the xxpr_link1
Set podoc = uidoc.Document
Dim xxoldTotal1 As Double ' This PO when it was opened.
Dim xxpr_link1 As String ' Link to PR from this PO.
Dim prview As notesView
Set prview = db.getView("VPRNUM")
xxoldTotal1 = podoc.oldTotal1(0) ' Initial value of this PO saved in PostOpen
xxpr_link1 = podoc.pr_link1(0)
Set prdoc = currentdb.GetDocumentByUNID(xxpr_link1)