Marius Mutu
7cc3bff358
Inrolare ROACONTRACTE conform COMUN\docs\inrolare-proiect-git-text.md: - .gitignore/.gitattributes dupa modelul ROACONT (COMUN/ exclus, are repo propriu) - 439 texte FoxBin2Prg generate in arbore (vc2/sc2/fr2/mn2/pj2/db2) - Clase\registry.vcx ramane binar: memo .vct corupt (Error 41), nu se poate converti - Clase\ferestre_contracte.vcx: text generat, roundtrip scutit (fara write-back) - CLAUDE.md, docs/README.md, roa_sync.bat Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01RYbiinqXxdEqXi53x4Ro7K
271 lines
5.8 KiB
Plaintext
271 lines
5.8 KiB
Plaintext
|
|
|
|
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
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|