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
Ü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;
Hayat bazen güzel olabiliyor.