Conditional Field status

[Scott Kurimski]

In my logon script I would like to lookup an employee's supervisor status as they log in and set a global variable based on its value.

The supervisor status is a logical field called "Empissuper".

The global variable I want to set is (gvIsSuper) and I would like to set the variables value equal to T or F.

I want to base the lookup on their user id (gvuser)

I perform lookups like this already on character fields although could use some assistance on how to do this with a logical field.

Below is an example of where I lookup a character field and set a global variable equal to the value in the character field.

gvEmpid = lookupc("F", gvuser, "alltrim(Empid)", "emp","_Emplognid")

What is the best way to do this for a logical field?

In the end I would like to make various fields on a form "Read Only" if gvIsSuper=F and make it editable if gvIsSuper=T

I will be using the variable gvIsSuper for other things so I do want to write their supervisor status to a variable.

[Keith Hubert]

Re: Conditional Field status

Hi Scott,

First of all as you are comfortable with lookupc(), how about using LOOKUPL()?

The other method is to test which group the user is in and set the fields accordingly. To test the group the logged user is in, you would use is_one_of(user_groups()).

[Scott Kurimski]

Re: Conditional Field status

I am not using A5 security, it is my own. I tried using Lookupl but was having trouble with the syntax, can you provide me an example using the fields I provided earlier in the post?

[DaveM]

Re: Conditional Field status

scott,

I also do not use alpha security. Made my own before they had one.

I do this at log on with a couple of tables. There are several fields in these tables I need into variables until the app is closed. Most are dependent on the user. I will share how I do it and see if it helps you?

The variables used below are already defined as global.

t=table.open("employ",file_ro_shared) 
query.filter="username="+quote(trim(scode))
query.order="" 
query.options="T" 
ix=t.query_create() 
 if ix.records_get()=0 then 
  a5.close() 
 end if 
username=t.username 
salesman=t.salesname 
cellphone = t.cellphone 
password = t.password 
usernow = t.usernow
permissions = t.permissions
userlot = t.lot
gotoileads = t.gotoileads
gotosales = t.gotosales
gotoother = t.gotoother
gotoreports = t.gotoreports
gotocsi = t.gotocsi
buycar = t.buycar
gotoslsschedule = t.gotoslsschedule
gotoslslabels = t.gotoslslabels
setupemail = t.setupemail
seedealnumbers = t.seedealnumbers
reshadow = t.reshadow
gotocomp = t.gotocomp
cleantbls = t.cleantbls
gotoinv=t.gotoinv
editletters=t.Editletters
gotoslspeople = t.gotoslspeople
editownpassword = t.editownpassword
editownuserinfo=t.editownuserinfo
seeallslspeople=t.seeallslspeople
editpermiss=t.editpermiss
gotovendors=t.gotovendors
gotobanks=t.gotobanks
gotoagents=t.gotoagents
gotorebates=t.gotorebates
deletesales=t.deletesales
makebackup=t.makebackup
editcompinfo=t.editcompinfo
advertisers=t.advertisers
compbat = t.bat
comptire = t.tire
complemon = t.lemon
comptags = t.transfer
comppmtterm = t.term 
comptermtype = t.termtype
compapr = t.apr
compnewwheels = t.newwheels  
compantitheft = t.antitheft
t.close()

[Scott Kurimski]

Re: Conditional Field status

Keith, Below is what I tried with the Lookupl and did not work.......

gvIsSupervisor = lookupl("F", gvuser, iif(Empissuper()="T","T","F"), "emp","_Emplognid")

[Tim Kiebert]

Re: Conditional Field status

gvIsSupervisor = lookupl("F", gvuser, "Empissuper", "emp","_Emplognid")

[CALocklin]

Re: Conditional Field status

Tim's answer is correct. Just to add a bit more explanation...

LookupL() returns only logical values - .T. or .F.

"T" and "F" are character values - which can't be compared to the logical field value and can't be returned by LookupL().

Since the field is already a logical field, just return the field value.

[Scott Kurimski]

Re: Conditional Field status

What "type" should the Global variable be? It is currently Dim'ed as C but does not return the correct value.

DIM GLOBAL gvIsSupervisor as C
gvIsSupervisor = lookupl("F", gvuser, "Empissuper", "emp","_Emplognid")

I have three test emps with T as their value in the Empissuper field and three with F but the returned value is always T and I am not sure why? Any ideas?

[CALocklin]

Re: Conditional Field status

Now you've got me worried. Are you sure it's a logical field?

If it is truly a logical field, all references should be logical. If it's character field, everything should be a character. When looking at the default browse, a logical field will show only T or F (without any dots) but it's still a logical field and the result in xbasic will be .T. or .F. and LookupL() would be the correct lookup function to use.

Why am I worried? Because I believe I ran into a situation where the logical value of a character field with anything in it was always True. However, I could be completely wrong as I can't figure out how to duplicate the situation right now.

[Scott Kurimski]

Re: Conditional Field status

Attached are a couple of screen shots that may help reassure you it is setup as we have detailed out. Let me know if you see anything "odd".

[martinwcole]

Re: Conditional Field status

you need to make the variable a logical variable or else

if lookupl(xxx)=.t.
var->="T"
else
var->="F"
end if

[Scott Kurimski]

Re: Conditional Field status

Martin, I assume that would take the return value of the Lookup and force the return of a character (T or F).

It looks like I can set the DIM to type L and it should be able to hold the logical value that is returned. Unfortunately when I try it I receive an error when running the script.

Here is what I tried to do....

DIM GLOBAL gvIsSupervisor as L

gvIsSupervisor = LOOKUPL("F",gvuser,"Empissuper","emp","_Emplognid")

Have any ideas?

[martinwcole]

Re: Conditional Field status

close the app and then reopen it and try again - most likely it was already defined and the new dim bombed as it was already dimmed as c

[Scott Kurimski]

Re: Conditional Field status

Perfect, That was it. I closed Alpha and relaunched and now everything is working as exspected but I still need to figure out the second part of my original question........

In the end I would like to make various fields on a form "Read Only" if gvIsSuper=F and make it editable if gvIsSuper=T

Ideas anyone?

[martinwcole]

Re: Conditional Field status

in the form's onfetch event

if var->xxx=.t.
     objectname.field.readonly=.t.
else
     objectname.field.readonly=.f.
end if