Foxta Çalışırken Exede neden çalışmaz

LOCAL yil 

ay=RECCOUNT()-1

Select asi,Sum(miktar) As giren From fatura WHERE gurup1="AŞI" AND !EMPTY(gurup1) Group By 1 Into Cursor fatasigiren11 READWRITE 

IF EMPTY(asi)

    DELETE

ENDIF      

SELECT asi,Sum(miktar) As cikan FROM asilama WHERE !EMPTY(asi) GROUP BY 1 INTO cursor aciklacik NOFILTER

SELECT asi,SUM(stok) as stok FROM asilar WHERE !EMPTY(asi) group BY 1 INTO CURSOR asilarstok11 NOFILTER

Select asi,COUNT(asi) As ihtiyac From randevu Group By 1 WHERE !EMPTY(asi) Into Cursor randevulart1 NOFILTER

*** dönemler

Select asi,Sum(miktar) As ilkdort From asilama WHERE (MONTH(atar)=>1 and  MONTH(atar)<4) Group By 1 INTO CURSOR bir

Select asi,Sum(miktar) As orta From asilama WHERE (MONTH(atar)=>4 and  MONTH(atar)<8) Group By 1 INTO CURSOR iki

Select asi,Sum(miktar) As sondort From asilama WHERE MONTH(atar)=>8 Group By 1 INTO CURSOR son

******

Select fatasigiren11.asi, giren,aciklacik.cikan,asilarstok11.stok,bir.ilkdort ,iki.orta,son.sondort,randevulart1.ihtiyac,(ilkdort+orta+sondort) toplam,giren/ay ortalama ;

  from ;

   fatasigiren11 ;

  left Join ;

   aciklacik ;

  on PROPER(fatasigiren11.asi) = PROPER(aciklacik.asi);

  left Join ;

   asilarstok11 ;

  on PROPER(fatasigiren11.asi) = PROPER(asilarstok11.asi);

    left Join ;

   bir ;

  on PROPER(fatasigiren11.asi) = PROPER(bir.asi);

  left Join ;

   iki ;

  on PROPER(fatasigiren11.asi) = PROPER(iki.asi);

  left Join ;

   son ;

  on PROPER(fatasigiren11.asi) = PROPER(son.asi) ;

  left Join ;

   randevulart1 ;

  on PROPER(fatasigiren11.asi) = PROPER(randevulart1.asi);

  INTO CURSOR asilarsondu111

 

SELECT asi, SUM(giren)giren,SUM(cikan) cikan,SUM(stok) stok,SUM(ilkdort) ilkdort,SUM(orta) orta,SUM(sondort) sondort,SUM(ihtiyac) ihtiyac,SUM(toplam) toplam,SUM(ortalama) ortalama;

FROM asilarsondu111 GROUP BY 1 ORDER BY 1 INTO CURSOR asilarsondu11    

LOCAL a,b,c,d,e,f

SUM ilkdort TO b 

SUM orta TO c

SUM sondort TO d

m.a=m.b+m.c+m.d

GO TOP 

this.Parent.text1.Value=m.a

this.Parent.text2.Value=m.b

this.Parent.text3.Value=m.c

this.Parent.text4.Value=m.d

this.Parent.text1.ToolTipText=STR(m.a)

this.Parent.text2.ToolTipText=STR(m.b)

this.Parent.text3.ToolTipText=STR(m.c)

this.Parent.text4.ToolTipText=STR(m.d)

 

WITH this.Parent.grid1

.columncount=-1

.recordsource=""

.recordsource="asilarsondu11"

*.SetAll("DynamicforeColor", 'ICASE(ortalama<1,0x0000ff,ortalama<=stok,0xff0000,0x0000ff)')

.headerheight=30

    For T=1 To FCOUNT('asilarsondu11')

        If Mod(T,2)=1

            .Columns(T).header1.BackColor= Rgb(177,255,140)

            .Columns(T).header1.Alignment=2

            .Columns(T).header1.FontBold=.T.

            .Columns(T).BackColor= Rgb(0,255,255)

        Else

            .Columns(T).BackColor=Rgb(217,255,255)

            .Columns(T).header1.BackColor=Rgb(177,255,140)

            .Columns(T).header1.Alignment=2

            .Columns(T).header1.FontBold=.T.

        Endif

    Endfor

.Columns(1).BackColor= RGB(0,255,255)

.Columns(2).BackColor= RGB(0,255,255)

.Columns(3).BackColor= RGB(0,255,255)

.Columns(4).BackColor= RGB(0,255,255)

.Columns(8).BackColor= RGB(0,255,64)

.Columns(9).BackColor= RGB(0,255,255)

.Columns(1).header1.tooltiptext="Kayıtlı Ürün yada Görevler"

.Columns(1).text1.tooltiptext="Kayıtlı Ürün yada Görevler"

.Columns(2).header1.tooltiptext="Faturayla aldıklarınız"

.Columns(2).text1.tooltiptext="Faturayla aldıklarınız"

.Columns(3).header1.tooltiptext="Kullandığınız toplam mıktarlar"

.Columns(3).text1.tooltiptext="Kullandığınız toplam mıktarlar"

.Columns(4).header1.tooltiptext="Şu an stokunuzda bulunması gereken miktar"

.Columns(4).text1.tooltiptext="Şu an stokunuzda bulunması gereken miktar"

.Columns(5).header1.tooltiptext="İlk 4 aylık dönem harcamanız (ocak-nisan)"

.Columns(5).text1.tooltiptext="İlk 4 aylık dönem harcamanız (ocak-nisan)"

.Columns(6).header1.tooltiptext="İkinci 4 aylık dönem harcamanız (mayıs-ağustos)"

.Columns(6).text1.tooltiptext="Son 4 aylık dönem harcamanız (Eylül-Aralık)"

.Columns(7).header1.tooltiptext="Son 4 aylık dönem harcamanız (Eylül-Aralık)"

.Columns(7).text1.tooltiptext="Son 4 aylık dönem harcamanız (Eylül-Aralık"

.Columns(8).header1.tooltiptext="Randevu dosyasına göre 1 yıllık ihtiyacınız"

.Columns(8).text1.tooltiptext="Randevu dosyasına göre 1 yıllık ihtiyacınız"

.Columns(9).header1.tooltiptext="Seçilen aralıkdaki içindeki toplam harcamanız"

.Columns(9).text1.tooltiptext="Seçilen aralıkdaki içindeki toplam harcamanız"

.Columns(10).header1.tooltiptext="Yıllık ortalama harcama mıktarınız"

.Columns(10).text1.tooltiptext="Yıllık ortalama harcama mıktarınız"

ENDWITH     

*this.Parent.Refresh