Solved

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

Posted on 2008-09-29
12
198 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
PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

 
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
 
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

Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

  In today’s Arena we can’t imagine our lives without Internet as we are highly used to of it. If we consider our life style just for only 2 min we found that face to face communication is swapped by e-communication.  Every Where from Works place to…
Problem "Can you help me recover my changes?  I double-clicked the attachment, made changes, and then hit Save before closing it.  But when I try to re-open it, my changes are missing!"    Solution This solution opens the Outlook Secure Temp Fold…
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
Established in 1997, Technology Architects has become one of the most reputable technology solutions companies in the country. TA have been providing businesses with cost effective state-of-the-art solutions and unparalleled service that is designed…

770 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