Konu: select komutu
Set NullDisplay To "0"
Select Year(tarih) ,Month(tarih) Distinct From hst Where !Empty(tarih) Group By 1,2 Into Cursor seneler1
m.aylar=Reccount('seneler1')
Select Alltrim(asi)+"--"+Alltrim(gurup) asi,Sum(miktar) giren From fatura;
WHERE !Empty(asi) Group By 1 Into Cursor gelasi
Select Alltrim(asi)+"--"+Alltrim(gurup) asi, Sum(stok) stok From asilar ;
WHERE skul>Date()-1 Group By 1 Into Cursor stokasi
Select *," " gurup From asilama Into Cursor asilama1 Readwrite
Select asi
Go Top
Do While.T.
Select asilama1
Replace All gurup With asi.gurup For asilama1.asi=asi.asi
Select asi
If Eof() Or Bof()
Exit
Else
Select asi
Skip+1
Endif
Endd
Select asilama1
Select Alltrim(asi)+"--"+Alltrim(asilama1.gurup) asi, Sum(miktar) cikan, ;
Sum(Iif( Month(atar)=>1 And Month(atar)<4 , miktar, 0)) As ilkdort, ;
Sum(Iif( Month(atar)=>4 And Month(atar)<8 , miktar, 0)) As ortadort, ;
Sum(Iif( Month(atar)=>8, miktar, 0)) As sondort,Avg(miktar) ortalama1 ;
From asilama1 ;
Group By 1 ;
INTO Cursor bir
Select Alltrim(asi)+"--"+Alltrim(asi.gurup) asi From asi Group By 1 Into Cursor asi1 Readwrite
Select * From asi1;
LEFT Join bir;
on asi1.asi=bir.asi;
LEFT Join gelasi;
on asi1.asi=gelasi.asi ;
LEFT Join stokasi;
on asi1.asi=stokasi.asi ;
INTO Cursor asigenel
Select asi_a urunler,giren,cikan,stok,ilkdort,ortadort,sondort,"AŞI" gurup,Ceiling(ortalama1) ortalama1 From asigenel;
INTO Cursor asigenel Readwrite
Bu kod düzgün hale nasıl gelir ?
özellikle döngüden nasıl kurtulabilirim ?
Şimdiden teşekkürler.