How to restrict edit on particular user

[George Corder]

I have an embedded browse on a form that has a field "Credit_Exc->EXCEPTION_CODE" (c5).
I have used users and groups for my security on this database and have several users.
I only want to allow the user "bburton" edit capabilities to rows where Exception_Code = "12" but can't get the code right to make this happen. I have tried the following on the embedded browse "CanRowChange" but it allows the user bburton to edit.

==== CODE ====
user_name() <> "bburton" .or. user_name() = "bburton" .and. View_Exceptions:browse2:code.value = "12"

[Stan Mathews]

I have an embedded browse on a form that has a field "Credit_Exc->EXCEPTION_CODE" (c5).
I have used users and groups for my security on this database and have several users.
I only want to allow the user "bburton" edit capabilities to rows where Exception_Code = "12" but can't get the code right to make this happen. I have tried the following on the embedded browse "CanRowChange" but it allows the user bburton to edit.

==== CODE ====
user_name() <> "bburton" .or. user_name() = "bburton" .and. View_Exceptions:browse2:code.value = "12"

Are you thinking that "Change" and "Edit" are equivalent in this situation? The canrowchange event fires

Just before you navigate (change to, my elaboration) to a new row.

and has nothing to do with editing.

I would suggest code for the onarrive and ondepart events which checks the user name and sets the browseobjectname.allow_change(.F.) or browseobjectname.allow_change(.T.) accordingly.

[George Corder]

Thanks Stan. I am just not getting the method for this. I have a limited amount of experience in xbasic coding and don't get what I need to do. I will post the error I am receiving later on.

[George Corder]

Stan, I read the description of the <OBJECT>.ALLOW_CHANGE() method which "...sets the Allow Changes setting for a layout". If I am trying to allow or prevent changes to ONE particular row of data based on a fields value in that row, do I need a method which allows/prevents changes to a form? Just trying to understand. I have attached a screenshot of the form I am working on. The browse at the bottom of the form "BROWSE2" is the only browse that the user bburton is allowed to enter into. The only row of data that I want the user to be able to alter or edit is the row where the first field "code" is = 12. I just need some additional help with the xbasic.
Happy New Year.

[Tom Cone Jr]

George, instead of trying to control this through events in the form layout, or events in the embedded browse object, why not do it through field rules for the table?

Read up on the "CanChangeRecord" event in field rules. I think it could be used to prevent users other than bburton to "change" the record.

'In field rules, choose Events tab
'Choose Record Events
'Insert this script in the CanChangeRecord event

Select 
   case Exception_code = "12"
	if user_name() <> "bburton" then
           ui_msg_box("Oops","You may not change this record")
           cancel()
        end if
end select

[George Corder]

I have tried the above and get the following error:
Script:Table( Credit_exc )CanChangeRecord line:6
case Exception_code = "12"
Variable "Exception_code" not found.

[Tom Cone Jr]

George,

If "Exception_code" is the actual field name try this:

tbl = table.current()
Select 
   case alltrim(tbl.Exception_code) = "12"
	if user_name() <> "bburton" then
           ui_msg_box("Oops","You may not change this record")
           cancel()
        end if
end select

If the fieldname is different, use the actual field name in your table instead of "Exception_code".

-- tom

[George Corder]

Perfect, thanks Stan and Tom.

BTW, I altered the code to the following since user bburton was the only one needing edit restrictions.
================================
tbl = table.current()
Select
case alltrim(tbl.Exception_code) <> "12"
if user_name() = "bburton" then
ui_msg_box("Oops","You may not change this record")
cancel()
end if
end select