Devuelve True si la base de datos actual tiene, como mínimo, dos sitios replicados.
VBScript
session.IsReplicated
Perl
$session->IsReplicated();
Perl
use CQPerlExt; my $sess; my $entity; $sess = CQSession::Build(); $sess->UserLogon("admin", "", "MULTI", "CQMS.MS_ACCESS.SITEA"); if ($sess->IsReplicated()) { # print out the local replica name $entity = $sess->GetLocalReplica(); printf "Local replica is %s.\n", $entity->GetDisplayName(); } CQSession::Unbuild($sess);