Devuelve el tipo de suceso que ha causado la invocación de enganche. Es una propiedad de sólo lectura; se puede visualizar, pero no se puede establecer.
VBScript
eventObject.EventType
Perl
$eventObject->EventType();
VBScript
Dim eventType
eventType = param.EventType
if eventType = AD_BUTTON_CLICK Then
SetFieldValue "KeyCustomer", "Company A"
elseif eventType = AD_CONTEXMENU_ITEM_SELECTION Then
SetFieldValue "KeyCustomer", "Company B"
end if
Perl
my $eventType;
$eventType = $param->EventType();
if ($eventType == $CQPerlExt::CQ_BUTTON_CLICK) {
$entity->SetFieldValue("KeyCustomer", "Company A");
} else {
if ($eventType == $CQPerlExt::CQ_CONTEXMENU_ITEM_SELECTION) {
$entity->SetFieldValue("KeyCustomer", "Company B");
}
}