Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
44
Programe/Vechi/totvMF.prg
Normal file
44
Programe/Vechi/totvMF.prg
Normal file
@@ -0,0 +1,44 @@
|
||||
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
|
||||
Reference in New Issue
Block a user