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