Başlık ekleme

[Dostk]

Merhaba,

Ürünlerin olduğu bir database var iki tarih arası, haftalık olarak excele raporlama yapılacak kritere uygun olanlar listelenecek.
Listelemede hiç bir sıkıntı yok fakat, listelen ürünlere başlık olarak tarih eklemek isitiyorum bunu nasıl yapabilirim?

Örnek:
     15.01.2018 
1 ELMA 15.01.2018 
2 ARMUT 15.01.2018 
3 KİTAP 15.01.2018 

     16.01.2018 
1 TELEFON 16.01.2018 
2 UÇAK 16.01.2018 
3 KİTAP 16.01.2018 

     17.01.2018 
1 MASA 17.01.2018
2 ARMUT 17.01.2018 
3 KİTAP 17.01.2018 

      SQL.Clear;
      SQL.Add('Select * From URUNLER);
      SQL.Add('Where ACIKLAMA=:BUL And TARIH BETWEEN :TRH1 And :TRH2 Order By TARIH ASC, SIRANO');
      ParamByName('BUL').AsString := 'LOGOLU';
      ParamByName('TRH1').AsDate := IlkTarih.Date;
      ParamByName('TRH2').AsDate := SonTarih.Date;
      Open;
     

      Row := 3;
      while Not Eof do
      begin
        Sheet.Cells[1, 3] := FieldByName('TARIH').AsString;
        Sheet.Cells[2, 1] := 'GİRİŞİ';
        Sheet.Cells[2, 2] := 'ID';
        Sheet.Cells[2, 3] := '';
        Sheet.Cells[2, 4] := 'GİRİŞİ';
        Sheet.Cells[2, 5] := '';
        Sheet.Cells[2, 6] := 'ÇIKIŞI';
        Sheet.Cells[2, 7] := '';
        Sheet.Cells[Row, 1] := FieldByName('SIRANO').AsString;
        Sheet.Cells[Row, 2] := FieldByName('TARIH').AsString;
        Sheet.Cells[Row, 3] := FieldByName('URUNADI').AsString;
        Inc(Row);
        Next;
      end;

[SimaWB]

Ben olsam; döngü içindeki tarih değerini bir değişkende tutarım. Bir sonraki seferde değişip değişmediğini kontrol ederim.
Değişmiş ise ilk hücreye tarihi yazıp satır numarasını artırıp devam ederim...

[Abdullah ILGAZ]

Merhaba,

Raporu niçin stok kartlarını tuttuğunuz tablodan vermek istiyorsunuz? Şayet ürün-gün eşleşmesi varsa, bunu stok hareketlerinizi tutacağınız stok hareket tablosunda hali hazırda çekersiniz. Where koşulunuz iki tarih arası olur ve her sütun kendi tarihini muhafaza eder.

Peş peşe 3 gün sadece ELMA için;

ELMA - 10 ADET - 01.02.2018
ELMA - 10 ADET - 02.02.2018
ELMA - 10 ADET - 03.02.2018