Creating a daily document with LotusScript.

245 pts.
Tags:
Domino Administrator
Domino Designer
Lotus Notes
Lotus Script
I have created an agent to created a daily document with LotusScript.  The document creates perfectly with the agent.  This document also saves the view perfectly.  However, I am having a problem with the numbers saving in the columns of my view.  The view has three columns.  A Date column and two numeric figure columns.  I keep getting the following message in one of my columns Error:  Incorrect Data Type for operation or @Function: Number Expected. If I create this document manually without the agent.  All information saves in the columns with no problems. I am thinking that my scripts may not be correct. Here's my initialize script: Sub Initialize     Dim session As New NotesSession     Dim db As NotesDatabase     Dim doc As NotesDocument         Set db = session.CurrentDatabase     Set doc = db.CreateDocument     doc.Form = "UR"        Call doc.Save(True, True)     End Sub Here's my Click script: Sub Click(Source As Button)   ' Declare all variables     Dim workspace As New NotesUIWorkspace     Dim session As New NotesSession     Dim uidoc As NotesUIDocument     Dim view As NotesView     Dim db As NotesDatabase   'Set all variables     Set uidoc = workspace.CurrentDocument     Set db = session.CurrentDatabase     Set view = db.GetView( "Copy of Stats UR-FY11" )   'Save current document, refresh "Copy of Stats UR-FY11" view   'and close document     Call uidoc.Save     Call view.Refresh     Call workspace.ViewRefresh     Call uidoc.Close End Sub This is the first time I have ever used LotusScript. I am trying to teach myself on this.  If I made any silly errors, please forgive me and please help.. Thanks.  

Software/Hardware used:
Lotus Notes, Domino Administrator, Domino Designer Version 6.5.1

Answer Wiki

Thanks. We'll let you know when a new response is added.

I suggest that you do a ComputeWithForm( True, False) on your doc object before saving it … Voila

I wrote this simple function to initialize number like “0050” in order to solve sort issue
You call it like sNumber = strZero( 50 , 4)

<pre>
Function strZero( nombre As Long, nbLongueur As Integer) As String

‘ Cette fonction recoit un nombre, le transforme en string de la longueur de nbLongeur
‘ Les espaces devant Nombre sont complétés par des zéro

Dim strANin As String, strReturn As String
Dim intPadding As Integer, strPadding As String
Dim nombreLength As Integer, i As Integer

strANin = Cstr (nombre)
nombreLength = Len (strANin)

If (nbLongueur = 0) Or (nombreLength >= nbLongueur) Then

‘ Rien a ajouter
strZero = strANin

Else

‘ On remplace les caracteres vides par des zéro
intPadding = nbLongueur – nombreLength
strPadding = “”
For i = 1 To intPadding
strPadding = strPadding + “0”
Next
strZero = strPadding + strANin

End If

End Function
</pre>

Discuss This Question: 8  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • Stiletto
    Well, first you'll need to tell us what the formulas are for your 3 columns. It might be helpful to know something about the fields in the documents and the values you're inputting, too. But, to be honest, I think you have a misunderstanding about views and documents. You don't save views; they are just a means of seeing a list of documents and their values (to be overly simplistic). As the documents change, the values shown in the view change.
    4,135 pointsBadges:
    report
  • Twill
    Thank you so much. I failed to stated the information about my document. I didn't mean to confuse you about the views. I totally understand that you don't save views. I left out the part about the document. I am creating a document daily that I want to save to a particular view. The document that I am creating details is below: Name of document = UR Field #1 Name = Date with @ Today = Default Field value Field #2 Name = Population with Default formula value = @Sum(@ToNumber(@DbColumn( "Notes" : ""; "noteserv" : "New Neocap.nsf" ; "WRIM"; 1))) The view contains the following: There's Four (4) columns in the view. Columns are as follows: Column 1 Name= Date - with Default Field as Date Column 2 Name = UT Rate - with Default formula as Population/125 Column 3 Name = Number - with Default formula as @If(Population = "";"";1) Column 4 Name = Manday Total - with Default field as Population When I create this document manually, I do not receive any errors in the view and the document saves to the view with no problems. When I run the agent, the document saves to the view, but I receive the error However, when I run the agent to create this document. I receive an error in the UT Rate Column of the view The Error = Error: Incorrect Data Type for operation or @Function: Number Expected. I hope this helps. Thank you so much. T. Will
    245 pointsBadges:
    report
  • Twill
    Thank you so much. I will see if this works. Good luck on your numeric sort as well. If I find out anything, I will try to help you as well. Thanks again.
    245 pointsBadges:
    report
  • Stiletto
    Whenever you have a situation where code works when you run it, but fails when it runs automatically (like on a schedule), it is often a matter of permissions. When you run it, it is executing with your permissions. When it runs automatically, it runs as the signer or whoever it is set to run as. In your case, you're accessing a secondary db. Check the ACL of that database to be sure your agent has access to it.
    4,135 pointsBadges:
    report
  • Twill
    Thank you very much. Have a great day. I will work on this later in the afternoon.
    245 pointsBadges:
    report
  • Twill
    Thank you so much. I will work on this later in the afternoon. Have a great day. T. Will
    245 pointsBadges:
    report
  • Twill
    I was so excited that I finally got this to fun without the error. However, when the agent runs on schedule, I receive the same error, but when I manually run the agent, I do not receive any errors.
    245 pointsBadges:
    report
  • Twill
    I finally was able to get this to work. The Error is gone. However, I scheduled the agent to run daily and when it runs, the results are blank. But if I manually go into the agent and run the agent it works. Is there something I am doing wrong. Here's the revised code: Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim v As NotesView Dim doc As NotesDocument Set db = session.CurrentDatabase Set doc = db.CreateDocument doc.Form = "Copy of UR" doc.Date = (Date) doc.Population = (Population) doc.UR = (UR) Call doc.ComputeWithForm(True,False) Call doc.Save(True,True) End Sub
    245 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following