El ejemplo de fragmento de código siguiente comprueba si el registro (entidad) tiene duplicados (hijos), en cuyo caso, el enganche edita cada uno de los duplicados con el nombre de acción dupone y establece el campo "action_info" para indicar que se ha probado el registro original (padre).
Dim status
Dim session ' The current Session object
Dim parent_id ' The current Entity's display name (ID string)
Dim dups ' Array of all direct duplicates of this Entity
Dim dupvar ' Variant containing a Link to a duplicate
Dim dupobj ' The same Link, but as an Object rather than a Variant
Dim entity ' The Entity extracted from the Link
If (HasDuplicates()) Then
Set session = GetSession
dups = GetDuplicates
parent_id = GetDisplayName
for each dupvar in dups
' You could check these various functions for failures and
' then report any failures to the user (for example, using
MsgBox).
' Failures are unlikely, but possible--for example, someone
' could concurrently "unmark" an entity as a duplicate.
Set dupobj = dupvar
Set entity = dupobj.GetChildEntity
session.EditEntity entity, "dupdone"
SetFieldValue "action_info", _
"Original " & parent_id & " is tested"
' commit the record to the database if validation returns no
' errors
status = entity.Validate
if status = "" then
entity.Commit
else
entity.Revert
End If
Next
End If
my($session); # The current Session object
my($links); # The reference to the links collection object
my($link);
my($cnt);
my($itm);
my($childID);
if ($entity->HasDuplicates()) {
$session = $entity->GetSession();
$links = $entity->GetDuplicates();
$session->OutputDebugString("links is " . $links . "(" . ref ($links) .
")\n" );
$cnt = $links->Count();
$session->OutputDebugString("count is " . $cnt . "(" . ref ($cnt) .
")\nchildren:\n" );
for ($i = 0; $i<$cnt; $i++) {
$itm = $links->Item($i);
$session->OutputDebugString("Item is " . $itm . "(" . ref ($itm) . ")\n";
$childID = $itm->GetChildEntityId();
$session->OutputDebugString($childID . "\n" );
}
$session->OutputDebugString("done");
}
else {
}