CLOSE DATABASE

SELECT 0
	USE &dirgen\lunilean.dbf;
		AGAIN ALIAS lunilean ;
		ORDER TAG "nl"	

SELECT 0
	USE &dirgen\firma.dbf;
		AGAIN ALIAS firma ;
		ORDER TAG "firma"
		
DIRFIRM=DIRGEN+NFSCURT
DATEAN=DIRFIRM+'\DATEAN'
CALET=DIRFIRM+'\TEMPO'

SELECT 0
	USE &datEAN\CALENDAR.dbf;
	AGAIN ALIAS CALENDAR

date=DIRFIRM+'\AN'+m.an+'\DATE'+M.nl


SELECT 0
	USE &date\act.dbf;
		AGAIN ALIAS act ;
		ORDER TAG "dataireg"

SELECT 0
	USE &dateAN\actAN.dbf;
		AGAIN ALIAS actAN ;
		ORDER TAG "COD"	

SELECT 0
	USE &dateAN\NUMEGEST.dbf;
		AGAIN ALIAS NUMEGEST ;
		ORDER TAG "NUMEGEST"

SELECT 0
	USE &date\respons.dbf;
		AGAIN ALIAS respons ;
		ORDER TAG "nume_2"		

return