çalışan kod
Kod: Tümünü seç
procedure TGUNLUK_STOK_RAPORU.SpeedButton1Click(Sender: TObject);
begin
Memo1.Clear;
MyQuery1.Close;
MyQuery1.SQL.Clear;
with MyQuery1,SQL do
begin
// Add('select u.Urun_Kodu,u.Urun_adi,u.Fiili_Stok_Sayisi, sum(sk.Urun_Adeti) Urun_Adeti ,u.toplam ');
// Add('from urun_kartlari u ');
// Add('inner join siparisler_detay sk on u.Urun_Kodu=sk.Urun_Kodu ');
// Add('where Siparis_Tarihi>=:tar1 and Siparis_Tarihi<=:tar2 ');
// Add('group by u.urun_kodu,u.Urun_adi,u.Fiili_Stok_Sayisi,u.Toplam ');
Add('select deneme.Urun_Kodu,deneme.Urun_adi,deneme.Fiili_Stok_Sayisi,');
Add('coalesce((select sum(coalesce(sk.Urun_Adeti,0)) from siparisler_detay sk ');
Add('where deneme.Urun_Kodu=sk.Urun_Kodu and Siparis_Tarihi>=:tar1 and Siparis_Tarihi<=:tar2),0.0) Urun_Adeti ');
Add('from urun_kartlari deneme');
ParamByName('tar1').Value:=StrToDate(DateToStr(DateTimePicker1.Date));
ParamByName('tar2').Value:=StrToDate(DateToStr(DateTimePicker2.Date));
end;
// SIPARIS_DETAYLARI_DB.ParamByName('tar1').Value:=StrToDate(DateToStr(DateTimePicker1.Date));
// SIPARIS_DETAYLARI_DB.ParamByName('tar2').Value:=StrToDate(DateToStr(DateTimePicker2.Date));
// if RzButtonEdit9.Text<>'' then begin
// SIPARIS_DETAYLARI_DB.SQL.Add(' and Sevkiyat_Teslim_Eden='+QuotedStr(RzButtonEdit9.Text)+'');
// End;
Memo1.Lines.add(MyQuery1.SQL.Text);
MyQuery1.Open;
end;