<div>
I was playing around with by key however I was using the wrong indicator 
 
Not the the view name 
 
Duuuhh
</div>

I was playing around with by key however I was using the wrong indicator

Not the the view name

Duuuhh

<div>
<div class="content wysiwyg-content">
HI Guys 
 
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 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim xxoldTotal1 As Double &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;' This PO when it was opened. 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim xxpr_link1 As String &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;' Link to PR &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;from this PO. 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim prview As notesView 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set prview = db.getView(&quot;VPRNUM&quot;) 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;uidoc.Refresh 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;xxoldTotal1 = podoc.oldTotal1(0) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;' Initial value of this PO saved in PostOpen 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;xxpr_link1 = podoc.pr_link1(0) 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set prdoc = currentdb.GetDocumentByUNID(xxpr_link1) 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</div>
</div>

HI Guys

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")
	uidoc.Refresh
	
	xxoldTotal1 = podoc.oldTotal1(0)		' Initial value of this PO saved in PostOpen
	xxpr_link1 = podoc.pr_link1(0)
	
	Set prdoc = currentdb.GetDocumentByUNID(xxpr_link1)
	
	

How to emulate a dblookup

Lotus Software produced the Lotus 1-2-3 spreadsheet program, and later developed Lotus Notes, a groupware and email system. Following its acquisition by IBM, the Notes and Domino client/server collaborative platform were expanded to include functions such as email, calendars, to-do lists, contacts management, teamrooms, discussion forums, file sharing, microblogging, instant messaging, blogs, and user directories. IBM also release SmartSuite, a comprehensive office suite, and followed that with Symphony, unrelated to the Lotus suite of the same name.