Este es el código del evento, donde PSaldoCta es una propiedad para sostener la suma.
procedure TmoduloDato2.ResumenVtaCalcFields(DataSet: TDataSet);
begin
PSaldoCta := PSaldoCta + ((ResumenVta.FieldByName('Debe').value) - (ResumenVta.FieldByName('Haber').value)) ;
ResumenVta.FieldByName('Saldo').value := PSaldoCta ;
end;
Reitero que el problema es que al mover el cursor en forma vertical, se dispara nuevamente el cáculo. En la ayuda dice que si la propiedad AutoCalcFields = falso este comportamiento no debería existir, o sea el evento OnCalculate no se debería disparar. ???
Gracias por ocuparte
|