How to Make Visible Command Button

Stivan_dsouza21

How to Make Visible Command Button to some user.

1) I have created a a new role. If that role exist in that user id. then only the Command Button should get visible.

2) i have created the 2 command button as "DONE" and "EDIT"

3) i have written code as follows:

Form - OnOpenForm Trigger

user.GET(USERID);
memberof.RESET;
memberof.SETRANGE(memberof."User ID",USERID);
memberof.SETRANGE(memberof."Role ID",'TC UPDATION');
IF memberof.FINDFIRST THEN
BEGIN
CurrForm.Done.Visible:= FALSE;
CurrForm.Edit.Visible:= FALSE;
END;

But the above code is not working
can somebody help me out.

mohana_cse06

Should it be
CurrForm.Done.Visible:= TRUE;
CurrForm.Edit.Visible:= TRUE;

If role found?

kriki

It does not work if you use Windows logins.
Give this one a look : http://www.mibuso.com/forum/viewtopic.php?t=38353

Stivan_dsouza21

I have done the necessary Changes but its saying

---

Microsoft Dynamics NAV Classic

---

You have specified an unknown variable.

Done

Define the variable under 'Global C/AL symbols'.

---

OK

---

mohana_cse06

Did you set name fields for buttons?

Stivan_dsouza21

Its a Command Button.

mohana_cse06

sorry..
I mean Name property for command button..

Stivan_dsouza21

Yes.
But if role is not specified then also its visible.

Stivan_dsouza21

Thanks Mohana.
Its Done.


user.GET(USERID);
memberof.RESET;
memberof.SETRANGE(memberof."User ID",USERID);
memberof.SETRANGE(memberof."Role ID",'TC UPDATION');
IF memberof.FINDFIRST THEN
BEGIN
CurrForm.Done.VISIBLE:= TRUE;
END ELSE
CurrForm.Done.VISIBLE:= FALSE;

user.GET(USERID);
memberof.RESET;
memberof.SETRANGE(memberof."User ID",USERID);
memberof.SETRANGE(memberof."Role ID",'TC UPDATION');
IF memberof.FINDFIRST THEN
BEGIN
CurrForm.Edit.VISIBLE:= TRUE;
END ELSE
CurrForm.Edit.VISIBLE:= FALSE;

mohana_cse06

Why do you need 2 times?

user.GET(USERID);
memberof.RESET;
memberof.SETRANGE(memberof."User ID",USERID);
memberof.SETRANGE(memberof."Role ID",'TC UPDATION');
IF memberof.FINDFIRST THEN BEGIN
  CurrForm.Done.VISIBLE:= TRUE;
  CurrForm.Edit.VISIBLE:= TRUE;
END ELSE BEGIN
  CurrForm.Done.VISIBLE:= FALSE; 
  CurrForm.Edit.VISIBLE:= FALSE;
END;

Stivan_dsouza21

Thanks Mohana i have necessary changes as per request and it working fine.

=D>

mohana_cse06

Or

memberof.RESET;
memberof.SETRANGE(memberof."User ID",USERID);
memberof.SETRANGE(memberof."Role ID",'TC UPDATION');
CurrForm.Done.VISIBLE:= memberof.FINDFIRST;
CurrForm.Edit.VISIBLE:= memberof.FINDFIRST;

:thumbsup:

Sog

mohana_cse06 wrote:

Or

memberof.RESET;
memberof.SETRANGE(memberof."User ID",USERID);
memberof.SETRANGE(memberof."Role ID",'TC UPDATION');
CurrForm.Done.VISIBLE:= memberof.FINDFIRST;
CurrForm.Edit.VISIBLE:= memberof.FINDFIRST;

:thumbsup:

I prefer only one findfirst

memberof.RESET;
memberof.SETRANGE(memberof."User ID",USERID);
memberof.SETRANGE(memberof."Role ID",'TC UPDATION');
CurrForm.Done.VISIBLE:= memberof.FINDFIRST;
CurrForm.Edit.VISIBLE := currform.done.visible

But I once created a function in a codeunit that is "hasrole"
The same code applies, but a parameter with the rolename and a boolean return. Bam you can use it anywhere

dans

mohana_cse06 wrote:

memberof.RESET;
memberof.SETRANGE(memberof."User ID",USERID);
memberof.SETRANGE(memberof."Role ID",'TC UPDATION');
CurrForm.Done.VISIBLE:= memberof.FINDFIRST;
CurrForm.Edit.VISIBLE:= memberof.FINDFIRST;

:thumbsup:

Sog wrote:

I prefer only one findfirst

memberof.RESET;
memberof.SETRANGE(memberof."User ID",USERID);
memberof.SETRANGE(memberof."Role ID",'TC UPDATION');
CurrForm.Done.VISIBLE:= memberof.FINDFIRST;
CurrForm.Edit.VISIBLE := currform.done.visible

or this :P

memberof.RESET;
memberof.SETRANGE(memberof."User ID",USERID);
memberof.SETRANGE(memberof."Role ID",'TC UPDATION');
CurrForm.Done.VISIBLE:= NOT memberof.ISEMPTY;
CurrForm.Edit.VISIBLE := currform.done.visible