Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #21  
Antiguo 09-05-2011
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 27
Caral Va por buen camino
Hola
Ni idea...
Saludos
__________________
Siempre Novato
Responder Con Cita
  #22  
Antiguo 10-05-2011
Rofocale Rofocale is offline
Miembro
 
Registrado: mar 2010
Posts: 182
Poder: 17
Rofocale Va por buen camino
Código Delphi [-]
        dmDatos.cdsCliente.Active := false;
        with dmDatos.qryListados do begin
            Close;
            SQL.Clear;
            SQL.Add('SELECT caja, numero, fecha, hora, estatus, total-iva AS subtotal,');
            SQL.Add('iva, total,cliente, clave FROM ventas');

            if(chkCliente.Checked) then
            begin
                SQL.Add('AND cliente IN (SELECT clave FROM clientes WHERE nombre LIKE ''%' + txtClienteBusq.Text + '%'')');
            end;

            if(chkFecha.Checked) then
            begin
                with dmDatos.qryConsulta do
                begin
                if Active then Close;
                SQL.Clear;
                SQL.Add('SELECT fecha,total,sum(total) AS gtotal FROM ventas WHERE fecha = :fecha GROUP BY fecha,total');
                parambyname('fecha').AsDate := FechaBusq.date;
                open;
                txtTotalventa.text := floattostr(FieldByName('gtotal').AsFloat);
                end;
            end;
            open;

hola esto es lo que hize ahora pero al apretar el check para seleccionar una fecha no filtra por fecha siguen apareciendo todas las fecha y en el edit no suma el sum(total) de todos los campos solo aparece del primer campo de la fecha si en el dia 6 hay 2 campos con un total de 2.5 y 3.5 en ves de salir 6 sale solo 2.5 alguien me da una mano ?
gracias
Responder Con Cita
  #23  
Antiguo 10-05-2011
Rofocale Rofocale is offline
Miembro
 
Registrado: mar 2010
Posts: 182
Poder: 17
Rofocale Va por buen camino
Código Delphi [-]
  if(chkFecha.Checked) then
     begin
               dmDatos.cdsCliente.Active := false;
                with dmDatos.qryListados do
                begin
                if Active then Close;
                SQL.Clear;
                SQL.Add('SELECT f.caja, f.numero, f.fecha, f.hora, f.estatus, f.total-f.iva AS subtotal,f.iva, f.total,f.cliente, f.clave, sum(f.total) AS gtotal FROM ventas f WHERE f.fecha = :fecha GROUP BY f.caja, f.numero, f.fecha, f.hora, f.estatus,f.iva, f.total,f.cliente, f.clave');
                parambyname('fecha').AsDate := FechaBusq.date;
                open;
                txtTotalventa.text := floattostr(FieldByName('gtotal').AsFloat);
                end;

            with dmDatos.cdsCliente do begin
            Active := true;

            txtRegistros.text := inttostr(dmDatos.cdsCliente.RecordCount);
            FieldByName('caja').DisplayLabel := 'Caja';
            FieldByName('caja').DisplayWidth := 4;
            FieldByName('numero').DisplayLabel := 'Remisión';
            FieldByName('numero').DisplayWidth := 8;
            FieldByName('fecha').DisplayLabel := 'Fecha';
            FieldByName('fecha').DisplayWidth := 9;
            FieldByName('hora').DisplayLabel := 'Hora';
            FieldByName('hora').DisplayWidth := 11;
            FieldByName('estatus').DisplayLabel := 'Estatus';
            FieldByName('estatus').DisplayWidth := 7;
            FieldByName('subtotal').DisplayLabel := 'Subtotal';
            FieldByName('subtotal').DisplayWidth := 10;
    
            FieldByName('iva').DisplayLabel := 'IGV';
            FieldByName('iva').DisplayWidth := 10;
           
            FieldByName('total').DisplayLabel := 'Total';
            FieldByName('total').DisplayWidth := 10;
  
            FieldByName('cliente').Visible := false;
    
            FieldByName('clave').Visible := False;

           end;
    end

hola necesito saber como podria arreglar este codigo en la parte de group by.. ya que no me funciona bien el filtro

al probarlo de esta forma
Código Delphi [-]
SQL.Add('SELECT f sum(f.total) AS gtotal FROM ventas f WHERE f.fecha = :fecha');
                parambyname('fecha').AsDate := FechaBusq.date;
                open;
.....

el filtro funciona bien osea me suma los campos por fecha pero obviamente no me muestra nada mas que el resultado en el edit ya que no tengo mas campos agregados.. pero si les agrego los campos como en el codigo de arriba al select
me pide un group by clause
agrego el group by y los campos

pero a probarlo ya no me suma los campos correctamente y ya no filtra por fecha aparecen todos los registros de todas las fechas y al sumar solo suma el primer campo

alguien me ayuda.. que estoy haciendo mal

gracias
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
sumar campos cmm07 Varios 2 23-03-2009 16:21:08
Sumar valores con stringgrid zero_dx Varios 2 16-10-2007 20:02:01
sumar columnas en stringgrid Choclito Varios 1 11-05-2006 15:26:59
Sumar los campos de 3 tablas luisreg SQL 2 28-01-2004 02:34:41
Sumar campos de una consulta? danytorres Varios 1 10-11-2003 15:52:57


La franja horaria es GMT +2. Ahora son las 01:03:41.


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