Devuelve un valor Boolean que inicia si el enganche actual ve todos los registros o únicamente los registros que el usuario actual está autorizado a ver. True significa que el enganche actual ve todos los registros cuando se ejecuta una consulta. False significa que el enganche actual únicamente puede ver registros que el usuario actual está autorizado a ver cuando se ejecuta una consulta.
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;
}