Solved

Converting @formula DIalog box to LOtusScript

Posted on 2004-09-22
7
591 Views
Last Modified: 2013-12-18
Please someone help me to convert this Dialogbox made At @Formula using LS.


FIELD Comments :="";
FIELD MemberDialog := MemberDialog;
FIELD Comments := Comments;
@DialogBox("APF";[AutoHorzFit]:[AutoVertFit];"Comments");
@If(Comments = ""; @Return(""); "");
@SetField ("MemberDialog"; MemberDialog + @Name([CN]; @UserName) + " on  " + @Text(@Today)+" : " + Comments + @NewLine + @NewLine + "***********************************************************************************"+@NewLine)


thanks

love
0
Comment
Question by:lovemeto
  • 3
  • 3
7 Comments
 
LVL 46

Expert Comment

by:Sjef Bosman
ID: 12120929
Why do you want to do that? Could it be that your formulae contain an error? You don't test the returnvalue of @DialogBox...

FIELD Comments :="";
FIELD MemberDialog := MemberDialog;
FIELD Comments := Comments;
Comments:= @DialogBox("APF";[AutoHorzFit]:[AutoVertFit];"Comments");
@If(Comments = ""; @Return(""); "");
@SetField ("MemberDialog"; MemberDialog + @Name([CN]; @UserName) + " on  " + @Text(@Today)+" : " + Comments + @NewLine + @NewLine + "***********************************************************************************"+@NewLine)
0
 

Author Comment

by:lovemeto
ID: 12121160
the @ formula doesnt contain any error,

i want to include the LS of this Dialogbox on one of my action button made in LS.
 disapprove butoon, when the user click this button this dialog bx will prompt and the user will easily fills up the required field..





0
 
LVL 19

Expert Comment

by:madheeswar
ID: 12121219
this is a sample:
flag = NotesUIWorkspace.DialogBox("form", autoHorzFit, autoVertFit, noCancel, noNewFields, noFieldUpdate, readOnly, "title', NotesDocument)
0
Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

 

Author Comment

by:lovemeto
ID: 12121390
actually i know the systax by this dialogbox is little bit complicated so i didnt know to transfer it into LS
0
 
LVL 19

Expert Comment

by:madheeswar
ID: 12121408
so, let me put your problem in this way:

U have a Action button, when users clicks on Disapprove(Reject), it should propmt for input from the user and the data typed by the user should store into the document for which he/she is taking action. Am I right?

What sould happen if they click Cancel?
0
 

Author Comment

by:lovemeto
ID: 12121479
U have a Action button, when users clicks on Disapprove(Reject), it should propmt for input from the user and the data typed by the user should store into the document for which he/she is taking action. Am I right?

Answer: Yes


What sould happen if they click Cancel?

my answer:
the dialogbox will close and return to the document where iam initiating the action.
do i answer your question right?
0
 
LVL 19

Accepted Solution

by:
madheeswar earned 125 total points
ID: 12121629
Try this:
xlFileName$ = Inputbox("What are the reasons for REJECTION?")
      
      If xlFileName$="" Then
            Exit Sub
      End If
'      Dim ws As New notesuiworkspace
'      Dim uidoc As NotesUIDocument
'      Dim curdoc As NotesDocument
      Dim ss As New NotesSession
      Dim db As NotesDatabase
      Dim dc As NotesDocumentcollection
      Dim doc As NotesDocument
      
      Set db=ss.CurrentDatabase
      Set dc=db.UnprocessedDocuments
      
      Set doc=dc.GetFirstDocument
      While Not doc Is Nothing
            doc.urfieldnametoUpdate=xfilename
            Call doc.save(True,True)
            Set doc=dc.GetNextDocument(doc)
      Wend
0

Featured Post

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

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

Suggested Solutions

For beginners of Lotus Notes user this is important to know about the types of files and their location supported by IBM Notes. Mostly users are unaware about how many file types are created and what their usages are. This Article is fully dedicated…
This article covers general Notes 8.5 troubleshooting information including recreating the Notes\Data folder.
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

831 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