GetHookSeesAllRecords

Descrizione

Restituisce un valore booleano che indica se l'hook corrente visualizza tutti i record o solo i record che l'utente corrente può visualizzare. Il valore True indica che l'hook corrente visualizza tutti i record quando esegue una query. Il valore False indica che l'hook corrente può visualizzare solo i record per cui l'utente corrente è autorizzato quando esegue una query.

Nota: questo metodo è stato reso disponibile nella versione 7.1.

Sintassi

VBScript

session.GetHookSeesAllRecords 

Perl

session->GetHookSeesAllRecords(); 
Identificativo
Descrizione
session
L'oggetto Session che rappresenta la sessione di accesso al database corrente.
Valore di ritorno
Restituisce il valore True booleano se l'hook corrente visualizza tutti i record quando esegue una query di record. Restituisce False se l'hook corrente può visualizzare solo i record per cui l'utente corrente è autorizzato quando esegue una query di record.

Esempi

VBScript

sub project_ChoiceList(fieldname, choices)
  ' fieldname As String
  ' choices As Object
  ' record type name is Defect
  ' field name is project

set session = GetSession
dim curHookSeesAllRecords

' Store current session "Context"
curHookSeesAllRecords = session.GetHookSeesAllRecords()

' set session context to "User Context"
session.SetHookSeesAllRecords(0)

set querydef = session.BuildQuery("project") 
querydef.BuildField("name") 
set resultset = session.BuildResultSet(querydef)
resultset.Execute 

status =resultset.MoveNext
Do While status = AD_SUCCESS 
   choices.AddItem resultSetObj.GetColumnValue(1) 
Loop 

'End Sub

Perl

sub project_ChoiceList 
{
    my($fieldname) = @_;
    my @choices;
    # $fieldname as string scalar
    # @choices as string array
    # record type name is Defect
    # field name is Project

    my $session = $entity->GetSession();
    my ($curHookSessAllRecords);

# store current "Context"
    $curHookSessAllRecords=$session->GetHookSeesAllRecords();

# set to "User Context"
    $session->SetHookSeesAllRecords(0);

    my ($queryDefObj, $resultSetObj);
    $queryDefObj = $session->BuildQuery("Project");

    # have the query return the desired
    # field of the user object(s)
    $queryDefObj->BuildField("Name");
    $resultSetObj = $session->BuildResultSet($queryDefObj);

    # run it
    $resultSetObj->Execute();

    # add each value in the returned column to the choicelist
    while ($resultSetObj->MoveNext() == $CQPerlExt::CQ_SUCCESS) {
         push(@choices,$resultSetObj->GetColumnValue(1));
    }
    return @choices;
}

Feedback