>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 >