Ejemplo
Perl
my($FieldNamesRef) = $entity->GetFieldNames();
# Bucle a través de los campos, mostrando el nombre, el tipo,
# los valores anterior/nuevo...
foreach $FN (@$FieldNamesRef) {
# Obtener el valor original del campo...
$FieldInfo = $entity->GetFieldOriginalValue($FN);
$FieldValueStatus = $FieldInfo->GetValueStatus();
if ($FieldValueStatus == $CQPerlExt::CQ_HAS_NO_VALUE) {
$OldFV = "<no value>";
} elsif ($FieldValueStatus == $CQPerlExt::CQ_VALUE_NOT_AVAILABLE) {
$OldFV = "<value not available>";
} elsif ($FieldValueStatus == $CQPerlExt::CQ_HAS_VALUE) {
$OldFV = $FieldInfo->GetValue();
} else {
$OldFV = "<Invalid value status: " . $FieldValueStatus . ">";
}