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.
VBScript
session.GetHookSeesAllRecords
Perl
session->GetHookSeesAllRecords();
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;
}