Set Safety Off Set ENGINEBEHAVIOR 70 lctable=SYS(5)+CURDIR()+'PuanHes.dbf' lcoutput=SYS(5)+CURDIR()+'CrsResult.dbf' With Thisform lcwhere1 = 'between(puantaj.tarih,.txttertar1.value,.txttertar2.value)' lcwhere2 = 'between(puantaj.pid,.txtpid1.value,.txtpid2.value)' lcwhere3 = " puantaj.statu='CALISAN-A' " Lcwhere = lcwhere1 + ' and ' + lcwhere2 + ' and ' + lcwhere3 Select Transform(personel.pid)+"-"+Alltrim(personel.padi)+" "+Alltrim(personel.psoyadi) As adsoyad, personel.departman,; personel.Statu, puantaj.tarih,puantaj.mevcutmu; FROM data03\personel inner Join data03\puantaj ; ON personel.pid= puantaj.pid ; WHERE &lcwhere; ORDER BY personel.departman; group By puantaj.tarih,puantaj.pid; into Table (lctable) ENDWITH Do (_Genxtab) With lcoutput,.T.,.T.,.T.,1,4,5,.T.,0,.F. BROWSE