fakat herhangi bir filtre yapamıyorum
Kod: Tümünü seç
procedure TGUNLUK_STOK_RAPORU.Button1Click(Sender: TObject);
var
B : TBookmark;
SiparisToplam : double ;
begin
URUN_KARTLARI_DB.first; // master tablomuzun ilk satırındayız ve detail tabloyu filtreledik
while not URUN_KARTLARI_DB.eof do
begin
SiparisToplam := 0;
try
B :=URUN_KARTLARI_DB.getbookmark; //master tablomuza nokta koyduk ki detail da gezerken
SIPARIS_DETAYLARI_DB.first; //sıramızı bozmasın
while not SIPARIS_DETAYLARI_DB.eof do //detail tablomuzun first une gittik ve artık ofirmanın
begin
SiparisToplam := SiparisToplam + SIPARIS_DETAYLARI_DB.FieldByName('Urun_Adeti').value ; //baştan aşşa
SIPARIS_DETAYLARI_DB.next; //dolaşarak total şipariş toplamını bulduk
end;
finally
URUN_KARTLARI_DB.GotoBookmark(B); //en son da master tablomuzdaki nokta koydugumuz yere geri döndük
URUN_KARTLARI_DB.edit; //master tablomuza edit açtık ve gerekli fielda sonucu postladı
URUN_KARTLARI_DB.FieldByName('Siparis_Sayisi').value:= '0' ;
URUN_KARTLARI_DB.FieldByName('Siparis_Sayisi').value:= SiparisToplam ;
URUN_KARTLARI_DB.FieldByName('Toplam').AsCurrency:= URUN_KARTLARI_DB.FieldByName('Fiili_Stok_Sayisi').AsCurrency - URUN_KARTLARI_DB.FieldByName('Siparis_Sayisi').AsCurrency;
URUN_KARTLARI_DB.post;
URUN_KARTLARI_DB.FreeBookmark(B);
end;
URUN_KARTLARI_DB.next; //yeni cari geçtik.
end;
end;SIPARIS_DETAYLARI_DB özellikleri
Bu Kod ise iki tarih aralığını filtreliyor yukarıdaki kod ile bu kodu nasıl birleştirebilirim?
Kod: Tümünü seç
procedure TGUNLUK_STOK_RAPORU.Button2Click(Sender: TObject);
begin
Memo1.Clear;
SIPARIS_DETAYLARI_DB.Close;
SIPARIS_DETAYLARI_DB.SQL.Clear;
SIPARIS_DETAYLARI_DB.SQL.Add('select * from siparisler_kayit where Siparis_Tarih>=:tar1 and Siparis_Tarih<=:tar2');
SIPARIS_DETAYLARI_DB.ParamByName('tar1').Value:=StrToDate(DateToStr(DateTimePicker1.Date));
SIPARIS_DETAYLARI_DB.ParamByName('tar2').Value:=StrToDate(DateToStr(DateTimePicker2.Date));
// SIPARIS_DETAYLARI_DB.SQL.Add(' and Siparis_Durumu='+QuotedStr('Iptal Edildi')+'');
// if RzButtonEdit9.Text<>'' then begin
// SIPARIS_DETAYLARI_DB.SQL.Add(' and Sevkiyat_Teslim_Eden='+QuotedStr(RzButtonEdit9.Text)+'');
// End;
Memo1.Lines.add(SIPARIS_DETAYLARI_DB.SQL.Text);
SIPARIS_DETAYLARI_DB.Open;
close
end;
çıkamıyorum bir türlü
