Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   auda con TQRExpresion !!!!!!!!!!!! (https://www.clubdelphi.com/foros/showthread.php?t=46189)

david_uh 25-07-2007 23:42:02

auda con TQRExpresion !!!!!!!!!!!!
 
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 25-07-2007 23:48:48

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 25-07-2007 23:54:55

Cita:

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 26-07-2007 00:03:14

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 26-07-2007 00:10:40

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 26-07-2007 02:20:52

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 26-07-2007 02:22:52

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

Salud OS.

adfa 26-07-2007 22:09:43

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 27-07-2007 19:10:48

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


La franja horaria es GMT +2. Ahora son las 16:56:21.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi