romfast/vfp_roaauto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Import initial din SVN ROAAUTO/Trunk @HEAD

Browse Source
This commit is contained in:
Marius Mutu
2026-04-11 17:11:32 +03:00
commit 656d98697f
1856 changed files with 163525 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
Programe/ovariabile_globale.prg Normal file
View File

@@ -0,0 +1,79 @@
PUBLIC gcCondLuna
*!* gcCondLuna = [((((extract(month from datafact) =]+Alltrim(Str(gnLuna))+;
*!* [ and extract(year from datafact) =]+Alltrim(Str(gnAn))+[) or (datafact is null ));
*!* and ]+;
*!* [ (extract (month from datai)<=]+Alltrim(Str(gnLuna)) + [ and extract(year from datai)<= ]+Alltrim(Str(gnAn))+[))]+;
*!* [ or ((extract (month from dataoravalid)>= ]+Alltrim(Str(gnLuna))+[ and extract(year from dataoravalid)>=]+Alltrim(Str(gnAn)) +[)]+;
*!* [ and id_tip > 1)]+ [)]
*!* 30.06
*!* lcDataFact= [ (a.facturat=1 and (extract(month from a.datafact) =]+Alltrim(Str(gnLuna))+[ and extract(year from a.datafact) =]+Alltrim(Str(gnAn))+[))]
*!* lcDataValid = [ (a.validat=1 and (extract (month from a.dataoravalid)>= ]+Alltrim(Str(gnLuna))+[ and extract(year from a.dataoravalid)>=]+Alltrim(Str(gnAn)) +[)) ]
*!* gcCondLuna = [ ((extract (month from a.datai)=]+Alltrim(Str(gnLuna)) + [ and extract(year from a.datai)= ]+Alltrim(Str(gnAn))+[) or ]+;
*!* [ (a.id_tip=1 and (a.facturat=0 or ] + lcDataFact + [) ) or (a.id_tip>1 and (a.validat=0 or ] + lcDataValid + [))) ]
lcDataFact= [ (a.facturat=1 and (extract(month from a.datafact) =]+Alltrim(Str(gnLuna))+[ and extract(year from a.datafact) =]+Alltrim(Str(gnAn))+[))]
lcDataValid = [ (a.validat=1 and (extract (month from a.dataoravalid)+extract(year from a.dataoravalid)*12=]+Alltrim(Str(gnLuna+gnAn*12)) +[)) ]
gcCondLuna = [ ((extract (month from a.datai)+extract(year from a.datai)*12=]+Alltrim(Str(gnLuna+gnAn*12))+[) or ]+;
[ ((extract (month from a.datai)+extract(year from a.datai)*12<]+Alltrim(Str(gnLuna+gnAn*12))+[) and ]+;
[ ((a.inch_validare=0 and (a.facturat=0 or ] + lcDataFact + [) ) or (a.inch_validare=1 and (a.validat=0 or ] + lcDataValid + [))))) ]
*!* If Nvl(gnDev_valregie,1) = 1
*!* gcCondLuna = [ ((extract (month from a.datai)+extract(year from a.datai)*12=]+Alltrim(Str(gnLuna+gnAn*12))+[) or ]+;
*!* [ ((extract (month from a.datai)+extract(year from a.datai)*12<]+Alltrim(Str(gnLuna+gnAn*12))+[) and ]+;
*!* [ ((a.id_tip=1 and (a.facturat=0 or ] + lcDataFact + [) ) or (a.id_tip>1 and (a.validat=0 or ] + lcDataValid + [))))) ]
*!* Else
*!* gcCondLuna = [ ((extract (month from a.datai)+extract(year from a.datai)*12=]+Alltrim(Str(gnLuna+gnAn*12))+[) or ]+;
*!* [ ((extract (month from a.datai)+extract(year from a.datai)*12<]+Alltrim(Str(gnLuna+gnAn*12))+[) and ]+;
*!* [ ((a.id_tip in (1,3) and (a.facturat=0 or ] + lcDataFact + [) ) or (a.id_tip not in (1,3) and (a.validat=0 or ] + lcDataValid + [))))) ]
*!* Endif
******************************************************************************************************************
PUBLIC gcGestPermis, gcGrupePermis,gnTipGest,gcGestPermis_Nume,gcGrupePermis_Nume
STORE '' TO gcGestPermis,gcGrupePermis,gcGestPermis_Nume,gcGrupePermis_Nume
STORE 0 TO gnTipGest
lcSql = [select * from ] + gcs + [.VGEST_CORESP_UTIL_GRUPE where id_util =] + ALLTRIM(STR(gnIdUtil))
lcCursor = [GRUPE_permis]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
IF lnSucces > 0
SELECT grupe_permis
SCAN
gcGrupePermis = gcGrupePermis + ',' + ALLTRIM(STR(id_grupe))
gcGrupePermis_nume = gcGrupePermis_nume + ',' + ALLTRIM(nume_grupa)
ENDSCAN
gcGrupePermis = SUBSTR(gcGrupePermis,2)
gcGrupePermis_nume = SUBSTR(gcGrupePermis_nume,2)
USE IN grupe_permis
ENDIF
IF '-1' $ gcGrupePermis
gcGestPermis = '-1'
ELSE
lcSql = [SELECT * FROM ] + gcs + [.VGEST_CORESP_GRUPE_GESTIUNI A JOIN ] + gcs + [.VGEST_CORESP_UTIL_GRUPE B ]+ ;
[ON A.ID_GRUPE = B.ID_GRUPE WHERE B.ID_UTIL = ] + ALLTRIM(STR(gnIdUtil))
lcCursor = [gest_permis]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
IF lnSucces > 0
SELECT gest_permis
SCAN
gcGestPermis = gcGestPermis + ',' + ALLTRIM(STR(id_gestiune))
gcGestPermis_nume = gcGestPermis_nume + ',' + ALLTRIM(nume_gestiune)
ENDSCAN
gcGestPermis = SUBSTR(gcGestPermis,2)
gcGestPermis_nume = SUBSTR(gcGestPermis_nume,2)
USE IN gest_permis
ENDIF
ENDIF
SET STEP ON
* initializare variabile publice gnInchidereValidare1/2/3/4/5/6/7
=cctipuri_deviz()
SELECT crstipuri_deviz
SCAN
lcVariabila = 'gnInchidereValidare' + ALLTRIM(STR(id_tip))
PUBLIC &lcVariabila && gnInchidereValidare1 = 0/1
&lcVariabila = NVL(inch_validare, 0)
ENDSCAN
USE IN (Select('crstipuri_deviz'))