debe y haber

[sflexas]

Vtdeleon, eso es exactamente lo que quiero. Me parecia algo comun y no tan raro. El tema es que lo quiero dentro de un Quickreport y no se como hacer para que cuando es debe no me aparezca nada en la columna haber y lo inverso de esto. El invonveniente surge por ser el mismo campo (segun vos Movimiento)

[[Lepe]]

sflexas sigues sin decir los componentes de acceso a la BD (ado, bde, ibx) ni tampoco la BBDD en sí (paradox, firebird,...). No creas que vamos a poner la solución para todas las Bases de datos que existen.

saludos.

[sflexas]

Ok, Componentes Ado , base de datos Sql server 7.0 reportes Qreport. Calculo que la solucion esta en el qreport y no en la conexion a la base de datos ni en el manejode las componentes.Gracias por la paciencia

[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