roaregistratura/Programe/Vechi/actualizari.prg

SELE CALENDAR
M=4*RECCOUNT()+4
OP=CREA('PROGRESBAR')
op.titlu.caption='Actualizari'
OP.SHOW()



close database
IF !USED('FISTOTVdev')
	do deschidf with '&dirgen\devize\date\datean\','&dirgen\devize\date\datean\','fistotvdev','fistotv','CALE',''
ENDIF

sele 0
use &calefirma\datean\calendar alias calendar
sele calendar
J=0
scan
scatter memvar
date=calefirma+'\AN'+m.an+'\DATE'+M.nl
if file('&date\oper.dbf')
*DO PR WITH J
*do pfactura
DO PR WITH J
do pordl
DO PR WITH J
do poper
DO PR WITH J
do popersal
DO PR WITH J
do psalarii
endif
endscan
***
DO PR WITH J
do pclie
DO PR WITH J
DO PSECTIE
DO PR WITH J
DO PMECANICI
DO PR WITH J
do pmasini
DO PR WITH J
DO PMARCI
OP.RELEASE
RETURN




*____________________________________________
procedure pfactura
dele file &date\facturaa.*
dele file &date\facturav.*
copy file &dirgen\devize\date\date00\factura.* to &date\facturaa.*
sele 0
use &date\facturaa.dbf AGAIN ALIAS facturaa exclusive 
sele facturaa
zap
sele facturaa
append from &date\factura
sele facturaa
reindex
use
rename &date\factura.* to &date\facturav.*
rename &date\facturaa.* to &date\factura.*
*do refRULL
return

*____________________________________________
procedure psalarii
dele file &date\salariia.*
dele file &date\salariiv.*
copy file &dirgen\devize\date\date00\salarii.* to &date\salariia.*
sele 0
use &date\salariia.dbf AGAIN ALIAS salariia exclusive 
sele salariia
zap
sele salariia
append from &date\salarii
sele salariia
reindex
use
rename &date\salarii.* to &date\salariiv.*
rename &date\salariia.* to &date\salarii.*
*do refRULL
return

*____________________________________________
procedure pordl
dele file &date\ordla.*
dele file &date\ordlv.*
copy file &dirgen\devize\date\date00\ordl.* to &date\ordla.*
sele 0
use &date\ordla.dbf AGAIN ALIAS ordla exclusive 
sele ordla
zap
sele ordla
append from &date\ordl
sele ordla
reindex
use
rename &date\ordl.* to &date\ordlv.*
rename &date\ordla.* to &date\ordl.*
&&&&&&do refact
return


*____________________________________________
procedure poper
dele file &date\opera.*
dele file &date\operv.*
copy file &dirgen\devize\date\date00\oper.* to &date\opera.*
sele 0
use &date\opera.dbf AGAIN ALIAS opera exclusive 
sele opera
zap
sele opera
append from &date\oper
sele opera
reindex
use
rename &date\oper.* to &date\operv.*
rename &date\opera.* to &date\oper.*

return

*____________________________________________
procedure popersal
dele file &date\opersala.*
dele file &date\opersalv.*
copy file &dirgen\devize\date\date00\opersal.* to &date\opersala.*
sele 0
use &date\opersala.dbf AGAIN ALIAS opersala exclusive 
sele opersala
zap
sele opersala
append from &date\opersal
sele opersala
reindex
use
rename &date\opersal.* to &date\opersalv.*
rename &date\opersala.* to &date\opersal.*

return

             
*______________________________________________________________
procedure pclie
dele file &calefirma\datean\cliea.*
dele file &calefirma\datean\cliev.*
copy file &dirgen\devize\date\datean\clie.* to &calefirma\datean\cliea.*
sele 0
use &calefirma\datean\cliea.dbf AGAIN ALIAS cliea exclusive 
sele cliea
zap
sele cliea
append from &calefirma\datean\clie
sele cliea
reindex
use

rename &calefirma\datean\clie.* to &calefirma\datean\cliev.*
rename &calefirma\datean\cliea.* to &calefirma\datean\clie.*
*DO refRUL
return

*______________________________________________________________
procedure pSECTIE
dele file &calefirma\datean\SECTIEa.*
dele file &calefirma\datean\SECTIEv.*
copy file &dirgen\devize\date\datean\SECTIE.* to &calefirma\datean\SECTIEa.*
sele 0
use &calefirma\datean\SECTIEa.dbf AGAIN ALIAS SECTIEa exclusive 
sele SECTIEa
zap
sele SECTIEa
append from &calefirma\datean\SECTIE
sele SECTIEa
reindex
use

rename &calefirma\datean\SECTIE.* to &calefirma\datean\SECTIEv.*
rename &calefirma\datean\SECTIEa.* to &calefirma\datean\SECTIE.*
*DO refRUL
return

*______________________________________________________________
procedure pMECANICI
dele file &calefirma\datean\MECANICIa.*
dele file &calefirma\datean\MECANICIv.*
copy file &dirgen\devize\date\datean\MECANICI.* to &calefirma\datean\MECANICIa.*
sele 0
use &calefirma\datean\MECANICIa.dbf AGAIN ALIAS MECANICIa exclusive 
sele MECANICIa
zap
sele MECANICIa
append from &calefirma\datean\MECANICI
sele MECANICIa
reindex
use

rename &calefirma\datean\MECANICI.* to &calefirma\datean\MECANICIv.*
rename &calefirma\datean\MECANICIa.* to &calefirma\datean\MECANICI.*
*DO refRUL
return




*______________________________________________________________
procedure pmasini
dele file &calefirma\datean\masinia.*
dele file &calefirma\datean\masiniv.*
copy file &dirgen\devize\date\datean\masini.* to &calefirma\datean\masinia.*
sele 0
use &calefirma\datean\masinia.dbf AGAIN ALIAS masinia exclusive 
sele masinia
zap
sele masinia
append from &calefirma\datean\masini
sele masinia
reindex
use

rename &calefirma\datean\masini.* to &calefirma\datean\masiniv.*
rename &calefirma\datean\masinia.* to &calefirma\datean\masini.*
return

*______________________________________________________________
procedure pMARCI
dele file &calefirma\datean\MARCIa.*
dele file &calefirma\datean\MARCIv.*
copy file &dirgen\devize\date\datean\MARCI.* to &calefirma\datean\MARCIa.*
sele 0
use &calefirma\datean\MARCIa.dbf AGAIN ALIAS MARCIa exclusive 
sele MARCIa
zap
sele MARCIa
append from &calefirma\datean\MARCI
sele MARCIa
reindex
use

rename &calefirma\datean\MARCI.* to &calefirma\datean\MARCIv.*
rename &calefirma\datean\MARCIa.* to &calefirma\datean\MARCI.*
return



*____________________________________
PROC PR
PARAM J
IF J>M
RETURN
ENDIF
OP.PRBAR.VALUE=J
OP.P=ROUND(100*OP.PRBAR.VALUE/OP.PRBAR.MAX,2)
OP.REFRESH
J=J+1
RETURN