calcular porcentaje

[lucas05]

Hola, muchas gracias a todos por su ayuda, pero sigo sin poder hacer que funcione.
Este es el código que uso (al compilar no aparece ningún error), espero que puedan ayudarme a encontrar el problema.

Código Delphi [-]
   Try
       QuickReport1:=TQuickReport1.Create(self);
       QuickReport1.ADOQuery1.SQL.Add('select tablaA.ta_fecha');
      QuickReport1.ADOQuery1.SQL.Add('tablaA.ta_total-(tablaA.ta_total * tablaB.tb_porcentaje/100) as descuento');
       QuickReport1.ADOQuery1.SQL.Add('from tablaA, tablaB');
      QuickReport1.ADOQuery1.SQL.Add('where tablaA.ta_descuento = tablaB.tb_id');
       QuickReport1.ADOQuery1.SQL.Add('and ta_fecha between'+QuotedStr(FormatDateTime('yyyy/mm/dd',DateTimePicker1.Date))
       +'AND'+QuotedStr(FormatDateTime('yyyy/mm/dd',DateTimePicker2.Date)));


       QuickReport1.ADOQuery1.Open;
       QuickReport1.QRDBText1.DataField:='ta_fecha';
       QuickReport1.QRDBText2.DataField:='descuento';

       QuickReport1.Preview;
      finally
       QuickReport1.Free;
      end;

Gracias.

[ecfisa]

Hola Lucas.

¿ Ya probaste poniendo el TQRDBText en un componente TQRSubDetail con la propiedad DataSet del mismo igual a ADOQuery1 como te sugerí ?

No te confundas con un componente TQRBand que tiene su propiedad BandType igual a rbSubDetail ya que no es lo mismo.

Saludos.

[lucas05]

Hola ecfisa, si seguí tu consejo(gracias), el problema aparece cuando tiene que realizar el cálculo.
El problema esta en esta linea

Código Delphi [-]
QuickReport1.ADOQuery1.SQL.Add('tablaA.ta_total-(tablaA.ta_total * tablaB.tb_porcentaje/100) as descuento');

Gracias.

[ecfisa]

Empezado por lucas05

Hola ecfisa, si seguí tu consejo(gracias), el problema aparece cuando tiene que realizar el cálculo.
El problema esta en esta linea

Código Delphi [-]
QuickReport1.ADOQuery1.SQL.Add('tablaA.ta_total-(tablaA.ta_total * tablaB.tb_porcentaje/100) as descuento');

Gracias.

Hola lucas.

¿ Que problema te aparece, te dá algún error en tiempo de ejecución ?


Saludos.

[lucas05]

Hola, gracias por su ayuda, por fin pude hacerlo funcionar bien.
Pero apareció otro problemita, cuando el resultado es un número con decimales,como puedo hacer para que solo muestre hasta con dos decimales.

Muchas Gracias

[ecfisa]

Hola Lucas.

Por favor, poné tu nueva pregunta en un nuevo hilo. (Guía de estilo punto ocho)


Un saludo y gracias por tu colaboración