GetHookSeesAllUsers

설명

현재 후크가 모든 사용자를 볼 수 있는지 아니면 현재 사용자가 볼 수 있도록 허용된 사용자만 볼 수 있는지를 나타내는 부울을 리턴합니다. True로 설정하면 조회가 실행될 때 현재 후크가 모든 사용자를 볼 수 있습니다. False로 설정하면 조회가 실행될 때 현재 후크는 현재 사용자가 볼 수 있도록 허용된 사용자만 볼 수 있습니다.

주: 이 메소드는 버전 7.1부터 사용 가능합니다.

구문

VBScript

session.GetHookSeesAllUsers 

Perl

session->GetHookSeesAllUsers(); 
ID
설명
session
현재 database-access 세션을 나타내는 Session 오브젝트입니다.
Return value
사용자 조회가 실행될 때 현재 후크가 모든 사용자를 볼 수 있는 경우 부울을 True로 리턴합니다. 사용자 조회가 실행될 때 현재 후크는 현재 사용자가 볼 수 있도록 허용된 사용자만 볼 수 있는 경우 부울을 False로 리턴합니다.

예제

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 curHooksSeesAllUsers

' Store current session "Context"
curHookSeesAllUsers = session.GetHookSeesAllUsers()

' set session context to "User Context"
session.SetHookSeesAllUsers(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

    # start building a query of the users 
    my $session = $entity->GetSession();
    my ($curHooksSeesAllUsers);

# store current "Context"
    $curHooksSeesAllUsers=$session->GetHookSeesAllUsers();

# set to "User Context"
    $session->SetHookSeesAllUsers(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; 
}

피드백