var ValorAnterior: string;
Sombra : boolean;
procedure TDataModule.TablaBeforeOpen(DataSet: TDataSet);
begin
Sombra := False;
ValorAnterior := '';
end;
procedure TDataModule.TablaOnCalcFields(DataSet: TDataSet);
begin
if (ValorAnterior<>TablaNRO_ASIENTO.AsString) then
Sombra := not Sombra;
TablaCAMPO_CALCULADO_SOMBRA.AsBoolean := Sombra;
end;