İsim ayıklama

No Kısmında farklı 2 değer varmış. En büyük olanı almak için :

Select Distinct Ad, Max(HesapNo) From CrsHareket Group By Ad Order By Ad  Into Cursor CrsTemp NoFilter

Eğer ORder By yazan kısmındaki field/lara göre INDEX in tanımlı ise HIZ en çok bir kaç milisaniyede kalır...

Aslında "max" yerine "sum" doğaçlamasını yaparak sorun çözüldü.
sorum :
(1.cursor)
Gökçe   1
Ali         1
Gökçe  2
Veli       3
==========
(2.cursor)
Ali   1
Gökçe  3
Veli   3

ilk cursordan yukarıdaki ikinci sursor'u oluşturmaktı.  ve mükemmel şekilde oldu. ne döngüye gerek kaldı ne birşey. ve de çok hızlı.
teşekkür ederim.  asıl amacım biraz üzerinde çalışıp bunu iki dosya ile yapmak. yani örneğin alışlar ve satışlar table'lerini isme göre birleştirmek.

yani :
alışlar :                  satışlar:               istenen:
(1.cursor)             (2.cursor)           (3.cursor)
Gökçe   1              Gökçe    4           Gökçe   3    5
Ali         1              osman    6          Ali          1    0
Gökçe  2               Gökçe     1         Veli         3    3
Veli       3               veli          3         Osman  0    6     

şeklinde 1. ve 2. cursorlardan isim referans alınarak 3. cursoru oluşturmak.  3. cursorda ilk field alışlar ikincisi satışlar. Ancak burada örneğin birinci ve ikinci cursorlarda Gökçe defalarca varken 3. cursorda tek satır ve yanında alış ve satış toplamının yer alması. dediğim gibi bu tek cursor için mükemmel oldu. iki cursordan tek bir cursor elde etmek için uğurlunun kodunu ne şekilde geliştirebiliriz ? 

Şimdiden tekrar teşekkür ederim.

Merhabalar
Benzerini aradım bulamadım.
Bir DBF de 10 ad field var. Bu dosyada tarih ve sözleşme numaraları aynı olan
kayıtlar var ve aynı olan bu kayıtların stopaj kolonunu  toplamak için

TOTAL TO rdtotal ON STR(SOZLESMENO)+DTOC(ISL_TARIHI) FIELDS STOPAJ
komutunu kullanıyorum.

Tarih ve sözleşme numaraları aynı olan kayıtların stopajlarının toplamını aldırmak için
nasıl bir select komutu ile cursor oluşturabilirim. Ancak oluşacak bu cursorda 10 field da görünmeli.

çözümün textmergeile istediğin komutu oluşturman ve & ile sorguyu çalıştırman.
aşağıda kendimden birörnek kopyaladım.
senin durumunda <<FIELD(m.xi,"dosya")>> şeklinde döngü kullanman gerekiyor.

TEXT TO komut NOSHO

SELECT teksid, SUM(adet) AS toplam FROM curHepsi WHERE 

ENDTEXT

 

SCAN

  IF curIrs.irsvar

    TEXT TO  m.komut TEXTMERGE ADDITIVE NOSHOW

        irsno=<<ALLTRIM(STR(curirs.irsno))>> OR

        ENDTEXT 

  ENDIF

ENDS

TEXT TO m.komut ADDITIVE NOSHOW

irsno=-9 GROUP BY teksid INTO CURS curSeçme

ENDTEXT 

 

&komut

Üstat, Hasan ın söylediği bana da biraz tuhaf geldi. Galiba örnek data olmadan bazı şeyler ne kadar kolay görünse de anlaması zor oluyor.

Üstadlar Merhaba
Konuyu şöyle anlatabilirim

Müşteri          Tarih          ÖdenenTL          İadeTL   Sözleşmeno       Stopaj
----------      -----------  ------------   ----------  ------------    -------------
hasan           03/03/2010      10                      2                558                   2
hasan           03/03/2010      10                      2                 558                  1
Tahsin         04/03/2010       20                      2                558                   3

Resmi bir kurumdan veri bu şekilde geliyor
Tarih ve sözleşmeye göre olmasının nedeni, yukarıda da görüldüğü üzere aynı sözleşme
numarasa farklı bir tarihte başka bir kişi adına olabiliyor.
Çetin'in  verdiği kod işimi gördü. Teşekkürler

Farklı bir şey daha öğrenmek istiyorum
Bir datada mükerrer kayıt varsa bu kayıtları nasıl ayıklarız
Örneğin yukarıdaki örnekte stopajın aynı olduğunu varsayalım.
Şimdiden teşekkürler.

Ya simdi de "mukerrer"i tanimla diyicem kizacaksin:)

Uğurlu,
Cahilliğime ver. COUNT(Kod). Kod derken bir field adını mı kastediyoruz.
Eğer öyleyse ;
Müşteri          Tarih          ÖdenenTL          İadeTL   Sözleşmeno       Stopaj
----------      -----------  ------------   ----------  ------------    -------------
hasan           03/03/2010      10                      2                558                  1
hasan           03/03/2010      10                      2                 558                  1
Tahsin         03/03/2010       10                      2                558                   1

burada column olarak hangisini seçeceğiz ? Birini seçersek sonuç yanlış olmazmı
Teşekkürler

Hasan ; ordaki mükerrer kaydı bulmak için "KOD" durumu ele alındı. Senin istediğin şöyle bir şey mi?  :

CLOSE DATABASES 

 

CREATE CURSOR CrsData(Musteri C(20), Tarih D, Odenen Y, SozlesmeNo Int, Stopaj Int)

 

INSERT INTO CrsData SELECT Top 1 "Ali Veli 49 Elli", Date(), 100, 442, 150 FROM Sys(2005) Order By 1

INSERT INTO CrsData SELECT Top 1 "Ali Veli 49 Elli", Date(), 100, 442, 150 FROM Sys(2005) Order By 1

INSERT INTO CrsData SELECT Top 1 "Cetin Basoz", Date()-2, 100, 442, 150 FROM Sys(2005) Order By 1

INSERT INTO CrsData SELECT Top 1 "Ali Konuk", Date()-2, 100, 442, 150 FROM Sys(2005) Order By 1

INSERT INTO CrsData SELECT Top 1 "Soykan Ozcelik", Date()-3, 100, 442, 150 FROM Sys(2005) Order By 1

INSERT INTO CrsData SELECT Top 1 "Ugur Yilmaz", Date()-4, 100, 442, 150 FROM Sys(2005) Order By 1

 

SELECT Recno() As SiraNo, * FROM CrsData INTO CURSOR CrsDataX 

 

SELECT Crs1.* ;

    FROM CrsDataX As Crs1 ;

    JOIN CrsDataX As Crs2 ON Crs1.Musteri == Crs2.Musteri ;

                         AND Crs1.Tarih == Crs2.Tarih ;

                         AND Crs1.SozlesmeNo == Crs2.SozlesMeNo ;

                         AND Crs1.Stopaj == Crs2.Stopaj ;

                         AND Crs1.SiraNo != Crs2.SiraNo

Eğer bir Ön "Select" ile SiraNo sunu almak yerine GUID türü bir field oluşturursan ara sorgu ile zaman kaybetmemiş olursun.

CLOSE DATABASES 

 

CREATE CURSOR CrsData(Musteri C(20), Tarih D, Odenen Y, SozlesmeNo Int, Stopaj Int, Guid C(38))

 

INSERT INTO CrsData SELECT Top 1 "Ali Veli 49 Elli", Date(), 100, 442, 150, GetGUID() FROM Sys(2005) Order By 1

INSERT INTO CrsData SELECT Top 1 "Ali Veli 49 Elli", Date(), 100, 442, 150, GetGUID()  FROM Sys(2005) Order By 1

INSERT INTO CrsData SELECT Top 1 "Cetin Basoz", Date()-2, 100, 442, 150, GetGUID()  FROM Sys(2005) Order By 1

INSERT INTO CrsData SELECT Top 1 "Ali Konuk", Date()-2, 100, 442, 150, GetGUID()  FROM Sys(2005) Order By 1

INSERT INTO CrsData SELECT Top 1 "Soykan Ozcelik", Date()-3, 100, 442, 150, GetGUID()  FROM Sys(2005) Order By 1

INSERT INTO CrsData SELECT Top 1 "Ugur Yilmaz", Date()-4, 100, 442, 150, GetGUID()  FROM Sys(2005) Order By 1

 

SELECT Crs1.* ;

    FROM CrsData As Crs1 ;

    JOIN CrsData As Crs2 ON Crs1.Musteri == Crs2.Musteri ;

                         AND Crs1.Tarih == Crs2.Tarih ;

                         AND Crs1.SozlesmeNo == Crs2.SozlesMeNo ;

                         AND Crs1.Stopaj == Crs2.Stopaj ;

                         AND Crs1.Guid != Crs2.Guid ;

    INTO CURSOR CrsMukerrer NOFILTER 

 

USE IN Select("FoxUser")

USE IN Select("CrsData")                         

 

BROWSE 

 

Function getGUID && Cetin Basoz Code

    Declare Integer UuidCreate In 'RPCRT4.dll' String @pguid

    Declare Integer StringFromGUID2 In 'Ole32.dll' ;

        string rguid, String @lpsz, Integer cchMax

 

    Local pguid,rguid

    pguid=Replicate(Chr(0),16)

    rguid=Replicate(Chr(0),80)

    UuidCreate(@pguid)

    StringFromGUID2(pguid,@rguid,40)

    Return Strconv(Left(rguid,76),6)

Endfunc

Özet olarak burda yapılan, Tablonun referans olarak yine kendisine başvurması. Bu türde türetilmiş sorgularda JOIN kısmında Eşitlik ve Farklılıkları özellikle belirtmemiz gerekiyor.

İşinin görülmesine sevindim Hasan, yardımcı olabildimse ne mutlu bana