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
  exeyi çalışan process altına ekleme dkadir 4 181 08-09-2018, Saat: 14:34
Son Yorum: QuAdR
  Delphi'de Görev Zamanlayıcı Ekleme Halil Han Badem 9 290 06-08-2018, Saat: 11:17
Son Yorum: Halil Han Badem
  RAD da klasöre unit ekleme ? Gürcan 10 421 25-07-2018, Saat: 21:07
Son Yorum: Fesih ARSLAN
  kod ile oluşturulan butona olay ekleme arsl01 22 881 11-07-2018, Saat: 08:36
Son Yorum: ssahinoglu
  Lookupcombobox ile yeni kayıt ekleme canbir 2 237 21-06-2018, Saat: 10:01
Son Yorum: adelphiforumz



Konuyu Okuyanlar: 1 Ziyaretçi