Is there a command in lotus script that refresh selected documents in a view?
I'm using Lotus Notes 6.5 and Below code not working.
Sub Click(Source As Button)
Dim nsesCurrent As New NotesSession
Dim nuiwsCurrent As New NotesUIWorkspace
Dim ndbCurrent As NotesDatabase
Dim ncolSelected As NotesDocumentCollection
Dim ndocOrder As NotesDocument
Dim StrSiteVisit As String
Dim uiview As NotesUIView
StrSiteVisit = nuiwsCurrent.Prompt(3,"Admin Review/Entrance","Please enter new date.")
If Isempty(StrSiteVisit) Or Trim$(StrSiteVisit) = "" Or Not Isdate(StrSiteVisit) Then Goto notready
Set ndbCurrent = nsesCurrent.CurrentDatabase
Set uiview = nuiwsCurrent.CurrentView
Set nColSelected = ndbCurrent.UnprocessedDocuments
Set ndocOrder = ncolSelected.GetFirstDocument
Do While Not (ndocOrder Is Nothing)
With ndocOrder
.SiteVisit = StrSiteVisit
End With
Call ndocOrder.Save(True, True)
Set ndocOrder = ncolSelected.GetNextDocument(ndocOrder)
Loop
Call uiview.DeselectAll
notready:
End Sub
Thanks in advance for any support.
I'm using Lotus Notes 6.5 and Below code not working.
Sub Click(Source As Button)
Dim nsesCurrent As New NotesSession
Dim nuiwsCurrent As New NotesUIWorkspace
Dim ndbCurrent As NotesDatabase
Dim ncolSelected As NotesDocumentCollection
Dim ndocOrder As NotesDocument
Dim StrSiteVisit As String
Dim uiview As NotesUIView
StrSiteVisit = nuiwsCurrent.Prompt(3,"Admin Review/Entrance","Please enter new date.")
If Isempty(StrSiteVisit) Or Trim$(StrSiteVisit) = "" Or Not Isdate(StrSiteVisit) Then Goto notready
Set ndbCurrent = nsesCurrent.CurrentDatabase
Set uiview = nuiwsCurrent.CurrentView
Set nColSelected = ndbCurrent.UnprocessedDocuments
Set ndocOrder = ncolSelected.GetFirstDocument
Do While Not (ndocOrder Is Nothing)
With ndocOrder
.SiteVisit = StrSiteVisit
End With
Call ndocOrder.Save(True, True)
Set ndocOrder = ncolSelected.GetNextDocument(ndocOrder)
Loop
Call uiview.DeselectAll
notready:
End Sub
Thanks in advance for any support.