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