OpenNTF.org - VIC CRM for Notes
VIC CRM for NotesOpenDocument[/Projects/pmt.nsf/ProjectView?ReadForm&Query=]

My Links (Not logged in)
User Name Password
Hosted by Prominic.NET

   Project: VIC CRM for Notes (Managed by Dave Leigh)
Actions:

Hide details for The bugThe bug
Bug ID: NOSS-678SE3
Description
Submitted by:Rob Breault
Project Master Chef:Dave Leigh
Bug type:UI
Brief Description:Not quite a bug and not really a feature request
Severity:Low
Version20041127
Status:

Details
This is more of a usability issue, most of the "Create" agents rely on a selected document and when jumping into the application and clicking Create->Person (for example), you may get the error "Agent failed, To run this agent you must at least one document selected"...

Below is a mod I made to the one of these agents... The agent property should also be changed so that the "Target" is None (instead of Selected Document)... This does a few things:
1. Allows agent to be utilized for ALL creation scenerios (clean or inherited values)
2. Prevent errors when no doc is selected

NOTE: When the agent is fired from a view or in a document, its "UnProcessedDocument" is the currently highlighted (not really the selected) view document or the currently open document. I left the "dc.count > 1" in there for consistency. (in other selection based agents)... You will typically have 0 or 1 doc in the doc collection...

<snip>
Set dc = this_db.UnprocessedDocuments
If dc.Count > 1 Then
PromptOK("You have selected more than one document from which to create a new document from.")
Exit Sub
Elseif dc.Count = 1 Then
'We're getting only the first selected document in the view.
Set view_doc = dc.GetFirstDocument()
If Not (view_doc Is Nothing) Then
cImport = PromptYesNo("Do you want to include information from the currently selected document?")
End If
End If
</snip>


Action taken
Status:Fixed
Implemented in Release:20060217
Fix Details:The code shown in the suggested fix is wrapped with the following:
set dc = this_db.UnprocessedDocuments
If dc.Count = 0 Then
cImport = False
Else
<<remaining code>>
End If

Modification history
Entered 30-Nov-2004 14:48 by Rob Breault. Last Modified 17-Feb-2006 12:04 by Dave Leigh.

Feedback

Not quite a bug and not really a fe... ( on 11/30/2004 02:48:04 PM )
Check out other projects
Switch to project: