• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 205
  • Last Modified:

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

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
Fordraiders
Asked:
Fordraiders
  • 6
  • 6
1 Solution
 
olaraakCommented:
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
 
FordraidersAuthor Commented:
get an unknown function   ------  >        @UpdateFormulaContext;
0
 
olaraakCommented:
@UpdateFormulaContext was introduced in Lotus Notes version 6.
Have you older Notes version?
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
FordraidersAuthor Commented:
yes v 5
0
 
olaraakCommented:
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
 
olaraakCommented:
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
 
FordraidersAuthor Commented:
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
 
olaraakCommented:
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
 
FordraidersAuthor Commented:
"variant does not contain an object error" ?
0
 
FordraidersAuthor Commented:
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
 
FordraidersAuthor Commented:
Thanks
0
 
olaraakCommented:
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

[Webinar] Cloud and Mobile-First Strategy

Maybe you’ve fully adopted the cloud since the beginning. Or maybe you started with on-prem resources but are pursuing a “cloud and mobile first” strategy. Getting to that end state has its challenges. Discover how to build out a 100% cloud and mobile IT strategy in this webinar.

  • 6
  • 6
Tackle projects and never again get stuck behind a technical roadblock.
Join Now