CLOSE DATABASE

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

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

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

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


*daca fisierele specifice nu sunt in baza de date?_____
set defa to &date
if !file('mf.dbf')
	do deschid
*	do redeschid
endif
		
SELECT 0
	USE &date\mf.dbf;
		AGAIN ALIAS mf 
				
SELECT 0
	USE &dirgen\mfix2000\date\NORMA.dbf;
		AGAIN ALIAS NORMA

*_______________________________________________________

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"		

SELECT 0
	USE &dirgen\mfix2000\help\helpmenu.dbf;
		AGAIN ALIAS helpmenu
		
SELECT 0
	USE &dirgen\mfix2000\help\helpleg.dbf;
		AGAIN ALIAS helpleg

return