auda con TQRExpresion !!!!!!!!!!!!

[david_uh]

hola foro estoy haciendo unpequeño gestor de evento y estoy creando controles qrlabel, etc.He creado un TQRExpresion para contar los registros en la seccion sumary

Código Delphi [-]
 exp := TQRExpr.Create(sumary);
exp.Parent := sumary;
exp.Expression := 'COUNT';

y trabaja bien, ahora deseo un TQRExpresion para hallar la suma de algun campo

Código Delphi [-]
 exp := TQRExpr.Create(sumary);
exp.Parent := sumary;
exp.Expression := 'SUMUM(Z.Saldo);

Z es el componente ZQuery que es el data source del reporte, pero no arroja ningun resultado aparece pero nada no bota resultado. pero si lo hago en tiempo de diseño si trabaja mas no si el objeto es creado en tiempo de ejecucuin.

gracias por cualquier respuesta

[jhonny]

A modo global solo veo que...

Código Delphi [-]
exp.Expression := 'SUMUM(Z.Saldo);

Debería ser:

Código Delphi [-]
 
exp.Expression := 'SUM(Z.Saldo)';

Si no es eso, verifica, colocando en la propiedad master el nombre del TQuickReport.

[david_uh]

Empezado por jhonny

A modo global solo veo que...

Si no es eso, verifica, colocando en la propiedad master el nombre del TQuickReport.

si es SUM(z.ID)
estaba bien sino que lo pie mal ya probe com mastesr pero nada igual ono aparece nada, gracias por tu respuesta

[[egostar]]

En que parte de tu código estás creando el objeto TQRExp, yo lo haría antes de ejecutar el Query y obviamente antes de generar el Qreport.

Salud OS.

[david_uh]

si estoy yendo asi
1.- le asigno la conexion
2.- le asigno una cadena de consulta SQL
3.- agrego los campos del informe
3.- activo los resumente

cada accion se corresponde con un metodo del gestor de informes

Código Delphi [-]
Conexion      := DM.ZConnectionRimacy;
SQL           := 'SELECT * FROM qry_clientes where id < 20';
TituloInforme := 'Cliente vigentes';
AddDetail('id','id',30);
AddDetail('Nombre Cliente','Cliente',50);
AddDetail('Dirección','Direccion',50);
VerNroRegistros := True; // muestra correctamente nro de registros
AgregaCampoSumar('id','ventas'); // no muestra nada
VistaPrevia;

[david_uh]

solo para redondear estoy trabajando con Zeos y mysql 5 me parece que el problem es que no suma valores enteros o longint que es el campo intenger de mysql mas si lo demas campos float

[[egostar]]

Pero donde estás generando el código del QRExpr, no lo veo en tu post.

Salud OS.

[adfa]

No se si te sirva, yo hago algo parecido pero lo hago con este código:

Código Delphi [-]
var
   nume,larpie, lefi, indice: integer;
   mascara, pie: string;
begin
// otro  trozo de código que no viene al caso

/// aca creo el TQRExpr
   with TQRExpr((frmreporte.FindComponent('Pie'+pie) as TQRBand).AddPrintable(TQRExpr)) do
   begin
      name            := 'Total'+pie+listotal.Items[indice];
//aca las posiciones delos totales
      AutoSize        := false;
      left            := lefi;
      width           := larpie;
      mask            := mascara;
      Alignment       := taRightJustify;
      frame.DrawTop := true;
      expression      := 'SUM(dbreport.'+listotal.Items[indice]+')';
      resetafterprint := true;
   end;

Saludos

[david_uh]

bien gracias por sus respuestas. el problema siempr fué que estaba intentando sumar o totalizar un campo numérico de una tabla mysql, de tipo integer, que en delphi es longint y que al parecer TQRExpr, no totaliza , mas bien con campos float si lo hace. Les doy este alcance por si alguna vez tienen este tipod e dificultar

Gracias por sus respuestas