Calender Viewproblem

HCL Domino Domino Forum
1

Hi All.

I have a strange problem in my application we have a calender view(Shared,private on first use) it shows all the documents that meets the selection criteria.Problem is it is working fine in the quality?(testing server) it worked fine for some days in production server but now it is not working in production. same design and code in quality is still working but in production not Can any body suggest me hoe to resolve this issue.

ADV thanks

cheers

siddu

2

Subject: Calender Viewproblem

Siddu,

It will help us if we saw your selection formula for the View.

When you say it works for some days in production and not others, is there any similarity? (Like it always works on a Tuesday). What is the problem you’re seeing? No documents show up? A certain person documents don’t show up?

3

Subject: RE: Calender Viewproblem

Hi Stephen,

Selection criteria is simple each working location has set of users called a “x” group if the user selects that group all the users in that group should display in the calender view.But now it is picking only first user in that view and displaying

Here is the code:

Dim db As NotesDatabase

Dim ses As New NotesSession

Dim workspace As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim collection As NotesDocumentCollection

Dim  envibadge	 As String

Dim view As Notesview

Dim doc As notesdocument





Set uidoc = workspace.CurrentDocument

Set doc = uidoc.Document

Call uidoc.Refresh



Set db=ses.Currentdatabase



Dim vc As NotesViewEntryCollection

Set view = db.GetView("Groupusers")

Set vc = view.AllEntries

Call vc.RemoveAllFromFolder("Groupusers")

Call workspace.ViewRefresh



Dim INXKeys As Variant

INXKeys = doc.keyfields

Dim couter As Double

Dim v As NotesView

Set v = db.GetView("Groupusers")

Forall INX In INXKeys

	

	badge =  INX



	Set view = db.GetView(doc.keyview(0))	

	

	Set collection = view.GetAllDocumentsByKey(badge, True)     

	Call Collection.PutAllInFolder( "Groupusers" )

	counter = counter +collection.Count

End Forall

Call workspace.ViewRefresh

The same code which is working fine in quality but production not working.

4

Subject: RE: Calender Viewproblem

Hi Siddu,is your line “Dim couter As Double” correct ?

In the following scipt you increase “counter” (with “n”).

Martin