debe y haber

[vtdeleon]

Saludos
Bueno, aún no entiendo...pero dejame aventurarme.

****Estructura actual****

Cliente   Nombre
000001  Juan
000002  Mario

Cliente    Movimiento
000001         234.00
000001         543.00
000002         193.00
000001        -832.00
000002        -423.00
000002        -100.00
****Estructura Deseada****

Cliente   Nombre   Debe    Haber
000001    Juan...  234.00
000001    ......   543.00
000001    .......          832.00
000002    .......  193.00
000002    .......          423.00
000002    .......          100.00

Es esto lo que deseas?

[Casimiro Noteví]

Te das cuenta sflexas, ahí tienes a vtdeleon suponiendo, imaginando, aventurando qué es lo que quieres y qué es lo que tienes.

Debes decir: tengo una tabla con estos campos: xxx, yyy, zzz y otra tabla con estos otros campos: aaa,bbb,ccc y quiero obtener el siguiente resultado: bla,bla,bla......

Esta es la contestación número 8 después de que formularas tu pregunta y todavía no sabemos exactamente qué tienes y qué quieres.

Porfa, sé un poquito más explícito, no eres el incomprendido sflexas, es que no somos adivinos.

Saluditos.

[quimeras]

Tampoco conocemos el sistema de base de datos que utilizas, sflexas.
Por ejemplo, en Firebird/Interbase sería muy facil de hacer dentro de un procedimiento almacenado:

 	 if (Importe >=0) then begin
 		Debe = Importe;
 		Haber = 0;
 	 end
 	 if (Importe < 0) then begin
 		Debe = 0;
 		Haber = 0 - Importe;
 	 end

[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