debe y haber

[roman]

Podrías agregar dos campos calculados al AdoTable: Debe y Haber y asignarles su valor en el evento OnCalcFields:

Código Delphi [-]
procedure TForm1.AdoTable1CalcFields(DataSet: TDataSet);
var
  Movimiento: Currency;

begin
  Movimiento := DataSet.FieldByName('movimiento').AsCurrency;
  if Movimiento >= 0 then
  begin
    DataSet.FieldByName('debe').AsCurrency := Movimiento;
    DataSet.FieldByName('haber').AsCurrency := 0;
  end
  else
  begin
    DataSet.FieldByName('debe').AsCurrency := 0;
    DataSet.FieldByName('haber').AsCurrency := -Movimiento;
  end;
end;

Alimentas al QuickReport con esto y tendrás tus dos columnas.

// Saludos