GetHookSeesAllRecords

Description

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.

Nota: Este método estuvo disponible en la versión 7.1.

Sintaxis

VBScript

session.GetHookSeesAllRecords 

Perl

session->GetHookSeesAllRecords(); 
Identificador
Description
session
El objeto Session que representa la sesión de acceso a la base de datos actual.
Valor de retorno
Devuelve un valor Boolean True si el enganche actual ve todos los registros cuando ejecuta una consulta de registro. Devuelve False si el enganche actual únicamente puede ver registros que el usuario actual está autorizado a ver cuando ejecuta una consulta de registro.

Ejemplos

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;
}

Comentarios