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