calcular porcentaje

[ecfisa]

Hola Lucas.

El motivo que no te lo muestre puede ser por el tipo de banda donde se encuentre el TQRDBText. Si está ubicado en un TQRSubDetail con su propiedad DataSet = ADOQuery1, tiene que mostrarte los precios descontados.

Sobre que es el campo 'descuento', es un alias que se le dá como nombre al resultado de la consulta (columna) tal como te explicó el amigo oscarac.

por ejemplo:

Código SQL [-]
SELECT TABLA_A.TOTAL - (TABLA_A.TOTAL * TABLA_B.DESCUENTO/100) AS PRECIO_REBAJADO
FROM TABLA_A, TABLA_B
WHERE TABLA_A.DESCUENTO = TABLA_B.ID
  AND TABLA_A.FECHA BETWEEN :DESDE AND :HASTA

La columna resultado tiene como nombre: PRECIO_REBAJADO .

Saludos.

[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