Sumar un el valor de un Label en report builder

[[Caral]]

Hola
Pues la verdad no lo se, me imagino algo asi:

Código Delphi [-]
procedure label41OnGetText (var Text : String);
Var suma: Real;
begin
   suma:= 0;
   if dbp_bien['campo11'] = 'Primera' then
   begin
    Text := (dbp_bien['VALOR']*60)
   end
   else if dbp_bien['campo11'] = 'Segunda' Then
   begin
    Text := (dbp_bien['VALOR']*12)
   end
   else if dbp_bien['campo11'] = 'Tercera' Then
   begin
    Text := (dbp_bien['VALOR']*4)
   end
   else if dbp_bien['campo11'] = 'P1' Then
   begin
    Text := (dbp_bien['VALOR']*1000)
   end
   else if dbp_bien['campo11'] = 'P2' Then
   begin
    Text := (dbp_bien['VALOR']*100)
   end
   else if dbp_bien['campo11'] = 'TRIPLETA' Then
   begin
    Text := (dbp_bien['VALOR']*10000)
   end;
  suma:= suma + StrToFloat(Text);
end;

No se, probar no cuesta nada.
Saludos

[Casimiro Noteví]

En lugar de usar una label, lo que tienes que hacer es usar una variable de tipo float, por ejemplo, y le le dices que sume. Es lo normal en cualquier generador de informes.

[Diana Carolina]

Hola,,,Yo estoy tratando de sumar dos campos que tengo en un qry en un componente variable de Report Builder.

valor := (QryPapeletaLocmontonetofracc.AsFloat + QryPapeletaLocvlrIva.AsFloat);
ppVNeto.Value := FormatFloat('#,0.00', Valor);

Pero en el reporte el dato es 0.00 deberia mostrarme el valor de la suma puesto que ambos campos contienen valores.

[Diana Carolina]

Podrian por favor ayudarme con este asunto...Gracias!

[[oscarac]]

Empezado por Diana Carolina

Podrian por favor ayudarme con este asunto...Gracias!

no conozco mucho Report Builder pero me imagino que el tratamiento debe ser igual
estas segura que esos campos tienen datos? son de tipo numerico? o float?

[Diana Carolina]

Claro, tienen datos, cuado recorro las lineas de codigo me muestran que datos tienen.

[Diana Carolina]

Son float...

[ecfisa]

Hola.

Al igual que oscarac no conozco R. Builder.

Pero se me ocurre que podés probar con una consulta, algo así:

Código Delphi [-]
 with qyPapeleta do
 begin
   Close;
   SQL.Text:= 'SELECT SUM(NETOFRACC)+SUM(LOCVLRIVA) AS TOTAL FROM TU_TABLA';
   Open;
 end;

Y suponiendo que 'ppVNeto' sea un XXDBText, asignar a la propiedad DataSource el DataSource de la consulta y como DataField al campo 'NETO'.
Si abrís la consulta en tiempo de diseño podrás seleccionar las propiedades desde el Object Inspector.

Saludos.

[Diana Carolina]

ppVNeto es un compnente variable de Report Builder, se supone que este compnente me deja hacer el calculo que requiero, Gracias.