Admin Data View for all user in Restricted Grid

Quote Oper:

dirty solution casue i dont know excatly your others posible expresion parameters
but this will give you a hint.

on before Form Build Select:

'========= IF ADMIN GROUP
if ccgetgroupID() = 90 then
Form.datasource.where = Form.datasource.where & " OR (userid > 0) "
End If

note: change userid=userid(session)
for
userid = ccgetuserid() (expresion) <-- Healthy

Quote Oper:

did you try the on before build select suggested?

do you know the group number of the Admin?

Quote Oper:

> did you try the on before build select suggested?
>
> do you know the group number of the Admin?
>

Quote wkempees:

CCGetGroupID Function (ASP)
Description
Retrieves the security group ID value of the currently logged in user.

Syntax
CCGetGroupID()Return Value
Integer

Walter

"janiali" <janiali@forum.codecharge> schreef in bericht
news:64757864a9a21b@news.codecharge.com...
>

Quote Oper:

> did you try the on before build select suggested?
>
> do you know the group number of the Admin?
>

>
> yes I have 4 groups and I want group 3 and 4 should be able to see the all
> data
> in the grid group 4 is for admin and group 3 is for Manager .
> I have useing ccgetuserID() but its restricting all the data . and showing
> only
> session user data . please specify the above mention =====If Admin Group
> code in
> detail .
> thanks
> I am totally new in ASP so I need the exact code for admin group .
> thanks
> jani
>
> _________________
> Jani Ali
> ---------------------------------------
> Sent from YesSoftware forum
> http://forums.yessoftware.com/
>

Quote Oper:

again the solution shoudl be this:

if ccgetgroupID() >= 3 then
Form.datasource.where = Form.datasource.where & " OR (userid > 0) "
End If

note: change userid=userid(session)
for
userid = ccgetuserid() (expresion) <-- Healthy

Could please copy and paste here you Custom Code (the part where you use the On Before build Pls.

Quote Oper:

> again the solution shoudl be this:
>
> if ccgetgroupID() >= 3 then
> Form.datasource.where = Form.datasource.where & " OR (userid > 0) "
> End If
>
> note: change userid=userid(session)
> for
> userid = ccgetuserid() (expresion) <-- Healthy
>
> Could please copy and paste here you Custom Code (the part where you use
> the On
> Before build Pls.
>

Quote Oper:

we willd doit.

* what is the filedname where you store the name of the Userid?

* What the name of the form?

* What number group are admin?

i will try to writedown the exact code you need.

Quote Oper:

Name of the add/edit formand name of the datagrid form??

Quote Oper:

on before Form Build Select:

'========= IF ADMIN GROUP
if ccgetgroupID() = 4 then
tblpip.datasource.where = Form.datasource.where & " OR (UserID > 0) "
End If

just add this to the before build select of the grid tblpip (Without modification)
(This should fix first part let me know)

copy paste any error you may have here

  
'========= IF ADMIN GROUP  
if ccgetgroupID() = 4 then  
   tblpip.datasource.where = tblpip.datasource.where & " OR (UserID > 0) "  
End If  

Quote Oper:

sorry my bad

should be:

  
'========= IF ADMIN GROUP  
if ccgetgroupID() = 4 then  
   tblpip.datasource.where = tblpip.datasource.where & " OR (UserID > 0) "  
End If  

    
'========= IF ADMIN GROUP    
if ccgetgroupID() = 4 then    
   tblpip.datasource.where = tblpip.datasource.where & " OR (UserID > 0) "    
   response.write "DEBUG:" & tblpip.datasource.where  
End If    

Quote Oper:

tblpip grid has this already right:
userid = ccgetuserid() (expresion)
?

could you add this to the code to DEBUG:

    
'========= IF ADMIN GROUP    
if ccgetgroupID() = 4 then    
   tblpip.datasource.where = tblpip.datasource.where & " OR (UserID > 0) "    
   response.write "DEBUG:" & tblpip.datasource.where  
End If    

Yes tblPIP grid has userid=ccgetgroupid() (expresion)

now I have same error with Debug
DEBUG: OR (UserID > 0) OR (UserID > 0)

thanks

Quote janiali:

Quote Oper:

tblpip grid has this already right:
userid = ccgetuserid() (expresion)
?

could you add this to the code to DEBUG:

    
'========= IF ADMIN GROUP    
if ccgetgroupID() = 4 then    
   tblpip.datasource.where = tblpip.datasource.where & " OR (UserID > 0) "    
   response.write "DEBUG:" & tblpip.datasource.where  
End If    

Yes tblPIP grid has userid=ccgetgroupid() (expresion)

now I have same error with Debug
DEBUG: OR (UserID > 0) OR (UserID > 0)

thanks

Quote Oper:

could you take a snapshot of the grid selection

where you put the :
userid = ccgetuserid() (expresion)

odd part is look like the code is duplicated. DEBUG: OR (UserID > 0) OR (UserID > 0)

  
'========= IF ADMIN GROUP      
if ccgetgroupID() = 4 then      
   tblpip.datasource.where = tblpip.datasource.where & " OR (UserID > 0) "      
   response.write "DEBUG:" & tblpip.datasource.where    
   response.write "<br>DEBUG2:" & ccgetuserid() & ccgetuserlogin()  
End If      

Quote Oper:

the application on that link do not work.

few more question:

1) are you useing user = ccgetuserid() or user=session("userid")?
2) try this code so we could display a litle more debug:

  
'========= IF ADMIN GROUP      
if ccgetgroupID() = 4 then      
   tblpip.datasource.where = tblpip.datasource.where & " OR (UserID > 0) "      
   response.write "DEBUG:" & tblpip.datasource.where    
   response.write "<br>DEBUG2:" & ccgetuserid() & ccgetuserlogin()  
End If      

we are close. )

if you are learinng we could stay here dont worry we would doit. on this thread
if in a rush i could check the project

but i prefer doit in the forum cuase everyone could learn and fix in the future

copy paste again the new info/error and display you get.

i will be online like 3 more hour

Quote Oper:

application is working. i see

this was added to the before build select to the grid on the bottom?
userid = ccgetuserid() (expresion) looks like is not.

  
if ccgetgroupID() = 4 then        
   tblpip.datasource.where =  " (UserID > 0) "        
else  
    tblpip.datasource.where = " UserID =  "     & ccgetuserid()  
End If