Form_Access Problem_only portfoliomgr

HCL Domino Domino Forum
1

Details of field manager

Dim ses As New NotesSession

Dim db As NotesDatabase

Dim dc As NotesDocumentCollection

Dim doc As NotesDocument

Dim ws As New NotesUIWorkspace

Dim ui As NotesUIDocument

Dim ndt As New NotesDateTime( “01/01/1980” )

dim isNewDoc as integer

isNewDoc = false

Set ui = ws.CurrentDocument

Set db = ses.CurrentDatabase

Set dc = db.search( {SELECT Form = “PortManagement” & TrackingID=“} & ui.fieldgettext(“TrackingID”) & {”}, ndt, 0 )

If dc.count Then

Set doc = dc.GetFirstDocument

If Not doc Is Nothing Then

If doc.form(0) = “PortManagement” Then

Call doc.replaceitemvalue("RequestName", ui.document.requestname(0) )

Call doc.replaceitemvalue("Status", ui.document.status(0) )

Call doc.replaceitemvalue("ProgPort", ui.document.ProgPort(0) )

Call doc.replaceitemvalue("PortfolioMgr", ui.document.PortfolioMgr(0) )



If ui.FieldGetText( "" ) & "" = "Other" Then

 Call doc.replaceitemvalue("RequestingOrg", ui.fieldgettext("RequestingOrg_1") & "" )

Else

 Call doc.replaceitemvalue("RequestingOrg", ui.fieldgettext("RequestingOrg_1")      )

End If



Call doc.save( True, False )

call doc.replaceItemValue( “WhereFrom”, “1” )

Call ws.editdocument( False, doc )

End If

End If

Else

isNewDoc = true

set doc = db.createdocument

doc.form = “PortManagement”

doc.TrackingID = ui.fieldgettext(“TrackingID”)

Call doc.replaceitemvalue("RequestName", ui.document.requestname(0) )

Call doc.replaceitemvalue("Status", ui.document.status(0) )

Call doc.replaceitemvalue("ProgPort", ui.document.ProgPort(0) )

Call doc.replaceitemvalue("Creator", ses.username )

Call doc.replaceitemvalue("Originator", ui.document.creator(0) )

Call doc.replaceitemvalue("PortfolioMgr", ui.document.PortfolioMgr(0) )



If ui.FieldGetText( "" ) & "" = "Other" Then

 Call doc.replaceitemvalue("RequestingOrg", ui.fieldgettext("RequestingOrg_1") & "" )

Else

 Call doc.replaceitemvalue("RequestingOrg", ui.fieldgettext("RequestingOrg_1")      )

End If

call doc.ComputeWithForm( true, false )

call doc.save( true, false )

call doc.replaceItemValue( “WhereFrom”, “1” )

Call ws.editdocument( true, doc )

End If

Form field information

Form having field CN and the values below

@Name([CN];PortfolioMgr):@Name([CN];Creator)

Form having field AB and the values below

@Name([Abbreviate];PortfolioMgr):@Name([Abbreviate];Creator)

Form having Authors field under author field i given values below

“[Developer]”:“[DBAdmin]”:“[ManagerDem]”:

“Creator”:“PortfolioMgr”:“CN”:“AB”

portfolioMgr not able to getting access

others like developer dbadmin and managerdem are getting access

can any one give sugesstion I really apreciate responses

2

Subject: Form_Access Problem_only portfoliomgr

If you want the person or persons listed in the PortfolioMgr field to have access to the document, then do not use quotation marks around the field name – otherwise only somebody NAMED PortfolioMgr would be granted access with that entry.

3

Subject: RE: Form_Access Problem_only portfoliomgr

Hi Rogers Pleaserequesting i am so confused can you give clear explanation

i need to change in froms field or in my code please

I really apreciated your help