Import initial din SVN ROAAUTO/Trunk @HEAD
This commit is contained in:
632
COMUN/programe/oproceduri_roadef.prg
Normal file
632
COMUN/programe/oproceduri_roadef.prg
Normal file
@@ -0,0 +1,632 @@
|
||||
*!* 19.03.2015
|
||||
*!* marius.mutu
|
||||
*!* VIZ_LUNI_BLOCATE - se afiseaza doar programele pe care are utilizatorul dreptul
|
||||
|
||||
*** OPROCEDURI_ROADEF
|
||||
**************************************** INCEPUT: viz_categorii_entitati ******************************
|
||||
Procedure viz_categorii_entitati
|
||||
Private poCategorii_entitati,pcSchema,pcSelect
|
||||
Store '' To poCategorii_entitati
|
||||
If Used('crsCategorii_entitati')
|
||||
Use In crsCategorii_entitati
|
||||
Endif
|
||||
|
||||
llAfisare=.F.
|
||||
pcSchema = ['']
|
||||
pcSelect=['select * from ] + gcS + [.vnom_categorii_entitati where 1=2']
|
||||
pcOrder=[categorie_entitate]
|
||||
pcFiltru = [1=2]
|
||||
gencursor('poCategorii_entitati','crsCategorii_entitati',pcSelect,pcFiltru,pcSchema,pcOrder,llAfisare)
|
||||
poCategorii_entitati.ca_baza1.afisare()
|
||||
ofrmcategorii=Createobject('frm_categorii_entitati')
|
||||
ofrmcategorii.Show(1)
|
||||
Release poCategorii_entitati,ofrmcategorii
|
||||
Endproc
|
||||
**************************************** SFARSIT: viz_categorii_entitati ******************************
|
||||
*******************************************
|
||||
* PROCEDURE VIZ_LUNI_BLOCATE
|
||||
* Date : 28/10/2005, 10:27:42
|
||||
* author : marius.mutu
|
||||
* description:
|
||||
*******************************************
|
||||
Procedure VIZ_LUNI_BLOCATE
|
||||
|
||||
Local lcObiect, lcCursor, lcSelect, lcFiltru, lcSchema, lcOrder, llAfisare, lcGroup, llModParam, lcFiltruOriginal, lcSeconds
|
||||
lnSucces = 1
|
||||
|
||||
lcSeconds = SET("Seconds")
|
||||
SET SECONDS ON
|
||||
Private poPrograme
|
||||
poPrograme = .F.
|
||||
lcObiect = "poPrograme"
|
||||
lcCursor = "crsPrograme"
|
||||
*!* lcSelect = "select ide_program, explicatie as denumire from contafin_oracle.vdef_programe"
|
||||
|
||||
TEXT TO lcSelect NOSHOW
|
||||
select distinct p.ide_program, p.nume as denumire, p.instalat
|
||||
from contafin_oracle.vDEF_UTIL_GRUP ug
|
||||
join contafin_oracle.def_grup_drept gd on ug.id_grup = gd.id_grup
|
||||
join contafin_oracle.vdef_programe p on gd.id_program = p.ide_program
|
||||
ENDTEXT
|
||||
|
||||
lcFiltru = ""
|
||||
lcSchema = ""
|
||||
lcOrder = "nume"
|
||||
llAfisare = .F.
|
||||
lcGroup = ""
|
||||
llModParam = .T.
|
||||
lcFiltruOriginal = "ug.id_util = ?gnIdUtil and ug.id_firma = ?gnIdFirma and gd.sters = 0 and p.instalat = 1 and p.nume not in ('INDEX.HTM', 'ROADEF', 'ROADEFSALARII', 'ROASUPORT', 'ROADECL', 'ROAMANAGER', 'ROASITFIN', 'ROAOFERTARE', 'ROAJURIDIC', 'ROAPRETURI')"
|
||||
gencursor(lcObiect, lcCursor, lcSelect, lcFiltru, lcSchema, lcOrder, llAfisare, lcGroup, llModParam, lcFiltruOriginal)
|
||||
poPrograme.ca_baza1.lAfisare = .T.
|
||||
poPrograme.ca_baza1.afisare()
|
||||
If !Used('crsPrograme')
|
||||
lnSucces = -1
|
||||
Endif
|
||||
|
||||
|
||||
If lnSucces > 0
|
||||
|
||||
Private poBlocat
|
||||
poBlocat = .F.
|
||||
lcObiect = "poBlocat"
|
||||
lcCursor = "crsLuniAn"
|
||||
lcSelect = "select * from blocatprogramluni"
|
||||
|
||||
TEXT TO lcSelect NOSHOW
|
||||
select an, luna, ide_program, blocat, id_util, utilizator, stare, dataora from
|
||||
(select b.an,
|
||||
b.luna,
|
||||
b.ide_program,
|
||||
b.blocat,
|
||||
l1.id_log,
|
||||
l1.id_util,
|
||||
u.utilizator,
|
||||
l1.stare,
|
||||
l1.dataora,
|
||||
max(l1.id_log) OVER(PARTITION BY l1.id_tabel) as idlogmax
|
||||
from blocatprogramluni b
|
||||
left join (select l.id_log,
|
||||
l.tabel,
|
||||
l.id_tabel,
|
||||
l.camp,
|
||||
l.ID_UTIL,
|
||||
DECODE(VALOAREN, 1, 'BLOCAT', 'DEBLOCAT') AS STARE,
|
||||
l.dataora
|
||||
from LOG l) l1
|
||||
on l1.ID_TABEL = b.ide_program || b.an || lpad(b.luna, 2, '0')
|
||||
and l1.tabel = 'BLOCATPROGRAMLUNI'
|
||||
and l1.camp = 'BLOCAT'
|
||||
and l1.id_util <> 2
|
||||
left join syn_utilizatori u
|
||||
on l1.id_util = u.id_util)
|
||||
ENDTEXT
|
||||
lcFiltru = "1 = 2"
|
||||
lcSchema = ""
|
||||
lcOrder = "ide_program, an desc, luna desc"
|
||||
llAfisare = .F.
|
||||
lcGroup = ""
|
||||
llModParam = .T.
|
||||
lcFiltruOriginal = "nvl(id_log,0) = nvl(idlogmax,0)"
|
||||
gencursor(lcObiect, lcCursor, lcSelect, lcFiltru, lcSchema, lcOrder, llAfisare, lcGroup, llModParam, lcFiltruOriginal)
|
||||
poBlocat.ca_baza1.lAfisare = .T.
|
||||
poBlocat.ca_baza1.afisare()
|
||||
If !Used('crsLuniAn')
|
||||
lnSucces = -1
|
||||
Endif
|
||||
Endif
|
||||
|
||||
If lnSucces > 0
|
||||
ovizblocate=Createobject('frm_viz_blocate')
|
||||
ovizblocate.Show(1)
|
||||
Endif
|
||||
|
||||
If Used('crsPrograme')
|
||||
Use In crsPrograme
|
||||
Endif
|
||||
|
||||
If Used('crsFirme')
|
||||
Use In crsFirme
|
||||
Endif
|
||||
|
||||
If Used('crsLuniAn')
|
||||
Use In crsLuniAn
|
||||
Endif
|
||||
SET SECONDS &lcSeconds
|
||||
Endproc
|
||||
*----------------------------------sfarsit procedura VIZ_LUNI_BLOCATE----------------------------------
|
||||
|
||||
Procedure viz_firme
|
||||
Private pofirme,pcschema1,pcselect1
|
||||
Store '' To pofirme
|
||||
If Used('v_firme')
|
||||
Use In v_firme
|
||||
Endif
|
||||
|
||||
llAfisare=.F.
|
||||
pcschema1 = ['']
|
||||
pcselect1=['select * from syn_v_nom_firme where 1=2']
|
||||
pcorder1=[firma]
|
||||
pcfiltru1 = [sters=0 and id_firma = ] + Alltrim(Str(gofirma.id_firma))
|
||||
gencursor('pofirme','v_firme',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
||||
pofirme.ca_baza1.afisare()
|
||||
|
||||
*!* Select v_firme
|
||||
*!* Scatter Name poRec
|
||||
*!* ofrmfirme=Createobject("frm_firme")
|
||||
*!* ofrmfirme.Show(1)
|
||||
|
||||
If Reccount('v_firme')>0
|
||||
gnButon=1
|
||||
Select v_firme
|
||||
Scatter Name loRec
|
||||
*!* modificare 11.08
|
||||
AddProperty(loRec,"modificare_schema",0)
|
||||
*!* modificare 11.08 ^
|
||||
*!* modificare ROADEF v 2.1.2
|
||||
*!* *!* modificare ROADEF v 2.0.23
|
||||
*!* lnCodSiruta = 0
|
||||
*!* If !Empty(Nvl(loRec.id_loc,0))
|
||||
*!* lcSql = [select siruta from syn_vnom_localitati where id_loc = ] + Alltrim(Str(loRec.id_loc))
|
||||
*!* lcCursor = [crstmpsiruta]
|
||||
*!* If goExecutor.oExecuta(lcSql,lcCursor)
|
||||
*!* Select (lcCursor)
|
||||
*!* lnCodSiruta = siruta
|
||||
*!* Use In (Select(lcCursor))
|
||||
*!* Endif
|
||||
*!* Endif
|
||||
*!* AddProperty(loRec,"siruta",lnCodSiruta)
|
||||
*!* *!* modificare ROADEF v 2.0.23 ^
|
||||
*!* modificare ROADEF v 2.1.2 ^
|
||||
*!* 07.02.2008
|
||||
*!* Do Adauga_Modifica_Inregistrare With "firme",loRec,loRec.id_firma,"UPDATE"
|
||||
Private poRec
|
||||
poRec = loRec
|
||||
loAdModFirme = Createobject("frm_firme_nou_desktopf",loRec,loRec.id_firma,"UPDATE")
|
||||
loAdModFirme.Show(1)
|
||||
llRet = gnButon
|
||||
*!* 07.02.2008 ^
|
||||
Endif
|
||||
*!* Release ofrmfirme
|
||||
Release pofirme
|
||||
Endproc && viz_firme
|
||||
|
||||
*******************************************
|
||||
* PROCEDURE def_calculatoare( )
|
||||
* Date : 08/24/06, 11:57:53
|
||||
* author : liana.macinic
|
||||
* description:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parameters : 0
|
||||
*
|
||||
*******************************************
|
||||
Procedure def_calculatoare( )
|
||||
|
||||
Private pocalc,pcschema1,pcselect1
|
||||
Store '' To pocalc
|
||||
*!* pcschema1=['id_gestiune n(5),nume_gestiune c(50),cgest c(4),cont_gestiune c(4),ngest c(10),nrg n(4),ascd c(4),nr_grupa n(4),gest n(3)']
|
||||
pcschema1 = ['']
|
||||
pcselect1=['select * from ] + gcS + [.vcalculatoare where 1=2']
|
||||
pcorder1=[denumire]
|
||||
pcfiltru1 = [2=2]
|
||||
llAfiseaza = .F.
|
||||
gencursor('pocalc','crsCalc',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
|
||||
pocalc.ca_baza1.afisare()
|
||||
ofrmgest=Createobject('frm_calc')
|
||||
ofrmgest.Show(1)
|
||||
Release pocalc
|
||||
|
||||
Endproc
|
||||
*----------------------------------sfarsit procedura def_calculatoare----------------------------------
|
||||
|
||||
*******************************************
|
||||
* PROCEDURE set_calculatoare( )
|
||||
* Date : 08/24/06, 12:01:59
|
||||
* author : liana.macinic
|
||||
* description:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parameters : 0
|
||||
*
|
||||
*******************************************
|
||||
Procedure set_calculatoare( )
|
||||
|
||||
Private pocalc,pcschema1,pcselect1
|
||||
Store '' To pocalc
|
||||
lcSchema = [SUCURSALA C(100), ID_SUCURSALA N(10), CALCULATOR C(100), COLOANE C(100), EXPLICATIA C(100), IDCOLOANA C(50), ] + [ID_CALC N(10), ID_CALCSETARE N(10), RESULTCOLOANA C(50), SETARE C(100), TABEL C(50), TIP C(10), TITLU C(100), TITLUCOLOANE C(100), VALOARE C(64), VALOARE_TEXT C(200)]
|
||||
lcSelect=[SELECT SUCURSALA, ID_SUCURSALA, CALCULATOR, COLOANE, EXPLICATIA, IDCOLOANA, ID_CALC, ID_CALCSETARE, RESULTCOLOANA, SETARE, TABEL, TIP, TITLU, TITLUCOLOANE, VALOARE, VALOARE_TEXT FROM VCALC_SETARI]
|
||||
|
||||
lcOrder=[sucursala,calculator,setare]
|
||||
lcFiltru = []
|
||||
lcFiltruOriginal = []
|
||||
llAfiseaza = .F.
|
||||
llModParam = .T.
|
||||
lcGroup = []
|
||||
gencursor('pocalc','crsCalcsetari', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcGroup, llModParam, lcFiltruOriginal)
|
||||
pocalc.ca_baza1.afisare()
|
||||
ofrmgest=Createobject('frm_calcsetari')
|
||||
ofrmgest.Show(1)
|
||||
Release pocalc
|
||||
|
||||
|
||||
Endproc
|
||||
*----------------------------------sfarsit procedura set_calculatoare----------------------------------
|
||||
|
||||
*******************************************
|
||||
* PROCEDURE grupuri_util( )
|
||||
* Date : 08/24/06, 15:15:22
|
||||
* author : liana.macinic
|
||||
* description:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parameters : 0
|
||||
*
|
||||
*******************************************
|
||||
Procedure grupuri_util( )
|
||||
Private pogrup,pcschema1,pcselect1
|
||||
Store '' To pogrup
|
||||
*!* pcschema1=['id_gestiune n(5),nume_gestiune c(50),cgest c(4),cont_gestiune c(4),ngest c(10),nrg n(4),ascd c(4),nr_grupa n(4),gest n(3)']
|
||||
pcschema1 = ['']
|
||||
pcselect1=['select * from ] + gcS + [.vgrupuri_utilizatori where 1=2']
|
||||
pcorder1=[denumire_grup]
|
||||
pcfiltru1 = [2=2]
|
||||
llAfiseaza = .F.
|
||||
gencursor('pogrup','crsGrup',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
|
||||
pogrup.ca_baza1.afisare()
|
||||
ofrmgest=Createobject('frm_grupUtil')
|
||||
ofrmgest.Show(1)
|
||||
Release pogrup
|
||||
|
||||
|
||||
Endproc
|
||||
*----------------------------------sfarsit procedura grupuri_util----------------------------------
|
||||
|
||||
*******************************************
|
||||
* PROCEDURE util_rol_intern( )
|
||||
* Date : 08/24/06, 15:15:38
|
||||
* author : liana.macinic
|
||||
* description:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parameters : 0
|
||||
*
|
||||
*******************************************
|
||||
Procedure util_rol_intern( )
|
||||
|
||||
Private poutil,pcschema1,pcselect1
|
||||
Store '' To poutil
|
||||
*!* pcschema1=['id_gestiune n(5),nume_gestiune c(50),cgest c(4),cont_gestiune c(4),ngest c(10),nrg n(4),ascd c(4),nr_grupa n(4),gest n(3)']
|
||||
pcschema1 = ['']
|
||||
pcselect1=['select * from ] + gcS + [.vutilizatori_rol_intern where 1=2']
|
||||
pcorder1=[sucursala, denumire_grup, utilizator, partener, contact]
|
||||
pcfiltru1 = [2=2]
|
||||
llAfiseaza = .F.
|
||||
*!* modificare v 2.0.11
|
||||
lcFiltruOriginal = Substr(gcCondSucursala,5)
|
||||
llModParam = .F.
|
||||
lcGroup = []
|
||||
gencursor('poutil','crsUtil',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
||||
*!* gencursor('poutil','crsUtil',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
|
||||
*!* modificare v 2.0.11 ^
|
||||
poutil.ca_baza1.afisare()
|
||||
ofrmgest=Createobject('frm_Utilizatori')
|
||||
ofrmgest.Show(1)
|
||||
Release poutil
|
||||
|
||||
Endproc
|
||||
*----------------------------------sfarsit procedura util_rol_intern----------------------------------
|
||||
|
||||
*******************************************
|
||||
* PROCEDURE list_utilizatori( )
|
||||
* Date : 08/25/06, 13:41:16
|
||||
* author : liana.macinic
|
||||
* description:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parameters : 0
|
||||
*
|
||||
*******************************************
|
||||
Procedure list_utilizatori( )
|
||||
Local lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc
|
||||
lcSelect = [select * FROM vNOM_SUCURSALE]
|
||||
lcFiltru = [1=2]
|
||||
lcSchema = []
|
||||
lcOrder = [sucursala]
|
||||
lccoloane = [sucursala]
|
||||
lcTitlu = [Alegeti sucursala]
|
||||
lcTitluColoane = [Sucursala]
|
||||
lcFiltruOriginal = []
|
||||
lcNumeProc = ""
|
||||
lnPornire = 6
|
||||
llDesktop = .T.
|
||||
locauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal,,lnPornire,,,llDesktop)
|
||||
If buton=2
|
||||
Return
|
||||
Endif
|
||||
|
||||
lcSelect = [select * from vutilizatori_rol_intern ]+;
|
||||
IIF(!Empty(locauta.id_sucursala) And !Isnull(locauta.id_sucursala), [where id_sucursala = ]+Alltrim(Str(locauta.id_sucursala)),[])
|
||||
lcCursor = [crsUtilizatori]
|
||||
lnSucces = goExecutor.oExecute(lcSelect,lcCursor)
|
||||
If lnSucces < 0
|
||||
aMessagebox(goExecutor.cEroare,16,"Eroare")
|
||||
Exit
|
||||
Endif
|
||||
|
||||
*!* MESSAGEBOX(locauta.id_sucursala)
|
||||
|
||||
Select crsUtilizatori
|
||||
Report Form util To Printer Prompt Preview
|
||||
|
||||
Endproc
|
||||
*----------------------------------sfarsit procedura list_utilizatori----------------------------------
|
||||
|
||||
*******************************************
|
||||
* PROCEDURE list_calculatoare( )
|
||||
* Date : 08/25/06, 13:41:31
|
||||
* author : liana.macinic
|
||||
* description:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parameters : 0
|
||||
*
|
||||
*******************************************
|
||||
Procedure list_calculatoare( )
|
||||
Local lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc
|
||||
lcSelect = [select * FROM vNOM_SUCURSALE]
|
||||
lcFiltru = [1=2]
|
||||
lcSchema = []
|
||||
lcOrder = [sucursala]
|
||||
lccoloane = [sucursala]
|
||||
lcTitlu = [Alegeti sucursala]
|
||||
lcTitluColoane = [Sucursala]
|
||||
lcFiltruOriginal = []
|
||||
lcNumeProc = ""
|
||||
lnPornire = 6
|
||||
llDesktop = .T.
|
||||
locauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal,,lnPornire,,,llDesktop)
|
||||
If buton=2
|
||||
Return
|
||||
Endif
|
||||
|
||||
lcSelect = [select * from vcalculatoare ]+;
|
||||
IIF(!Empty(locauta.sucursala), [where id_sucursala = ]+Alltrim(Str(locauta.id_sucursala)),[])+[ order by sucursala]
|
||||
lcCursor = [crsCalc]
|
||||
lnSucces = goExecutor.oExecute(lcSelect,lcCursor)
|
||||
If lnSucces < 0
|
||||
aMessagebox(goExecutor.cEroare,16,"Eroare")
|
||||
Exit
|
||||
Endif
|
||||
|
||||
|
||||
Select crsCalc
|
||||
Report Form calculatoare To Printer Prompt Preview
|
||||
Endproc
|
||||
*----------------------------------sfarsit procedura list_calculatoare----------------------------------
|
||||
|
||||
*******************************************
|
||||
* PROCEDURE list_gestiuni( )
|
||||
* Date : 08/25/06, 13:42:03
|
||||
* author : liana.macinic
|
||||
* description:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parameters : 0
|
||||
*
|
||||
*******************************************
|
||||
Procedure list_gestiuni( )
|
||||
Local lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc
|
||||
lcSelect = [select * FROM vNOM_SUCURSALE]
|
||||
lcFiltru = [1=2]
|
||||
lcSchema = []
|
||||
lcOrder = [sucursala]
|
||||
lccoloane = [sucursala]
|
||||
lcTitlu = [Alegeti sucursala]
|
||||
lcTitluColoane = [Sucursala]
|
||||
lcFiltruOriginal = []
|
||||
lcNumeProc = ""
|
||||
lnPornire = 6
|
||||
llDesktop = .T.
|
||||
locauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal,,lnPornire,,,llDesktop)
|
||||
If buton=2
|
||||
Return
|
||||
Endif
|
||||
|
||||
lcSelect = [select * from vnom_gestiuni order by sucursala,nume_gestiune]
|
||||
*!* +;
|
||||
*!* IIF(!EMPTY(locauta.sucursala), [where id_sucursala = ]+ALLTRIM(STR(locauta.id_sucursala)),[])
|
||||
lcCursor = [crsGest]
|
||||
lnSucces = goExecutor.oExecute(lcSelect,lcCursor)
|
||||
If lnSucces < 0
|
||||
aMessagebox(goExecutor.cEroare,16,"Eroare")
|
||||
Exit
|
||||
Endif
|
||||
|
||||
Select crsGest
|
||||
Report Form gestiuni To Printer Prompt Preview
|
||||
|
||||
Endproc
|
||||
*----------------------------------sfarsit procedura list_gestiuni----------------------------------
|
||||
|
||||
*******************************************
|
||||
* PROCEDURE list_org_calc( )
|
||||
* Date : 08/25/06, 13:42:24
|
||||
* author : liana.macinic
|
||||
* description:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parameters : 0
|
||||
*
|
||||
*******************************************
|
||||
Procedure list_org_calc( )
|
||||
&&code goes here
|
||||
|
||||
|
||||
Endproc
|
||||
*----------------------------------sfarsit procedura list_org_calc----------------------------------
|
||||
|
||||
*******************************************
|
||||
* PROCEDURE list_org_gest( )
|
||||
* Date : 08/25/06, 13:42:41
|
||||
* author : liana.macinic
|
||||
* description:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parameters : 0
|
||||
*
|
||||
*******************************************
|
||||
Procedure list_org_gest( )
|
||||
&&code goes here
|
||||
|
||||
|
||||
Endproc
|
||||
*----------------------------------sfarsit procedura list_org_gest----------------------------------
|
||||
*******************************************
|
||||
* PROCEDURE list_org_util( )
|
||||
* Date : 08/25/06, 13:42:58
|
||||
* author : liana.macinic
|
||||
* description:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parameters : 0
|
||||
*
|
||||
*******************************************
|
||||
Procedure list_org_util( )
|
||||
ofrmgest=Createobject('frm_listutil')
|
||||
ofrmgest.Show(1)
|
||||
|
||||
Endproc
|
||||
*----------------------------------sfarsit procedura list_org_util----------------------------------
|
||||
|
||||
*!* iif(lower(pcPctLucru)='sucursala','Punct de lucru',IIF(LOWER(pcPctLucru) = 'partener',[Partener],'Grup')) + [: ]+ iif(allt(pcPctLucru) = 'sucursala',allt(sucursala),IIF(ALLT(pcPctLucru) = 'partener',ALLT(partener),allt(denumire_grup)))
|
||||
|
||||
*---------------------------------- inceput procedura asociere_parteneri_sectii ----------------------------------
|
||||
Procedure asociere_parteneri_sectii
|
||||
Parameters tnTip
|
||||
|
||||
If Empty(tnTip) Or Isnull(tnTip)
|
||||
Return
|
||||
Endif
|
||||
|
||||
Private pnTip_asociere
|
||||
pnTip_asociere = tnTip
|
||||
|
||||
Private poAsociere
|
||||
Local lcSchema, lcSelect, lcFiltru, lcOrder, llAfiseaza, lcGroup, llModParam, lcFiltruOriginal
|
||||
Store '' To poAsociere
|
||||
|
||||
lcSchema = []
|
||||
lcSelect=[select * from vasociere_parteneri_sectii]
|
||||
lcOrder=[denumire]
|
||||
lcFiltru = []
|
||||
llAfiseaza = .F.
|
||||
lcGroup = ""
|
||||
llModParam = .T.
|
||||
lcFiltruOriginal = [id_tip=]+Alltrim(Str(pnTip_asociere))
|
||||
|
||||
gencursor('poAsociere','crsAsociere',lcSelect,lcFiltru,lcSchema,lcOrder,llAfiseaza, lcGroup, llModParam, lcFiltruOriginal)
|
||||
poAsociere.ca_baza1.afisare()
|
||||
|
||||
lops = Createobject('frm_parteneri_sectii')
|
||||
lops.Show(1)
|
||||
|
||||
If Used('crsAsociere')
|
||||
Use In crsAsociere
|
||||
Endif
|
||||
|
||||
Endproc && asociere_parteneri_sectii
|
||||
*----------------------------------sfarsit procedura asociere_parteneri_sectii ----------------------------------
|
||||
|
||||
*---------------------------------- inceput procedura asociere_parteneri_gestiuni ----------------------------------
|
||||
Procedure asociere_parteneri_gestiuni
|
||||
Parameters tnTip
|
||||
|
||||
If Empty(tnTip) Or Isnull(tnTip)
|
||||
Return
|
||||
Endif
|
||||
|
||||
Private pnTip_asociere
|
||||
pnTip_asociere = tnTip
|
||||
|
||||
Private poAsociere
|
||||
Local lcSchema, lcSelect, lcFiltru, lcOrder, llAfiseaza, lcGroup, llModParam, lcFiltruOriginal
|
||||
Store '' To poAsociere
|
||||
|
||||
lcSchema = []
|
||||
lcSelect=[select id_asociere, id_part, denumire, id_gestiune, nume_gestiune, cont, id_util, dataora from vasociere_parteneri_gestiuni]
|
||||
lcOrder=[cont,denumire,nume_gestiune]
|
||||
lcFiltru = []
|
||||
llAfiseaza = .F.
|
||||
lcGroup = ""
|
||||
llModParam = .T.
|
||||
lcFiltruOriginal = [id_tip=]+Alltrim(Str(pnTip_asociere))
|
||||
|
||||
gencursor('poAsociere','crsAsociere',lcSelect,lcFiltru,lcSchema,lcOrder,llAfiseaza, lcGroup, llModParam, lcFiltruOriginal)
|
||||
poAsociere.ca_baza1.afisare()
|
||||
|
||||
lops = Createobject('frm_parteneri_gestiuni')
|
||||
lops.Show(1)
|
||||
|
||||
If Used('crsAsociere')
|
||||
Use In crsAsociere
|
||||
Endif
|
||||
|
||||
Endproc && asociere_parteneri_gestiuni
|
||||
*----------------------------------sfarsit procedura asociere_parteneri_gestiuni ----------------------------------
|
||||
Procedure viz_log_redeschid
|
||||
|
||||
*!* lcSelect = [select * from vlog_redeschid ]
|
||||
*!* lcCursor = [crsLog_redeschid]
|
||||
*!* lnSucces = goExecutor.oExecute(lcSelect,lcCursor)
|
||||
*!* If lnSucces < 0
|
||||
*!* aMessagebox(goExecutor.cEroare,16,"Eroare")
|
||||
*!* Endif
|
||||
|
||||
PRIVATE poLog_redeschid
|
||||
STORE '' TO poLog_redeschid
|
||||
|
||||
Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, lcGroup, lcFiltruOriginal
|
||||
lcSchema = []
|
||||
lcSelect = [select * from vlog_redeschid]
|
||||
lcOrder = []
|
||||
lcGroup = []
|
||||
lcFiltru = []
|
||||
lcFiltruOriginal = []
|
||||
llModParam = .T.
|
||||
llAfiseaza = .F.
|
||||
|
||||
gencursor('poLog_redeschid','crsLog_redeschid', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcGroup, llModParam, lcFiltruOriginal)
|
||||
poLog_redeschid.ca_baza1.afisare()
|
||||
|
||||
Create Cursor crsLog_luni (perioada c(22), anul N(4), luna N(2))
|
||||
Insert Into crsLog_luni (perioada) Values ("<Toate inregistrarile>")
|
||||
|
||||
Select distinct Alltrim(Str(anul))+'-'+Alltrim(Str(luna)) As perioada, anul, luna ;
|
||||
from crsLog_redeschid ;
|
||||
into Cursor crsLog_luni2 ;
|
||||
ORDER BY anul desc, luna desc
|
||||
|
||||
Select crsLog_luni
|
||||
Append From Dbf("crsLog_luni2")
|
||||
If Used("crsLog_luni2")
|
||||
Use In crsLog_luni2
|
||||
ENDIF
|
||||
|
||||
SELECT crsLog_luni
|
||||
GO TOP
|
||||
|
||||
Select crsLog_redeschid
|
||||
|
||||
lolr = Createobject('frm_log_redeschid')
|
||||
lolr.Show(1)
|
||||
|
||||
If Used('crsLog_redeschid')
|
||||
Use In crsLog_redeschid
|
||||
Endif
|
||||
|
||||
If Used('crsLog_luni')
|
||||
Use In crsLog_luni
|
||||
Endif
|
||||
|
||||
Endproc && viz_log_redeschid
|
||||
*----------------------------------sfarsit procedura viz_log_redeschid ----------------------------------
|
||||
Reference in New Issue
Block a user