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:
69
Programe/Vechi/totvV.prg
Normal file
69
Programe/Vechi/totvV.prg
Normal 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
|
||||
Reference in New Issue
Block a user