43 lines
786 B
Plaintext
43 lines
786 B
Plaintext
local lunatrec,antrec,lunacrt,ancrt,dattrec,datcrt
|
|
set safety off
|
|
|
|
lunacrt=m.nl
|
|
ancrt=m.an
|
|
|
|
sele calendar
|
|
locate for m.an=an and m.nl=nl
|
|
skip -1
|
|
if bof()
|
|
*este prima luna deschisa__________
|
|
|
|
copy file &dirgen\mfix2000\date\*.* to &date\*.*
|
|
|
|
else
|
|
*nu este prima luna deschisa__________
|
|
lunatrec=nl
|
|
antrec=an
|
|
dattrec=calefirma+'\AN'+antrec+'\DATE'+lunatrec+'\'+'mf.*'
|
|
LOCAL DATTREC1
|
|
dattrec1=calefirma+'\AN'+antrec+'\DATE'+lunatrec+'\'+'mf.DBF'
|
|
|
|
|
|
*dar daca nici luna precedenta nu a fost dechisa__________
|
|
if !file('&dattrec1')
|
|
|
|
copy file &dirgen\mfix2000\date\*.* to &date\*.*
|
|
|
|
else
|
|
|
|
copy file &dattrec to &date\*.*
|
|
|
|
endif
|
|
SELECT 0
|
|
USE &date\mf.dbf;
|
|
AGAIN ALIAS mf
|
|
repl all cod with 0
|
|
sele mf
|
|
use
|
|
endif
|
|
|
|
return
|