Solved

Converting @formula DIalog box to LOtusScript

Posted on 2004-09-22
7
592 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
Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 

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

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

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…
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…
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…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

809 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