Ayuda con SQL

[marcial]

Hola a todos:
Aunque tengo que agradecer a todos vuestro aporte, tengo que decirle a Olbeup que el resultado no es el deseado. Tiene que ser un matiz que no doy con el. Os adjunto el resultado con el dódigo de Olbeup para ver si se puede retocar. La Imagen de la izda es el fichero completo de lineas y la de la derecha deberían ser los codigos comprados por el cliente 5191 y deberían ser sólo cuatro lineas:

BACON AHUMADO precio: 3,42 Fecha: 05.12.2012 Documento: 60
JAMON FRESCO SIN HUESO precio: 3,25 Fecha: 05.12.2012 Documento: 61 (En el docmto hay dos apuntes al Jamon)
CODILLO DE CERDO precio: 2,40 Fecha: 05.12.2012 Documento: 61
PANCETA FRESCA CON HUESO precio: 2,22 Fecha: 05.12.2012 Documento: 61

el código utilizado es:

Código Delphi [-]
Lineas1.Active := True;
SQL1 := 'SELECT DESCRIPCION ,DOCUMENTO ,CANTIDAD ,PRECIOVENTA , FECHA ,CODCLIENTE, SERIE, ARTICULO, HORAGRABACION ' +
       'FROM Lineas ' +
       'WHERE FECHA IN(SELECT MAX(FECHA) FROM Lineas GROUP BY DESCRIPCION, CODCLIENTE) ' +
        'AND CODCLIENTE = ''' + Edit4.Text + '''';
CONSULTAQUERYLINEAS;

El programa de Albaranes tiene un DBGrid a la izquierda con el pedido que me va haciendo ESE dia el cliente(sobre el Fichero LINEAS), y el DBGrid de la derecha debe contener TODOS los articulos que se ha llevado antes para que yo los vea y se los vaya recordando por telefono con su último precio.(Tambien sobre Fichero LINEAS). Por eso he puesto otro dataset Lineas1 para que al ejecutar el SQL me deje correctos los dos DBGRID (uno sobre cada dataset) que en realidad son los dos sobre el mismo fichero.

Gracias a todos por vuestro tiempo y esfuerzo.

[Gallosuarez]

Marcial:

Veo que hablas del códigos de los demás, sin embargo no encuentro ninguna referencia al mio. ¿Ya lo probaste? (No lo desprecies solo por pensar que es una simple sentencia SQL). Haz un "copy-paste" del código que publiqué y nos cuentas (no te va a llevar mas de 2 minutos).

Saludos,

[marcial]

Gallosuarez:
Siento mucho que hayas pensado que he despreciado tu codigo por ser una sentencia SQL. Yo no desprecio ningun código de nadie que sabe más que yo.
He probado tu código y lo que pasa es que me aparecen 10 columnas del fichero de lineas, pero no guardan la relación que yo deseo, que es la última de cada articulo (fecha y hora) comprado por el cliente que sea.
Si no he mencionado a todos los que tan amablemente me habeis prestado ayuda, lo siento, pero es porque trato de arreglar el problema con los códigos que me poneis y estoy prueba que prueba con la lengua fuera.
Pido perdón humildemente a todos.
Marcial

[olbeup]

Empezado por marcial

Hola a todos:
Aunque tengo que agradecer a todos vuestro aporte, tengo que decirle a Olbeup que el resultado no es el deseado. Tiene que ser un matiz que no doy con el. Os adjunto el resultado con el dódigo de Olbeup para ver si se puede retocar. La Imagen de la izda es el fichero completo de lineas y la de la derecha deberían ser los codigos comprados por el cliente 5191 y deberían ser sólo cuatro lineas:

BACON AHUMADO precio: 3,42 Fecha: 05.12.2012 Documento: 60
JAMON FRESCO SIN HUESO precio: 3,25 Fecha: 05.12.2012 Documento: 61 (En el docmto hay dos apuntes al Jamon)
CODILLO DE CERDO precio: 2,40 Fecha: 05.12.2012 Documento: 61
PANCETA FRESCA CON HUESO precio: 2,22 Fecha: 05.12.2012 Documento: 61

el código utilizado es:
Código Delphi [-]Lineas1.Active := True;
SQL1 := 'SELECT DESCRIPCION ,DOCUMENTO ,CANTIDAD ,PRECIOVENTA , FECHA ,CODCLIENTE, SERIE, ARTICULO, HORAGRABACION ' +
'FROM Lineas ' +
'WHERE FECHA IN(SELECT MAX(FECHA) FROM Lineas GROUP BY DESCRIPCION, CODCLIENTE) ' +
'AND CODCLIENTE = ''' + Edit4.Text + '''';
CONSULTAQUERYLINEAS;




El programa de Albaranes tiene un DBGrid a la izquierda con el pedido que me va haciendo ESE dia el cliente(sobre el Fichero LINEAS), y el DBGrid de la derecha debe contener TODOS los articulos que se ha llevado antes para que yo los vea y se los vaya recordando por telefono con su último precio.(Tambien sobre Fichero LINEAS). Por eso he puesto otro dataset Lineas1 para que al ejecutar el SQL me deje correctos los dos DBGRID (uno sobre cada dataset) que en realidad son los dos sobre el mismo fichero.

Gracias a todos por vuestro tiempo y esfuerzo.

Hola marcial,

Efectivamente tienes razón, y he realizado otra SQL que hace lo que pide.

Código SQL [-]
SELECT
    L1.ARTICULO
    ,L1.DESCRIPCION
    ,L1.CODCLIENTE
    ,(SELECT
          MAX(FECHA)
        FROM Lineas
        WHERE ARTICULO = L1.ARTICULO
     ) FECHAULTIMA
    ,(SELECT TOP 1
          PRECIOVENTA
        FROM Lineas
        WHERE ARTICULO = L1.ARTICULO
        ORDER BY FECHA DESC
     ) ULTIMOPRECIO
    ,(SELECT TOP 1
          HORAGRABACION
        FROM Lineas
        WHERE ARTICULO = L1.ARTICULO
        ORDER BY FECHA DESC
     ) HORAGRAB
    ,(SELECT TOP 1
          DOCUMENTO
        FROM Lineas
        WHERE ARTICULO = L1.ARTICULO
        ORDER BY FECHA DESC
     ) DOC
    ,(SELECT TOP 1
          CANTIDAD
        FROM Lineas
        WHERE ARTICULO = L1.ARTICULO
        ORDER BY FECHA DESC
     ) CANT
  FROM Lineas AS L1
  WHERE L1.CODCLIENTE = 5195
  GROUP BY L1.ARTICULO, L1.DESCRIPCION, L1.CODCLIENTE

Un saludo

P.D.: Esta vez sí, esto es SQL SERVER en el firebird tendrá que cambir el TOP por no se cual

[marcial]

Hola a todos:
Olbeup, muchas gracias por tu código. La sentencia equivalente a TOP es FIRST. Aparte de eso, he tenido que hacerle alguna pequeña modificación para que el resultado fuera el deseado (según se ve en el ejemplo que adjunto ya que no asociaba bien el cliente con las lineas).

Creo que el código, por si a alguien le hace falta en el futuro sería este:

Código Delphi [-]
 SQL1 := 'SELECT  L1.ARTICULO ,L1.DESCRIPCION ,L1.CODCLIENTE ,(SELECT MAX(FECHA) FROM Lineas WHERE ARTICULO = L1.ARTICULO AND CODCLIENTE = L1.CODCLIENTE) FECHA, ' +
         '(SELECT FIRST 1 SERIE FROM Lineas WHERE ARTICULO = L1.ARTICULO and CODCLIENTE = ''' + Edit4.Text + ''' ORDER BY FECHA DESC) SERIE, ' +
         '(SELECT FIRST 1 PRECIOVENTA FROM Lineas WHERE ARTICULO = L1.ARTICULO and CODCLIENTE = ''' + Edit4.Text + ''' ORDER BY FECHA DESC) PRECIOVENTA, ' +
         '(SELECT FIRST 1 HORAGRABACION FROM Lineas WHERE ARTICULO = L1.ARTICULO and CODCLIENTE = ''' + Edit4.Text + ''' ORDER BY FECHA DESC) HORAGRABACION, ' +
         '(SELECT FIRST 1 DOCUMENTO FROM Lineas WHERE ARTICULO = L1.ARTICULO and CODCLIENTE = ''' + Edit4.Text + ''' ORDER BY FECHA DESC) DOCUMENTO, ' +
         '(SELECT FIRST 1 CANTIDAD  FROM Lineas WHERE ARTICULO = L1.ARTICULO and CODCLIENTE = ''' + Edit4.Text + ''' ORDER BY FECHA DESC) CANTIDAD ' +
         '  FROM Lineas AS L1 ' +
         '  WHERE L1.CODCLIENTE = ''' + Edit4.Text + ''' GROUP BY L1.ARTICULO, L1.DESCRIPCION, L1.CODCLIENTE';

if pFIBTransaction1.InTransaction then pFIBTransaction1.CommitRetaining;
pFIBTransaction1.StartTransaction;
LINEAS.Close;
LINEAS.SelectSQL.Clear;
LINEAS.SelectSQL.Add(SQL1);
LINEAS.QSelect.ExecQuery;
pFIBtransaction1.CommitRetaining;
LINEAS.Open;

Por tanto, si es que no me corregis, doy el tema a solucionado gracias a todas las aportaciones recibidas. Todas han sido muy importantes de una u otra manera, pero especialmente la de Olbeup.

Muchas gracias.