asked on

Update field in Notes

Dear Experts,
I have 2 form A and B. Form A contains 1 field named A1. Manager creates form A for 1 time only. This is common information.
Form B import field A1 from form A. Employee create new form B, field A1 is automatically imported.
My issue is: when Manager modifies field A1 (form A) and save, I want existing documents of form B will be updated (field A1).
Please help me. Thanks

madheeswar

Then u need to write a lotus script to update all the documents.

or Formula:
run once through action buttons.

Which one u prefer?

ASKER CERTIFIED SOLUTION

madheeswar

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

phuongnguyen

ASKER

Could you please provide me a script? Thanks so much.

madheeswar

Let me type it. And I will post it here.

And formulas will be easy to implement ratherthan script.

Its upto u. Anyway, I will try to do it within 30mnts.

madheeswar

Sub Initialize
      Dim ss As New notessession
      Dim db As notesdatabase
      Dim view As notesview
      Dim doc As notesdocument


      Set db=ss.currentdatabase
      Set view=db.getview("FormBviewname")
      Set doc=view.getfirstdocument

      tmpupdate=Evaluate(|@DbColumn("":"Nocache";"";"FormAviewname";1)|)

      While Not doc Is Nothing
            doc.Field A1=tmpupdate(0)
            Call doc.Save(True,True)
            Set doc=view.getnextdocument(doc)
      Wend
End Sub

Follow the same procedure as I told u before to implement Agent.

Any queries, let me know.

HemanthaKumar

Simply Make your B1 field a computed field. With formula

temp := @DBLookup( "Notes":"NoCache"; @DBName; "View where I can find Form A values"; "Key value"; "FIELDA1");
@if(@IsError(temp); ""; @Unique(temp))

You pass the viewname in above formula and a key value to find the specific document in that view (this is the I column sorted asc/desc)

Now Create an agent which will run on all docs in database and with search criteria set to look for form = "FormB" and with LotusScript like this

Dim session as New NotesSession
dim db as NotesDatabase
dim col as NotesDocumentCollection
dim doc as NotesDocument

set db = session.CurrentDatabase
set col = db.UnprocessedDocuments
set doc = col.GetFirstDocument

While not doc is nothing
doc.ComputeWithForm true, false
doc.Save true, false
set doc = col.GetNextDocument(doc)
Wend

In this manner you can set all the fields that will compute the field in the form B to look at form A and run this agent either when doc is created/modified or trigger it manually when form A is saved..

~Hemanth

qwaletee

Why bother keeping the A1 value on form B at all? Retrieve it dynamically when the form opens. On form B, make A1 a computed for display field. The formula would be @GetDocField(@Text($Ref); "A1")

Teh above will work if B is a "response" form. Otherwise, you need a field, computed when composed, called FORM_A_UNID. The formula for this field would be @Text(@InheritedDocumentUniqueID) and teh formula for A1 (still computed for display) would be @GetDocField(FORM_A_UNID; "A1")

If the form B value needs to display in a view, the above will NOT work, because computed for display fields are not saved on the document (which is what allows them to be looked up every time you open the document).

In that case, assuming B is a response form, the following QuerySave script on form A will do the trick:
Source.document.responses.stampAll "A1" , Source.document.A1

If B is not a response form, the formula is MUCH more complicated, and I would need more details about how A and B are tied together.