Hi all,

Got another one for you.  I want to set certain records off limits for staff.  Here's what I'm trying, but it doesn't seem to be working.

1) In my staff database, I have created a StaffLimitBranch field.

2) I've tried to force the retrieve spec to include whatever is in my customer database retrieve field of DBBranch with the following code on Form Exit

if @mode() = 2
{
DBBranch = @xlookup(@FN,"Staff Screen!StaffLimitBranch",@userid,"DBBranch")
vButtonOn = @SelectTreeItem("Search Menu!Search Commands!Retrieve New Results (F10)")
}
 

Why isn't this working?

Hi Carl,

Sorry ... I was tired and typed from memory, not cutting and pasting.

Okay, so attempt two ... I created the following (pasted) global code in my customer screen:

//
IgnoreKey(KEYCODE_F3,0)


===========================================
// Look Up User Restrictions -- BW 2012-08-25
// ===========================================
gStaffLimit = (@Xlookupsourcelist(@FN, @userid, "Staff Screen!StaffRef", "StaffLimitBranch;StaffLimitClt;StaffLimitUser"))
 

I then tried the following on Retrieve Spec Open (which didn't work):

	if @accessstringarray(gStaffLimit,1) <> ""
	{
		DBBranch = @accessstringarray(gStaffLimit,1)
	}

	if @accessstringarray(gStaffLimit,2) <> ""
	{
		DBCltNo = @accessstringarray(gStaffLimit,2)
	}

	if @accessstringarray(gStaffLimit,3) <> ""
	{
		DBColl# = @accessstringarray(gStaffLimit,3)
	}
 

And then to keep pesky staff from altering those fields, I created a code on element entry (again, didn't work):

if @accessstringarray(gStaffLimit,3) <> "" then Throwfocus(DBNote0)
 

So, the problem seems to be I can't limit or control what is happening in the Search Screen ... I can populate elements, but I can't restrict navigation or alteration of what I have inserting ... help?

Hi Carl,

The xlookupsourcelist is working fine ... I created a dummy user account, and it's populating the search screen with the limiting data.

The frustrating thing is I can (as the dummy user) just click on the limiting fields and edit the retrieve spec, hit F10, and have wide open access. 

Why won't my code on Element Entry throwfocus like I would like?

(Since I wrote this, I've tried a few things ... ReadOnly, Attribute, etc ... nothing seems to work ...)

BWETTLAUFER wrote on Aug 25^th, 2012 at 2:44am:


Are you trying to prevent alteration of a series of specific records? Records that you specify on an individual basis? I have some programming I use to 'close the books' on production records older than a certain date. But I'm not sure if that's what you're trying to do. In my fix there's a global variable that holds the 'close date' -- I then some programming to check and see if the record being entered falls before or on that date. If it does, a list of protected fields is run through, and they're all set to ReadOnly, and a static text indicating that the record is 'closed' is made visible. Every few months I change the date forward a bit. Also, you can set the programming to not fire if the userid is an admin.

If that would suit your needs, let me know and I can post the programming.