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:
2026-07-16 11:37:36 +03:00
commit 34aed0c4d7
236 changed files with 145556 additions and 0 deletions

69
Programe/Vechi/totvV.prg Normal file
View File

@@ -0,0 +1,69 @@
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