Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Sumar los Datos de un Report provenientes de una consulta (https://www.clubdelphi.com/foros/showthread.php?t=1073)

judoboy 03-06-2003 18:12:56

Sumar los Datos de un Report provenientes de una consulta
 
Sumar los Datos de un Report provenientes de una consulta.
Para esto he probado con varias cosas
una con un QRExprexion SUM(DIETAS)
y no me funciona otra mediante una consulta.

Código:

{DIETAS}
TRY
 SentenciaDietas:='SELECT SUM(LP.DIETAS) FROM
LINEAS_PARTE_TRABAJO LP, PARTES_TRABAJO P '+
' WHERE LP.EMPLEADO="'+DBEditCodigo.Text+'"
AND LP.CODIGO_PARTE=P.CODIGO ';

  {información sobre la fecha de los Partes}
    try
        begin    {FECHA PARTES}
            if EditDespuesDe.Text<>'' then
                SentenciaDietas:=SentenciaDietas+' AND
 P.FECHA>="'+FormatDateTime
                ('mm/dd/yyyy',
StrToDate(EditDespuesDe.Text))+'"';
            if EditAntesDe.Text<>'' then
                SentenciaDietas:=SentenciaDietas+' AND
 P.FECHA<="'+FormatDateTime
                ('mm/dd/yyyy',
StrToDate(EditAntesDe.Text))+'"';
        end;
      except
            on EConvertError do
              begin
                  Application.MessageBox('Error al
                  introducir la fecha',
                  'ERROR',Mb_Ok+Mb_IconInformation);
                  FrmPartesTrabajoEmpleado.ModalResult:=0;
                  Exit;
              end;
      end;


    ConsultasDietas.Active:=false;
    ConsultasDietas.Sql.Clear;
    ConsultasDietas.Sql.Add(SentenciaDietas);
    ConsultasDietas.Active:=True;

 except
  Application.MessageBox('No se han podido
 calcular bien las dietas',
  'Imposible',Mb_IconInformation+Mb_Ok);


 end;


Haciendo lo anterior para otros dos campos de la tabla me funciona correctamente, pero para este no porque puede ser??


La franja horaria es GMT +2. Ahora son las 18:51:03.

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