69 lines
1.2 KiB
Plaintext
69 lines
1.2 KiB
Plaintext
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 |