Solved

NEWBIE: geeting information froma field and pasting into a field on a different form

Posted on 2008-09-29
12
196 Views
Last Modified: 2013-12-18
LN 5
I have 2 forms :

Form1:
I have a form called .nsf called :
Server WBBLN10
FileName: Xref\XrefReq.nsf

The field name is "TrackingNumber"


Form 2:
I have a form called .nsf called :
Server WBBLN5
FileName: Xref\Gss_Pipe.nsf

The field name is "TrackingCodeNumber"

What I need:
When I hit a button :

I need to save the form    "XrefReq.nsf"
Copy the text value from  "TrackingNumber"

Then open the form   "Gss_Pipe.nsf"

Paste the value from  form
XrefReq.nsf
 field "TrackingNumber"

into

"TrackingCodeNumber"


Is this possible ?

Thanks
fordraiders









@Command([FileSave]);

@Command([EditGotoField] ; "CTrackingNumber");

@Command([EditSelectAll]);

@Command([EditCopy]) ;

@Command([Compose]; "WBBLN5"  : "Xref\\GSS_Pipe.nsf" ; "Main Pipeline")
 

????  from here I don't know ?

Open in new window

0
Comment
Question by:fordraiders
  • 6
  • 6
12 Comments
 
LVL 7

Expert Comment

by:olaraak
ID: 22599840
Try something like:

Explanation:
1. save tracking number to variable trNumber
2. compose a new document in another database using form Main Pipeline
3. Switch context to a new document
4. set field TrackingCodeNumber value to trNumber.


trNumber:=CTrackingNumber;

@Command([Compose]; "WBBLN5"  : "Xref\\GSS_Pipe.nsf" ; "Main Pipeline");

@UpdateFormulaContext;

@SetField("TrackingCodeNumber";trNumber);

Open in new window

0
 
LVL 3

Author Comment

by:fordraiders
ID: 22600567
get an unknown function   ------  >        @UpdateFormulaContext;
0
 
LVL 7

Expert Comment

by:olaraak
ID: 22600602
@UpdateFormulaContext was introduced in Lotus Notes version 6.
Have you older Notes version?
0
 
LVL 3

Author Comment

by:fordraiders
ID: 22600618
yes v 5
0
 
LVL 7

Accepted Solution

by:
olaraak earned 500 total points
ID: 22600743
Geez, hard luck then :-)

Maybe you can use LotusSript instead.

In form's QuerySave event, use code:
Sub Click(Source As Button)

	Dim uiws As New NotesUIWorkspace

	Dim uidoc As NotesUIDocument

	

	Set uidoc = uiws.CurrentDocument

	

	Dim sess As New NotesSession

	Dim oDb As NotesDatabase

	

	Dim doc As NotesDocument

	

	Set oDb = sess.GetDatabase("WBBLN5","Xref\GSS_Pipe.nsf",False)

	If oDb Is Nothing Then 

		Msgbox "Cannot open database"

		Exit Sub

	End If

	

	Set doc = oDb.CreateDocument

	

	doc.Form = "Main Pipeline"

	

	doc.TrackingCodeNumber = uidoc.FieldGetText("CTrackingNumber")

	

	Call doc.Save(True,False)

	

	' If you like to open new document in Edit mode, add:	

	Call uiws.EditDocument(True,doc)

End Sub

Open in new window

0
 
LVL 7

Expert Comment

by:olaraak
ID: 22600759
sorry, not in querysave, but in button  code.

Also, if you like to save first doc, then add after row:

Set uidoc = uiws.CurrentDocument
Call uidoc.Save
0
Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

 
LVL 3

Author Comment

by:fordraiders
ID: 22600859
So this is the same as adding a new document ?

Could this be called from the queryclose event ?

When they hit the button it closes the current document and runs this code ?

0
 
LVL 7

Expert Comment

by:olaraak
ID: 22600987
When used in queryclose or querysave events, then we need to check that the code runs only once.

Better is to use QuerySave, what runs before saving the document.

It can be done, checking if the document is not saved yet:

if uidoc.IsNewDoc Then

   ... run the code...

end if
0
 
LVL 3

Author Comment

by:fordraiders
ID: 22601933
"variant does not contain an object error" ?
0
 
LVL 3

Author Comment

by:fordraiders
ID: 22602308
I don't know if this would matter...But I'am saving information on a server  and then trying to save the data in memory and then post the data from the fild into a new form on another server...

??

Form1:
I have a form called .nsf called :
Server WBBLN10
FileName: Xref\XrefReq.nsf

The field name is "TrackingNumber"


Form 2:
I have a form called .nsf called :
Server WBBLN5
FileName: Xref\Gss_Pipe.nsf


0
 
LVL 3

Author Comment

by:fordraiders
ID: 22602994
Thanks
0
 
LVL 7

Expert Comment

by:olaraak
ID: 22603102
Thanks for points.

Try to run this code with LotusScript debugger switched on.
You find it from Notes menu File-Tools-Debug Lotusscript (hope in v.5 it was there).

Then open the document and press button or save/close document to get the code run.

Debugger should show on what row error appears. Then it is easier to decide, what's wrong.
0

Featured Post

Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

Join & Write a Comment

You’ve got a lotus Domino web server, and you have been told that “leverage browser caching” is a must do. This means that we have to tell the browser everywhere in the web to use cache. In other words, we set (and send) an expiration date in the HT…
I thought it will be a good idea to make a post as it will help in case someone else faces these issues. I trust this gives an idea how each entry in Notes.ini can mean a lot for the Domino Server to be functioning properly. This article discusses t…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
In this tutorial you'll learn about bandwidth monitoring with flows and packet sniffing with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're interested in additional methods for monitoring bandwidt…

758 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

24 Experts available now in Live!

Get 1:1 Help Now