Crear QRExpression
 

Hola a tod@s:


la situación que tengo en en día de hoy es la siguiente:

estroy creando un reporte en el cual se defiene varias banda, encabezado, detalle, pie de página; a estas banda le adiciono una Summary en la cual he colocado un QRExpression, el cual no funciona.

ele código es el siguiente

Código Delphi [-]
constructor TQRReporteListadoLecturas.Create(pCodigoPeriodo,
  pCodigoAno: Integer; pNombreMes : string);
Var pTabla : string;
    i_local : Integer;
begin
  inherited Create(nil);
  Consumo_local:= 0;
  Basico_local:= 0;
  Complementario_local:= 0;
  Suntuario_local:= 0;
  Self.QRLNombreReporte.Caption:= 'Listado de Lecturas de ' + pNombreMes + 'de ' + IntToStr(pCodigoAno);

  if ((pCodigoPeriodo = GetCampo('DatosLiquidacion','CodigoPeriodo')) and (pCodigoAno = GetCampo('DatosLiquidacion','CodigoAno'))) then
    pTabla:= 'Lecturas'
  else pTabla:= 'HistoricoConsumos';

  QlistadoLecturas_Temporal:= CrearConsulta;
  with QlistadoLecturas_Temporal do
    begin
      sql.Text:= ' Select Zona,s.CodigoSuscriptor, Ruta, Apellidos, Nombres, LecturaAnterior, LecturaActual, Consumo, Basico, Complementario, Suntuario ' +
                 ' From Suscriptores s, ' + pTabla +  ' l ' +
                 ' Where s.CodigoSuscriptor = l.CodigoSuscriptor ' +
                 ' And CodigoPeriodo =  ' + IntToStr(pCodigoPeriodo) +
                 ' And CodigoAno = ' + IntToStr(pCodigoAno) +
                 ' Order by s.CodigoSuscriptor ';
      Open;
    end;

  try
    self.DataSet:= QlistadoLecturas_Temporal;
    for i_local:= 0 to ComponentCount -1 do
    if Components[i_local] is TQRDBText then
      Try
        TQRDBText(Components[i_local]).DataSet:= Self.DataSet;
      Except on e:exception do
         ShowMessage(Components[i_local].Name + ' ' +  e.Message);
      End;
  except on exception_local : Exception do
    ShowMessage('ERROR -> ' + exception_local.Message);
  end;

   Self.QREConsumo.Expresion:= SUM(QlistadoLecturas_Temporal.Consumo);
End;

bien como se puede ver en el constructor se crea la consulta que sirve como base en el dataset y se plantea ademas la expresion en el QRExpresion, en orden de ideas muestra el reporte pero en el QREpresion no muestra nada.

Agradezco de antemano el tiempo y los comentarios que puedan hacer.



Atentamente



gertorresm
Colombia