Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Başlık ekleme
#1
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;

Hayat bazen güzel olabiliyor.
Cevapla
#2
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...
There's no place like 127.0.0.1
WWW
Cevapla
#3
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
{ talk is cheap show me the code. }
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Lookupcombobox ile yeni kayıt ekleme canbir 2 83 21-06-2018, Saat: 10:01
Son Yorum: adelphiforumz
  Quick Report ile boş satır ekleme boreas 1 112 10-04-2018, Saat: 18:53
Son Yorum: boreas
Smile Bileşenden bileşen türetme veya özellik ekleme Lord_Ares 3 466 11-12-2017, Saat: 13:40
Son Yorum: mad85
Question Uzak Bir Bilgisayar İçin Port Ekleme? hyperxman 21 1.236 22-11-2017, Saat: 00:03
Son Yorum: nguzeller
Video Exe ye mp3 ekleme dilo 2 344 14-11-2017, Saat: 17:25
Son Yorum: dilo



Konuyu Okuyanlar: 1 Ziyaretçi