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

BIN
COMUN/Drepturi utilizatori/ROAAUTO/crsobiecte.dbf Normal file
View File

Binary file not shown.

BIN
COMUN/Drepturi utilizatori/ROAAUTO/obiecte.dbf Normal file
View File

Binary file not shown.

62
COMUN/Drepturi utilizatori/ROAAUTO/scrie_obiecte.prg Normal file
View File

@@ -0,0 +1,62 @@
&& id = 8
lnIdProgram = 8
lcLocalDir=Addbs(Justpath(Sys(16,0)))
Cd (lcLocalDir)
If Used('obiecte')
Use In obiecte
Endif
Use obiecte In 0
gnhandle=SQLConnect('jcsserver','contafin_oracle','123')
If Used('crsmax')
Use In CrsMax
Endif
lcSql=[select pack_drepturi.getid_obiect() as maxid from dual]
lnSucces=SQLExec(gnhandle,lcSql,'crsmax')
If lnSucces<0
Messagebox("Eroare la citirea id-ului!")
Exit
Endif
Select CrsMax
lnMaxId=maxid
Use In CrsMax
MESSAGEBOX(lnMaxId,0,"Id maxim pentru obiecte")
Select obiecte
Replace id_prog With lnIdProgram All
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),5,1),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))='N'
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),4,2),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))<>'N'
Replace cod With Substr(cod,2,1) For !Inlist(Len(Alltrim(tata)),1,2) Or Type(Substr(cod,2,1))!='N'
Replace id_obiect With Recno()+lnMaxId All
Replace cheie With Alltrim(tata)+Alltrim(cod) All
Replace id_tata With -1 All
Select id_obiect,cheie From obiecte Where Alltrim(cheie) In (Select Distinct Alltrim(tata) As cheie From obiecte) Into Cursor crstati
Select crstati
Scan
lnIdObiect=id_obiect
lcCheie=Alltrim(cheie)
Select obiecte
Replace id_tata With lnIdObiect For Alltrim(tata)=lcCheie
Select crstati
Endscan
Use In crstati
lcSql=[update def_obiecte set sters=2 where id_program=]+ALLTRIM(STR(lnIdProgram))+[ and sters=0]
lnSucces=SQLExec(gnhandle,lcSql)
If lnSucces<0
Messagebox("Eroare la stergerea vechilor obiecte!")
Exit
Endif
Select obiecte
Browse
Scan
lcSql=[insert into def_obiecte (id_obiect,id_program,id_tata,descriere,cod) ]+;
[values (]+Alltrim(Str(id_obiect))+[,]+ALLTRIM(STR(id_prog))+[,]+;
ALLTRIM(Str(id_tata))+[,']+Alltrim(explicatie)+[',']+Alltrim(cod)+[')]
lnSucces=SQLExec(gnhandle,lcSql)
If lnSucces<1
Wait Window lcSql
Endif
Endscan
SQLDisconnect(gnhandle)
Use In obiecte

38
COMUN/Drepturi utilizatori/ROACASA/roacasa_obiecte.sql Normal file
View File

@@ -0,0 +1,38 @@
-- obiecte roacasa, drepturi asupra lor
-- creat de alex.lepadatu,
-- 28.04.2009
prompt PL/SQL Developer import file
prompt Created on Tuesday, April 28, 2009 by alexandru.lepadatu
set feedback off
set define off
prompt Disabling triggers for DEF_OBIECTE...
alter table DEF_OBIECTE disable all triggers;
prompt Loading DEF_OBIECTE...
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5628, 197, 'Listare', 5626, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5629, 197, 'Stergere', 5626, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5625, 197, 'Rapoarte', -1, 'C', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5626, 197, 'Registrul de casa', 5625, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5627, 197, 'Export', 5626, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5741, 197, 'Operatii', -1, 'B', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5742, 197, 'Seturi', 5741, '01', null, null, 0);
commit;
prompt 7 records loaded
prompt Enabling triggers for DEF_OBIECTE...
alter table DEF_OBIECTE enable all triggers;
set feedback on
set define on
prompt Done.
exec pack_migrare.UpdateVersiune('ff_2009_04_28_01_OBIECTE');
commit;

BIN
COMUN/Drepturi utilizatori/ROACONT/OBIECTE.Dbf Normal file
View File

Binary file not shown.

BIN
COMUN/Drepturi utilizatori/ROACONT/OBIECTE_1010.Dbf Normal file
View File

Binary file not shown.

BIN
COMUN/Drepturi utilizatori/ROACONT/obiecte_0510.dbf Normal file
View File

Binary file not shown.

BIN
COMUN/Drepturi utilizatori/ROACONT/obiecte_0710.dbf Normal file
View File

Binary file not shown.

BIN
COMUN/Drepturi utilizatori/ROACONT/obiecte_forma.dbf Normal file
View File

Binary file not shown.

BIN
COMUN/Drepturi utilizatori/ROACONT/obiecte_meniu.DBF Normal file
View File

Binary file not shown.

61
COMUN/Drepturi utilizatori/ROACONT/scrie_obiecte.prg Normal file
View File

@@ -0,0 +1,61 @@
&& id = 2
lnProgram = 2
lcLocalDir=Addbs(Justpath(Sys(16,0)))
Cd (lcLocalDir)
If Used('obiecte')
Use In obiecte
Endif
Use obiecte In 0
gnhandle=SQLConnect('jcsserver','contafin_oracle','123')
If Used('crsmax')
Use In CrsMax
Endif
lcSql=[select pack_drepturi.getid_obiect() as maxid from dual]
lnSucces=SQLExec(gnhandle,lcSql,'crsmax')
If lnSucces<0
Messagebox("Eroare la citirea id-ului!")
Exit
Endif
Select CrsMax
lnMaxId=maxid
Use In CrsMax
Select obiecte
Replace id_prog With lnProgram All
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),5,1),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))='N'
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),4,2),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))<>'N'
Replace cod With Substr(cod,2,1) For !Inlist(Len(Alltrim(tata)),1,2) Or Type(Substr(cod,2,1))!='N'
Replace id_obiect With Recno()+lnMaxId All
Replace cheie With Alltrim(tata)+Alltrim(cod) All
Replace id_tata With -1 All
Select id_obiect,cheie From obiecte Where Alltrim(cheie) In (Select Distinct Alltrim(tata) As cheie From obiecte) Into Cursor crstati
Select crstati
Scan
lnIdObiect=id_obiect
lcCheie=Alltrim(cheie)
Select obiecte
Replace id_tata With lnIdObiect For Alltrim(tata)=lcCheie
Select crstati
Endscan
Use In crstati
lcSql=[update def_obiecte set sters=2 where id_program=]+ALLTRIM(STR(lnIdProgram))+[ and sters=0]
lnSucces=SQLExec(gnhandle,lcSql)
If lnSucces<0
Messagebox("Eroare la stergerea vechilor obiecte!")
Exit
Endif
Select obiecte
Browse
Scan
lcSql=[insert into def_obiecte (id_obiect,id_program,id_tata,descriere,cod) ]+;
[values (]+Alltrim(Str(id_obiect))+[,]+ALLTRIM(STR(id_prog))+[,]+;
ALLTRIM(Str(id_tata))+[,']+Alltrim(explicatie)+[',']+Alltrim(cod)+[')]
lnSucces=SQLExec(gnhandle,lcSql)
If lnSucces<1
Wait Window lcSql
Endif
Endscan
SQLDisconnect(gnhandle)
Use In obiecte

BIN
COMUN/Drepturi utilizatori/ROADEF/obiecte.dbf Normal file
View File

Binary file not shown.

249
COMUN/Drepturi utilizatori/ROADEF/roadef_obiecte.sql Normal file
View File

@@ -0,0 +1,249 @@
-- obiecte roadef, drepturi asupra lor
-- creat de alex.lepadatu,
-- 21.04.2009
prompt Disabling triggers for DEF_OBIECTE...
alter table DEF_OBIECTE disable all triggers;
prompt Loading DEF_OBIECTE...
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5516, 1, 'Organizarea companiei', -1, 'A', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5517, 1, 'Datele firmei', 5516, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5518, 1, 'Sucursale/puncte de lucru', 5516, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5519, 1, 'Export', 5518, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5520, 1, 'Listare', 5518, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5521, 1, 'Modificare', 5518, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5522, 1, 'Refacere', 5518, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5523, 1, 'Departamente/ Sectii', 5516, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5524, 1, 'Export', 5523, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5525, 1, 'Listare', 5523, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5526, 1, 'Modificare', 5523, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5527, 1, 'Refacere', 5523, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5528, 1, 'Gestiuni', 5516, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5529, 1, 'Export', 5528, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5530, 1, 'Listare', 5528, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5531, 1, 'Modificare', 5528, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5532, 1, 'Refacere', 5528, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5533, 1, 'Calculatoare', 5516, '05', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5534, 1, 'Export', 5533, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5535, 1, 'Listare', 5533, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5536, 1, 'Modificare', 5533, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5537, 1, 'Refacere', 5533, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5538, 1, 'Utilizatori', 5516, '06', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5539, 1, 'Export', 5538, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5540, 1, 'Listare', 5538, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5541, 1, 'Modificare', 5538, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5542, 1, 'Refacere', 5538, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5543, 1, 'Rapoarte', 5516, '07', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5544, 1, 'Entitati', -1, 'B', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5545, 1, 'Entitati', 5544, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5546, 1, 'Export', 5545, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5547, 1, 'Listare', 5545, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5548, 1, 'Modificare', 5545, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5549, 1, 'Refacere', 5545, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5550, 1, 'Responsabili', 5544, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5551, 1, 'Export', 5550, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5552, 1, 'Listare', 5550, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5553, 1, 'Modificare', 5550, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5554, 1, 'Refacere', 5550, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5555, 1, 'Asociere entitati-sectii/gestiuni', 5544, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5556, 1, 'Export', 5555, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5557, 1, 'Listare', 5555, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5558, 1, 'Modificare', 5555, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5559, 1, 'Refacere', 5555, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5560, 1, 'Angajati', 5544, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5561, 1, 'Export', 5560, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5562, 1, 'Listare', 5560, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5563, 1, 'Modificare', 5560, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5564, 1, 'Refacere', 5560, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5565, 1, 'Liste nomenclatoare', -1, 'C', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5566, 1, 'Tipuri de venituri si cheltuieli', 5565, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5567, 1, 'Export', 5566, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5568, 1, 'Listare', 5566, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5569, 1, 'Modificare', 5566, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5570, 1, 'Refacere', 5566, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5571, 1, 'Lucrari', 5565, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5572, 1, 'Export', 5571, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5573, 1, 'Listare', 5571, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5574, 1, 'Modificare', 5571, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5575, 1, 'Refacere', 5571, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5576, 1, 'Tipuri de documente', 5565, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5577, 1, 'Export', 5576, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5578, 1, 'Listare', 5576, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5579, 1, 'Modificare', 5576, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5580, 1, 'Refacere', 5576, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5581, 1, 'Medii de transmisie', 5565, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5582, 1, 'Export', 5581, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5583, 1, 'Listare', 5581, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5584, 1, 'Modificare', 5581, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5585, 1, 'Refacere', 5581, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5586, 1, 'Judete', 5565, '05', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5587, 1, 'Export', 5586, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5588, 1, 'Listare', 5586, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5589, 1, 'Modificare', 5586, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5590, 1, 'Refacere', 5586, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5591, 1, 'Localitati', 5565, '06', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5592, 1, 'Export', 5591, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5593, 1, 'Listare', 5591, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5594, 1, 'Modificare', 5591, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5595, 1, 'Refacere', 5591, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5596, 1, 'Valute', 5565, '07', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5597, 1, 'Export', 5596, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5598, 1, 'Listare', 5596, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5599, 1, 'Modificare', 5596, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5600, 1, 'Refacere', 5596, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5601, 1, 'Categorii de entitati', 5565, '08', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5602, 1, 'Export', 5601, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5603, 1, 'Listare', 5601, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5604, 1, 'Modificare', 5601, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5605, 1, 'Refacere', 5601, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5606, 1, 'Utilitati', -1, 'D', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5607, 1, 'Deschidere de luna', 5606, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5608, 1, 'Export', 5607, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5609, 1, 'Listare', 5607, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5610, 1, 'Modificare', 5607, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5611, 1, 'Refacere', 5607, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5612, 1, 'Vizualizare istoric deschid./redeschid.', 5606, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5613, 1, 'Blocare de luna', 5606, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5614, 1, 'Optiuni', 5606, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5615, 1, 'Categorii seturi', 5606, '05', null, null, 0);
commit;
prompt 100 records committed...
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5616, 1, 'Export', 5615, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5617, 1, 'Listare', 5615, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5618, 1, 'Modificare', 5615, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5619, 1, 'Refacere', 5615, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5620, 1, 'Configurare seturi', 5606, '06', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5621, 1, 'Export', 5620, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5622, 1, 'Listare', 5620, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5623, 1, 'Modificare', 5620, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5624, 1, 'Refacere', 5620, '4', null, null, 0);
commit;
prompt 109 records loaded
prompt Enabling triggers for DEF_OBIECTE...
alter table DEF_OBIECTE enable all triggers;
insert into def_grup_drept_obiecte
(id_grup, id_obiect, id_utilop, dataora)
select g.id_grup, o.id_obiect, -3, sysdate
from (select id_grup
from def_grup_drept t
where id_program = 1
and sters = 0) g,
(select id_obiect
from def_obiecte
where id_program = 1
and sters = 0) o;
commit;
exec pack_migrare.UpdateVersiune('ff_2009_04_21_05_OBIECTE');
commit;

62
COMUN/Drepturi utilizatori/ROADEF/scrie_obiecte.prg Normal file
View File

@@ -0,0 +1,62 @@
*!* ATENTIE LA SECVENTA, SE APELEAZA AUTOMAT TRIGGERUL LA INSERT
&& id = 2
lnIdProgram = 1
lcLocalDir=Addbs(Justpath(Sys(16,0)))
Cd (lcLocalDir)
If Used('obiecte')
Use In obiecte
Endif
Use obiecte In 0
gnhandle=SQLConnect('jcsserver','contafin_oracle','123')
If Used('crsmax')
Use In CrsMax
Endif
lcSql=[select pack_drepturi.getid_obiect() as maxid from dual]
lnSucces=SQLExec(gnhandle,lcSql,'crsmax')
If lnSucces<0
Messagebox("Eroare la citirea id-ului!")
Exit
Endif
Select CrsMax
lnMaxId=maxid
Use In CrsMax
Select obiecte
Replace id_prog With lnidProgram All
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),5,1),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))='N'
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),4,2),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))<>'N'
Replace cod With Substr(cod,2,1) For !Inlist(Len(Alltrim(tata)),1,2) Or Type(Substr(cod,2,1))!='N'
Replace id_obiect With Recno()+lnMaxId All
Replace cheie With Alltrim(tata)+Alltrim(cod) All
Replace id_tata With -1 All
Select id_obiect,cheie From obiecte Where Alltrim(cheie) In (Select Distinct Alltrim(tata) As cheie From obiecte) Into Cursor crstati
Select crstati
Scan
lnIdObiect=id_obiect
lcCheie=Alltrim(cheie)
Select obiecte
Replace id_tata With lnIdObiect For Alltrim(tata)=lcCheie
Select crstati
Endscan
Use In crstati
lcSql=[update def_obiecte set sters=2 where id_program=]+ALLTRIM(STR(lnIdProgram))+[ and sters=0]
lnSucces=SQLExec(gnhandle,lcSql)
If lnSucces<0
Messagebox("Eroare la stergerea vechilor obiecte!")
Exit
Endif
Select obiecte
Browse
Scan
lcSql=[insert into def_obiecte (id_obiect,id_program,id_tata,descriere,cod) ]+;
[values (]+Alltrim(Str(id_obiect))+[,]+ALLTRIM(STR(id_prog))+[,]+;
ALLTRIM(Str(id_tata))+[,']+Alltrim(explicatie)+[',']+Alltrim(cod)+[')]
lnSucces=SQLExec(gnhandle,lcSql)
If lnSucces<1
Wait Window lcSql
Endif
Endscan
SQLDisconnect(gnhandle)
Use In obiecte

219
COMUN/Drepturi utilizatori/ROAGEST/adaugare_drepturi.prg Normal file
View File

@@ -0,0 +1,219 @@
Procedure citeste_obiecte
Local lcMeniu,lcPageframe
lcMeniu=[contgest]
lcPageframe=[oprinc.pagefr1]
Create Cursor CRSOBIECTE(ID_PROG N(1),CHEIE C(20),NIVEL N(2),EXPLICATIE C(100),TATA C(20),COD C(2),ID_OBIECT N(10),ID_TATA N(10))
plCursor=.T.
citeste_meniu(90,lcmeniu,"Meniu")
citeste_pageframe(65,lcpageframe)
select * FROM crsobiecte INTO TABLE C:\crsobiecte.dbf
Endproc
************************************************************************
Procedure citeste_meniu
Lparameters lnKey,lcNumeMeniu,lcOptiune
lcKey=Chr(lnKey)
*!* This.Nodes.Add(,1,lcKey,lcOptiune)
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey,1,lcOptiune,[ ])
Endif
lnKey2=65
*!* k=0
*!* Try
*!* lcKey2=lcKey+Chr(lnKey2)
*!* lnKey2=lnKey2+1
*!* This.Nodes.Add(lcKey,4,lcKey2,'Utile')
*!* If plCursor
*!* Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2,4,[Utile],lcKey)
*!* Endif
*!* For i=1 To Cntbar('utile')
*!* lcOptiune=Prmbar('utile',i)
*!* If !Empty(lcOptiune)
*!* k=k+1
*!* This.Nodes.Add(lcKey2,4,lcKey2+Padl(Alltrim(Str(k)),2,[0]),lcOptiune)
*!* If plCursor
*!* Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2+Padl(Alltrim(Str(k)),2,[0]),4,lcOptiune,lcKey2)
*!* Endif
*!* Endif
*!* Endfor
*!* Catch
*!* ENDTRY
k=0
Try
lcKey2=lcKey+Chr(lnKey2)
lnKey2=lnKey2+1
*!* This.Nodes.Add(lcKey,4,lcKey2,'Initializare')
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2,4,[Actualizare],lcKey)
Endif
For i=1 To Cntbar('actualizar')
lcOptiune=Prmbar('actualizar',i)
If !Empty(lcOptiune)
k=k+1
*!* This.Nodes.Add(lcKey2,4,lcKey2+Padl(Alltrim(Str(k)),2,[0]),lcOptiune)
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2+Padl(Alltrim(Str(k)),2,[0]),4,lcOptiune,lcKey2)
Endif
Endif
Endfor
Catch
Endtry
*!* k=0
*!* Try
*!* lcKey2=lcKey+Chr(lnKey2)
*!* *!* This.Nodes.Add(lcKey,4,lcKey2,'Actualizari')
*!* If plCursor
*!* Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2,4,[Actualizari],lcKey)
*!* Endif
*!* For i=1 To Cntbar('_1bs12qror')
*!* lcOptiune=Prmbar('_1bs12qror',i)
*!* If !Empty(lcOptiune)
*!* k=k+1
*!* *!* This.Nodes.Add(lcKey2,4,lcKey2+Padl(Alltrim(Str(k)),2,[0]),lcOptiune)
*!* If plCursor
*!* Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2+Padl(Alltrim(Str(k)),2,[0]),4,lcOptiune,lcKey2)
*!* Endif
*!* Endif
*!* Endfor
*!* Catch
*!* Endtry
************************************************************************
Procedure citeste_pageframe
Lparameters lnKey,lcPageframe,lcTata
Local lcKey,lcProp,lcOptiune,lnNivel,lnPozitie,i,j,k,l
Store [] To lcKey,lcProp,lcOptiune
Store 0 To lnNivel,lnPozitie,i,j,k,l
If Empty(lcTata)
lcTata=Null
lnNivel=1
Else
lnNivel=4
Endif
Set Exact On
With &lcPageframe
For i=1 To .PageCount
For j=1 To .PageCount
If .Pages(j).PageOrder=i
Exit
Endif
Endfor
With .Pages(j)
lcKey=Nvl(lcTata,[])+Chr(lnKey)
*!* This.Nodes.Add(lcTata,lnNivel,lcKey,.Caption)
lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey,lnNivel,.Caption,Nvl(lcTata,[ ]))
Endif
lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
Dimension copii(128,3)
k=1
For l=1 To .ControlCount
Do Case
Case Alltrim(Upper(.Objects(l).Class))='PAGEFRAME'
lcNume=lcPageframe+'.'+Alltrim(.Name)+'.'+Alltrim(Upper(.Objects(l).Name))
citeste_pageframe(65,lcNume,lcKey)
Case Alltrim(Upper(.Objects(l).Class))='CW' And .Objects(l).nid_cw>0
lcOptiune=.Objects(l).label_item1.Caption
lnPozitie=.Objects(l).nid_cw
copii(lnPozitie,1)=lcOptiune
copii(lnPozitie,2)=.Objects(l).ntip
copii(lnPozitie,3)=.Objects(l).cmeniu
k=k+1
Endcase
Endfor
For l=1 To k-1
*!* This.Nodes.Add(lcKey,4,lcKey+Padl(Alltrim(Str(l)),2,[0]),copii(l,1))
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+Padl(Alltrim(Str(l)),2,[0]),4,copii(l,1),lcKey)
Endif
*!* If !Empty(copii(l,3))
*!* This.adauga_meniuri(copii(l,3),copii(l,2),lcKey+Padl(Alltrim(Str(l)),2,[0]))
*!* Else
adauga_frunze(copii(l,2),lcKey+Padl(Alltrim(Str(l)),2,[0]))
*!* Endif
Endfor
Endwith
lnKey=lnKey+1
Endfor
Endwith
Set Exact Off
Endproc
************************************************************************
Procedure adauga_frunze
Lparameters lnTip,lcKey
Do Case
Case lnTip=0 && introducere
Case lnTip=1 && raport
*!* lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
Endif
Case lnTip=2 && registru
*!* lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Refacere")
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Refacere",lcKey)
Endif
Case lnTip=3 && balanta\inreg.
*!* lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Refacere")
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Refacere",lcKey)
Endif
Case lnTip=4 && vizualizare
*!* lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Stergere")
*!* This.Nodes.Add(lcKey,4,lcKey+"5","Vizualizare inreg. proprii")
*!* This.Nodes.Add(lcKey,4,lcKey+"6","Vizualizare toate inreg.")
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Stergere",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"5",4,"Vizualizare inreg.proprii",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"6",4,"Vizualizare tot",lcKey)
ENDIF
Case lnTip=5 && personalizat
*!* lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Stergere")
*!* This.Nodes.Add(lcKey,4,lcKey+"7","Altele...")
*!* This.Nodes.Add(lcKey,4,lcKey+"8","Altele...")
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Stergere",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"7",4,"Altele...",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"8",4,"Altele...",lcKey)
Endif
Endcase
Endproc
************************************************************************

BIN
COMUN/Drepturi utilizatori/ROAGEST/crsobiecte.dbf Normal file
View File

Binary file not shown.

BIN
COMUN/Drepturi utilizatori/ROAGEST/obiecte.dbf Normal file
View File

Binary file not shown.

62
COMUN/Drepturi utilizatori/ROAGEST/scrie_obiecte.prg Normal file
View File

@@ -0,0 +1,62 @@
&& id = 5
lnIdProgram = 5
lcLocalDir=Addbs(Justpath(Sys(16,0)))
Cd (lcLocalDir)
If Used('obiecte')
Use In obiecte
Endif
Use obiecte In 0
gnhandle=SQLConnect('jcsserver','contafin_oracle','123')
If Used('crsmax')
Use In CrsMax
Endif
lcSql=[select pack_drepturi.getid_obiect() as maxid from dual]
lnSucces=SQLExec(gnhandle,lcSql,'crsmax')
If lnSucces<0
Messagebox("Eroare la citirea id-ului!")
Exit
Endif
Select CrsMax
lnMaxId=maxid
Use In CrsMax
MESSAGEBOX(lnMaxId,0,"Id maxim pentru obiecte")
Select obiecte
Replace id_prog With lnIdProgram All
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),5,1),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))='N'
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),4,2),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))<>'N'
Replace cod With Substr(cod,2,1) For !Inlist(Len(Alltrim(tata)),1,2) Or Type(Substr(cod,2,1))!='N'
Replace id_obiect With Recno()+lnMaxId All
Replace cheie With Alltrim(tata)+Alltrim(cod) All
Replace id_tata With -1 All
Select id_obiect,cheie From obiecte Where Alltrim(cheie) In (Select Distinct Alltrim(tata) As cheie From obiecte) Into Cursor crstati
Select crstati
Scan
lnIdObiect=id_obiect
lcCheie=Alltrim(cheie)
Select obiecte
Replace id_tata With lnIdObiect For Alltrim(tata)=lcCheie
Select crstati
Endscan
Use In crstati
lcSql=[update def_obiecte set sters=2 where id_program=]+ALLTRIM(STR(lnIdProgram))+[ and sters=0]
lnSucces=SQLExec(gnhandle,lcSql)
If lnSucces<0
Messagebox("Eroare la stergerea vechilor obiecte!")
Exit
Endif
Select obiecte
Browse
Scan
lcSql=[insert into def_obiecte (id_obiect,id_program,id_tata,descriere,cod) ]+;
[values (]+Alltrim(Str(id_obiect))+[,]+ALLTRIM(STR(id_prog))+[,]+;
ALLTRIM(Str(id_tata))+[,']+Alltrim(explicatie)+[',']+Alltrim(cod)+[')]
lnSucces=SQLExec(gnhandle,lcSql)
If lnSucces<1
Wait Window lcSql
Endif
Endscan
SQLDisconnect(gnhandle)
Use In obiecte

218
COMUN/Drepturi utilizatori/ROALUCRARI/adaugare_drepturi.prg Normal file
View File

@@ -0,0 +1,218 @@
Procedure citeste_obiecte
Local lcMeniu,lcPageframe
*!* lcMeniu=[cont2000]
lcPageframe=[gofundal._pgfrmbase1]
Create Cursor CRSOBIECTE(ID_PROG N(1),CHEIE C(20),NIVEL N(2),EXPLICATIE C(100),TATA C(20),COD C(2),ID_OBIECT N(10),ID_TATA N(10))
plCursor=.T.
*!* citeste_meniu(90,lcmeniu,"Meniu")
citeste_pageframe(65,lcpageframe)
select * FROM crsobiecte INTO TABLE C:\crsobiecte.dbf
Endproc
************************************************************************
Procedure citeste_meniu
Lparameters lnKey,lcNumeMeniu,lcOptiune
lcKey=Chr(lnKey)
*!* This.Nodes.Add(,1,lcKey,lcOptiune)
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey,1,lcOptiune,[ ])
Endif
lnKey2=65
*!* k=0
*!* Try
*!* lcKey2=lcKey+Chr(lnKey2)
*!* lnKey2=lnKey2+1
*!* This.Nodes.Add(lcKey,4,lcKey2,'Utile')
*!* If plCursor
*!* Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2,4,[Utile],lcKey)
*!* Endif
*!* For i=1 To Cntbar('utile')
*!* lcOptiune=Prmbar('utile',i)
*!* If !Empty(lcOptiune)
*!* k=k+1
*!* This.Nodes.Add(lcKey2,4,lcKey2+Padl(Alltrim(Str(k)),2,[0]),lcOptiune)
*!* If plCursor
*!* Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2+Padl(Alltrim(Str(k)),2,[0]),4,lcOptiune,lcKey2)
*!* Endif
*!* Endif
*!* Endfor
*!* Catch
*!* ENDTRY
k=0
Try
lcKey2=lcKey+Chr(lnKey2)
lnKey2=lnKey2+1
*!* This.Nodes.Add(lcKey,4,lcKey2,'Initializare')
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2,4,[Initializare],lcKey)
Endif
For i=1 To Cntbar('initializa')
lcOptiune=Prmbar('initializa',i)
If !Empty(lcOptiune)
k=k+1
*!* This.Nodes.Add(lcKey2,4,lcKey2+Padl(Alltrim(Str(k)),2,[0]),lcOptiune)
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2+Padl(Alltrim(Str(k)),2,[0]),4,lcOptiune,lcKey2)
Endif
Endif
Endfor
Catch
Endtry
k=0
Try
lcKey2=lcKey+Chr(lnKey2)
*!* This.Nodes.Add(lcKey,4,lcKey2,'Actualizari')
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2,4,[Actualizari],lcKey)
Endif
For i=1 To Cntbar('_1bs12qror')
lcOptiune=Prmbar('_1bs12qror',i)
If !Empty(lcOptiune)
k=k+1
*!* This.Nodes.Add(lcKey2,4,lcKey2+Padl(Alltrim(Str(k)),2,[0]),lcOptiune)
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2+Padl(Alltrim(Str(k)),2,[0]),4,lcOptiune,lcKey2)
Endif
Endif
Endfor
Catch
Endtry
************************************************************************
Procedure citeste_pageframe
Lparameters lnKey,lcPageframe,lcTata
Local lcKey,lcProp,lcOptiune,lnNivel,lnPozitie,i,j,k,l
Store [] To lcKey,lcProp,lcOptiune
Store 0 To lnNivel,lnPozitie,i,j,k,l
If Empty(lcTata)
lcTata=Null
lnNivel=1
Else
lnNivel=4
Endif
Set Exact On
With &lcPageframe
For i=1 To .PageCount
For j=1 To .PageCount
If .Pages(j).PageOrder=i
Exit
Endif
Endfor
With .Pages(j)
lcKey=Nvl(lcTata,[])+Chr(lnKey)
*!* This.Nodes.Add(lcTata,lnNivel,lcKey,.Caption)
lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey,lnNivel,.Caption,Nvl(lcTata,[ ]))
Endif
lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
Dimension copii(128,3)
k=1
For l=1 To .ControlCount
Do Case
Case Alltrim(Upper(.Objects(l).Class))='PAGEFRAME'
lcNume=lcPageframe+'.'+Alltrim(.Name)+'.'+Alltrim(Upper(.Objects(l).Name))
citeste_pageframe(65,lcNume,lcKey)
Case Alltrim(Upper(.Objects(l).Class))='CW' And .Objects(l).nid_cw>0
lcOptiune=.Objects(l).label_item1.Caption
lnPozitie=.Objects(l).nid_cw
copii(lnPozitie,1)=lcOptiune
copii(lnPozitie,2)=.Objects(l).ntip
copii(lnPozitie,3)=.Objects(l).cmeniu
k=k+1
Endcase
Endfor
For l=1 To k-1
*!* This.Nodes.Add(lcKey,4,lcKey+Padl(Alltrim(Str(l)),2,[0]),copii(l,1))
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+Padl(Alltrim(Str(l)),2,[0]),4,copii(l,1),lcKey)
Endif
*!* If !Empty(copii(l,3))
*!* This.adauga_meniuri(copii(l,3),copii(l,2),lcKey+Padl(Alltrim(Str(l)),2,[0]))
*!* Else
adauga_frunze(copii(l,2),lcKey+Padl(Alltrim(Str(l)),2,[0]))
*!* Endif
Endfor
Endwith
lnKey=lnKey+1
Endfor
Endwith
Set Exact Off
Endproc
************************************************************************
Procedure adauga_frunze
Lparameters lnTip,lcKey
Do Case
Case lnTip=0 && introducere
Case lnTip=1 && raport
*!* lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
Endif
Case lnTip=2 && registru
*!* lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Refacere")
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Refacere",lcKey)
Endif
Case lnTip=3 && balanta\inreg.
*!* lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Refacere")
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Refacere",lcKey)
Endif
Case lnTip=4 && vizualizare
*!* lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Stergere")
*!* This.Nodes.Add(lcKey,4,lcKey+"5","Vizualizare inreg. proprii")
*!* This.Nodes.Add(lcKey,4,lcKey+"6","Vizualizare toate inreg.")
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Stergere",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"5",4,"Vizualizare inreg.proprii",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"6",4,"Vizualizare tot",lcKey)
ENDIF
Case lnTip=5 && personalizat
*!* lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Stergere")
*!* This.Nodes.Add(lcKey,4,lcKey+"7","Altele...")
*!* This.Nodes.Add(lcKey,4,lcKey+"8","Altele...")
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Stergere",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"7",4,"Altele...",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"8",4,"Altele...",lcKey)
Endif
Endcase
Endproc
************************************************************************

BIN
COMUN/Drepturi utilizatori/ROALUCRARI/crsobiecte.dbf Normal file
View File

Binary file not shown.

97
COMUN/Drepturi utilizatori/ROALUCRARI/def_obiecte_ROALUCRARI.sql Normal file
View File

@@ -0,0 +1,97 @@
prompt PL/SQL Developer import file
prompt Created on Monday, April 17, 2006 by marius.atanasiu
set feedback off
set define off
prompt Disabling triggers for DEF_OBIECTE...
alter table DEF_OBIECTE disable all triggers;
prompt Deleting DEF_OBIECTE...
update DEF_OBIECTE set sters=2 where id_program=13;
commit;
prompt Loading DEF_OBIECTE...
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5070, 13, 'Configurare', -1, 'A', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5071, 13, 'Capitole de deviz', 5070, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5072, 13, 'Vizualizare', 5071, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5073, 13, 'Modificare', 5071, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5074, 13, 'Stergere', 5071, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5075, 13, 'Clienti', 5070, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5076, 13, 'Vizualizare', 5075, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5077, 13, 'Modificare', 5075, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5078, 13, 'Stergere', 5075, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5079, 13, 'Responsabili', 5070, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5080, 13, 'Vizualizare', 5079, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5081, 13, 'Modificare', 5079, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5082, 13, 'Stergere', 5079, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5083, 13, 'Configurare capitole de deviz', 5070, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5084, 13, 'Vizualizare', 5083, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5085, 13, 'Modificare', 5083, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5087, 13, 'Configurare chei de repartizare a indirectelor', 5070, '05', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5088, 13, 'Vizualizare', 5087, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5089, 13, 'Modificare', 5087, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5091, 13, 'Lucrari', -1, 'B', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5092, 13, 'Oferte', 5091, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5093, 13, 'Vizualizare', 5092, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5094, 13, 'Modificare', 5092, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5095, 13, 'Stergere', 5092, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5096, 13, 'Lucrari', 5091, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5097, 13, 'Vizualizare', 5096, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5098, 13, 'Modificare', 5096, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5099, 13, 'Stergere', 5096, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5100, 13, 'Contracte', 5091, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5101, 13, 'Vizualizare', 5100, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5102, 13, 'Modificare', 5100, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5103, 13, 'Stergere', 5100, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5104, 13, 'Analiza', -1, 'C', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5105, 13, 'O lucrare', 5104, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5106, 13, 'Toate lucrarile', 5104, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5107, 13, 'Situatie comparativa Lista lucrari', 5104, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5108, 13, 'O lucrare', 5104, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5109, 13, 'Toate lucrarile', 5104, '05', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5110, 13, 'Situatie de post calcul pe societate', 5104, '06', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5111, 13, 'Opis', 5104, '07', null, null, 0);
commit;
prompt 42 records loaded
prompt Enabling triggers for DEF_OBIECTE...
alter table DEF_OBIECTE enable all triggers;
set feedback on
set define on
prompt Done.

BIN
COMUN/Drepturi utilizatori/ROALUCRARI/obiecte.dbf Normal file
View File

Binary file not shown.

62
COMUN/Drepturi utilizatori/ROALUCRARI/scrie_obiecte.prg Normal file
View File

@@ -0,0 +1,62 @@
&& id = 13
lnIdProgram = 13
lcLocalDir=Addbs(Justpath(Sys(16,0)))
Cd (lcLocalDir)
If Used('obiecte')
Use In obiecte
Endif
Use obiecte In 0
gnhandle=SQLConnect('jcsserver','contafin_oracle','123')
If Used('crsmax')
Use In CrsMax
Endif
lcSql=[select pack_drepturi.getid_obiect() as maxid from dual]
lnSucces=SQLExec(gnhandle,lcSql,'crsmax')
If lnSucces<0
Messagebox("Eroare la citirea id-ului!")
Exit
Endif
Select CrsMax
lnMaxId=maxid
Use In CrsMax
MESSAGEBOX(lnMaxId,0,"Id maxim pentru obiecte")
Select obiecte
Replace id_prog With lnIdProgram All
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),5,1),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))='N'
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),4,2),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))<>'N'
Replace cod With Substr(cod,2,1) For !Inlist(Len(Alltrim(tata)),1,2) Or Type(Substr(cod,2,1))!='N'
Replace id_obiect With Recno()+lnMaxId All
Replace cheie With Alltrim(tata)+Alltrim(cod) All
Replace id_tata With -1 All
Select id_obiect,cheie From obiecte Where Alltrim(cheie) In (Select Distinct Alltrim(tata) As cheie From obiecte) Into Cursor crstati
Select crstati
Scan
lnIdObiect=id_obiect
lcCheie=Alltrim(cheie)
Select obiecte
Replace id_tata With lnIdObiect For Alltrim(tata)=lcCheie
Select crstati
Endscan
Use In crstati
lcSql=[update def_obiecte set sters=2 where id_program=]+ALLTRIM(STR(lnIdProgram))+[ and sters=0]
lnSucces=SQLExec(gnhandle,lcSql)
If lnSucces<0
Messagebox("Eroare la stergerea vechilor obiecte!")
Exit
Endif
Select obiecte
Browse
Scan
lcSql=[insert into def_obiecte (id_obiect,id_program,id_tata,descriere,cod) ]+;
[values (]+Alltrim(Str(id_obiect))+[,]+ALLTRIM(STR(id_prog))+[,]+;
ALLTRIM(Str(id_tata))+[,']+Alltrim(explicatie)+[',']+Alltrim(cod)+[')]
lnSucces=SQLExec(gnhandle,lcSql)
If lnSucces<1
Wait Window lcSql
Endif
Endscan
SQLDisconnect(gnhandle)
Use In obiecte

216
COMUN/Drepturi utilizatori/ROAMANAGER/adaugare_drepturi.prg Normal file
View File

@@ -0,0 +1,216 @@
Procedure citeste_obiecte
Local lcMeniu,lcPageframe
lcMeniu=[manager]
lcPageframe=[oprinc.pagefr1]
Create Cursor CRSOBIECTE(ID_PROG N(1),CHEIE C(20),NIVEL N(2),EXPLICATIE C(100),TATA C(20),COD C(2),ID_OBIECT N(10),ID_TATA N(10))
plCursor=.T.
citeste_meniu(90,lcmeniu,"Meniu")
citeste_pageframe(65,lcpageframe)
select * FROM crsobiecte INTO TABLE C:\crsobiecte.dbf
Endproc
************************************************************************
Procedure citeste_meniu
Lparameters lnKey,lcNumeMeniu,lcOptiune
lcKey=Chr(lnKey)
*!* This.Nodes.Add(,1,lcKey,lcOptiune)
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey,1,lcOptiune,[ ])
Endif
lnKey2=65
k=0
Try
lcKey2=lcKey+Chr(lnKey2)
lnKey2=lnKey2+1
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2,4,[Optiuni],lcKey)
Endif
For i=1 To Cntbar('optiuni')
lcOptiune=Prmbar('optiuni',i)
If !Empty(lcOptiune)
k=k+1
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2+Padl(Alltrim(Str(k)),2,[0]),4,lcOptiune,lcKey2)
Endif
Endif
Endfor
Catch
ENDTRY
k=0
Try
lcKey2=lcKey+Chr(lnKey2)
lnKey2=lnKey2+1
*!* This.Nodes.Add(lcKey,4,lcKey2,'Initializare')
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2,4,[Vizualizare],lcKey)
Endif
For i=1 To Cntbar('vizualizar')
lcOptiune=Prmbar('vizualizar',i)
If !Empty(lcOptiune)
k=k+1
*!* This.Nodes.Add(lcKey2,4,lcKey2+Padl(Alltrim(Str(k)),2,[0]),lcOptiune)
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2+Padl(Alltrim(Str(k)),2,[0]),4,lcOptiune,lcKey2)
Endif
Endif
Endfor
Catch
Endtry
k=0
Try
lcKey2=lcKey+Chr(lnKey2)
*!* This.Nodes.Add(lcKey,4,lcKey2,'Actualizari')
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2,4,[Rapoarte generale],lcKey)
Endif
For i=1 To Cntbar('rapoartege')
lcOptiune=Prmbar('rapoartege',i)
If !Empty(lcOptiune)
k=k+1
*!* This.Nodes.Add(lcKey2,4,lcKey2+Padl(Alltrim(Str(k)),2,[0]),lcOptiune)
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2+Padl(Alltrim(Str(k)),2,[0]),4,lcOptiune,lcKey2)
Endif
Endif
Endfor
Catch
Endtry
************************************************************************
Procedure citeste_pageframe
Lparameters lnKey,lcPageframe,lcTata
Local lcKey,lcProp,lcOptiune,lnNivel,lnPozitie,i,j,k,l
Store [] To lcKey,lcProp,lcOptiune
Store 0 To lnNivel,lnPozitie,i,j,k,l
If Empty(lcTata)
lcTata=Null
lnNivel=1
Else
lnNivel=4
Endif
Set Exact On
With &lcPageframe
For i=1 To .PageCount
For j=1 To .PageCount
If .Pages(j).PageOrder=i
Exit
Endif
Endfor
With .Pages(j)
lcKey=Nvl(lcTata,[])+Chr(lnKey)
*!* This.Nodes.Add(lcTata,lnNivel,lcKey,.Caption)
lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey,lnNivel,.Caption,Nvl(lcTata,[ ]))
Endif
lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
Dimension copii(128,3)
k=1
For l=1 To .ControlCount
Do Case
Case Alltrim(Upper(.Objects(l).Class))='PAGEFRAME'
lcNume=lcPageframe+'.'+Alltrim(.Name)+'.'+Alltrim(Upper(.Objects(l).Name))
citeste_pageframe(65,lcNume,lcKey)
Case Alltrim(Upper(.Objects(l).Class))='CW' And .Objects(l).nid_cw>0
lcOptiune=.Objects(l).label_item1.Caption
lnPozitie=.Objects(l).nid_cw
copii(lnPozitie,1)=lcOptiune
copii(lnPozitie,2)=.Objects(l).ntip
copii(lnPozitie,3)=.Objects(l).cmeniu
k=k+1
Endcase
Endfor
For l=1 To k-1
*!* This.Nodes.Add(lcKey,4,lcKey+Padl(Alltrim(Str(l)),2,[0]),copii(l,1))
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+Padl(Alltrim(Str(l)),2,[0]),4,copii(l,1),lcKey)
Endif
*!* If !Empty(copii(l,3))
*!* This.adauga_meniuri(copii(l,3),copii(l,2),lcKey+Padl(Alltrim(Str(l)),2,[0]))
*!* Else
adauga_frunze(copii(l,2),lcKey+Padl(Alltrim(Str(l)),2,[0]))
*!* Endif
Endfor
Endwith
lnKey=lnKey+1
Endfor
Endwith
Set Exact Off
Endproc
************************************************************************
Procedure adauga_frunze
Lparameters lnTip,lcKey
Do Case
Case lnTip=0 && introducere
Case lnTip=1 && raport
*!* lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
Endif
Case lnTip=2 && registru
*!* lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Refacere")
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Refacere",lcKey)
Endif
Case lnTip=3 && balanta\inreg.
*!* lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Refacere")
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Refacere",lcKey)
Endif
Case lnTip=4 && vizualizare
*!* lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Stergere")
*!* This.Nodes.Add(lcKey,4,lcKey+"5","Vizualizare inreg. proprii")
*!* This.Nodes.Add(lcKey,4,lcKey+"6","Vizualizare toate inreg.")
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Stergere",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"5",4,"Vizualizare inreg.proprii",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"6",4,"Vizualizare tot",lcKey)
ENDIF
Case lnTip=5 && personalizat
*!* lcProp="cnt"+lcKey
*!* This.AddProperty(lcProp,0)
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Stergere")
*!* This.Nodes.Add(lcKey,4,lcKey+"7","Altele...")
*!* This.Nodes.Add(lcKey,4,lcKey+"8","Altele...")
If plCursor
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Stergere",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"7",4,"Altele...",lcKey)
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"8",4,"Altele...",lcKey)
Endif
Endcase
Endproc
************************************************************************

BIN
COMUN/Drepturi utilizatori/ROAMANAGER/crsobiecte.dbf Normal file
View File

Binary file not shown.

BIN
COMUN/Drepturi utilizatori/ROAMANAGER/obiecte.dbf Normal file
View File

Binary file not shown.

62
COMUN/Drepturi utilizatori/ROAMANAGER/scrie_obiecte.prg Normal file
View File

@@ -0,0 +1,62 @@
&& id = 7
lnIdProgram = 7
lcLocalDir=Addbs(Justpath(Sys(16,0)))
Cd (lcLocalDir)
If Used('obiecte')
Use In obiecte
Endif
Use obiecte In 0
gnhandle=SQLConnect('jcsserver','contafin_oracle','123')
If Used('crsmax')
Use In CrsMax
Endif
lcSql=[select pack_drepturi.getid_obiect() as maxid from dual]
lnSucces=SQLExec(gnhandle,lcSql,'crsmax')
If lnSucces<0
Messagebox("Eroare la citirea id-ului!")
Exit
Endif
Select CrsMax
lnMaxId=maxid
Use In CrsMax
MESSAGEBOX(lnMaxId,0,"Id maxim pentru obiecte")
Select obiecte
Replace id_prog With lnIdProgram All
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),5,1),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))='N'
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),4,2),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))<>'N'
Replace cod With Substr(cod,2,1) For !Inlist(Len(Alltrim(tata)),1,2) Or Type(Substr(cod,2,1))!='N'
Replace id_obiect With Recno()+lnMaxId All
Replace cheie With Alltrim(tata)+Alltrim(cod) All
Replace id_tata With -1 All
Select id_obiect,cheie From obiecte Where Alltrim(cheie) In (Select Distinct Alltrim(tata) As cheie From obiecte) Into Cursor crstati
Select crstati
Scan
lnIdObiect=id_obiect
lcCheie=Alltrim(cheie)
Select obiecte
Replace id_tata With lnIdObiect For Alltrim(tata)=lcCheie
Select crstati
Endscan
Use In crstati
lcSql=[update def_obiecte set sters=2 where id_program=]+ALLTRIM(STR(lnIdProgram))+[ and sters=0]
lnSucces=SQLExec(gnhandle,lcSql)
If lnSucces<0
Messagebox("Eroare la stergerea vechilor obiecte!")
Exit
Endif
Select obiecte
Browse
Scan
lcSql=[insert into def_obiecte (id_obiect,id_program,id_tata,descriere,cod) ]+;
[values (]+Alltrim(Str(id_obiect))+[,]+ALLTRIM(STR(id_prog))+[,]+;
ALLTRIM(Str(id_tata))+[,']+Alltrim(explicatie)+[',']+Alltrim(cod)+[')]
lnSucces=SQLExec(gnhandle,lcSql)
If lnSucces<1
Wait Window lcSql
Endif
Endscan
SQLDisconnect(gnhandle)
Use In obiecte

1134
COMUN/Drepturi utilizatori/def_obiecte_0311.sql Normal file
View File

File diff suppressed because it is too large Load Diff

586
COMUN/Drepturi utilizatori/def_obiecte_completare_0311.sql Normal file
View File

@@ -0,0 +1,586 @@
prompt PL/SQL Developer import file
prompt Created on Thursday, November 03, 2005 by marius.atanasiu
set feedback off
set define off
prompt Disabling triggers for DEF_OBIECTE...
alter table DEF_OBIECTE disable all triggers;
prompt Disabling foreign key constraints for DEF_OBIECTE...
alter table DEF_OBIECTE disable constraint FK_DO01;
alter table DEF_OBIECTE disable constraint FK_DO02;
prompt Loading DEF_OBIECTE...
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3361, 4, 'Structura personalului', 3360, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3362, 4, 'Migratia personalului', 3360, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3363, 4, 'Salariul mediu', 3360, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3365, 5, 'Meniu', -1, 'Z', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3366, 5, 'Actualizare', 3365, 'A', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3367, 5, 'Initializare', 3366, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3368, 5, 'Recalculare', 3366, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3369, 5, 'Gestiuni', -1, 'A', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3370, 5, 'Inregistrari', 3369, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3371, 5, 'Configurare', 3369, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3372, 5, 'Export', 3371, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3373, 5, 'Listare', 3371, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3374, 5, 'Modificare', 3371, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3375, 5, 'Refacere', 3371, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3376, 5, 'Vizualizare', 3369, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3377, 5, 'Export', 3376, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3378, 5, 'Listare', 3376, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3379, 5, 'Modificare', 3376, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3380, 5, 'Stergere', 3376, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3381, 5, 'Vizualizare inreg.proprii', 3376, '5', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3382, 5, 'Vizualizare tot', 3376, '6', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3383, 5, 'Rapoarte generale', 3369, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3384, 5, 'Export', 3383, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3385, 5, 'Listare', 3383, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3386, 5, 'Registru Jurnal', 3369, '05', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3387, 5, 'Export', 3386, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3388, 5, 'Listare', 3386, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3389, 5, 'Modificare', 3386, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3390, 5, 'Stergere', 3386, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3391, 5, 'Vizualizare inreg.proprii', 3386, '5', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3392, 5, 'Vizualizare tot', 3386, '6', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3393, 5, 'Materii Prime si Materiale', -1, 'B', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3394, 5, 'Achizitie', 3393, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3395, 5, 'Achizitie din Import', 3393, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3396, 5, 'Consum', 3393, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3397, 5, 'Transfer', 3393, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3398, 5, 'Vanzare', 3393, '05', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3399, 5, 'Stocuri materiale', 3393, '06', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3400, 5, 'Export', 3399, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3401, 5, 'Listare', 3399, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3402, 5, 'Modificare', 3399, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3403, 5, 'Refacere', 3399, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3404, 5, 'Rapoarte', 3393, '07', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3405, 5, 'Export', 3404, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3406, 5, 'Listare', 3404, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3407, 5, 'Obiecte de Inventar', -1, 'C', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3408, 5, 'Achizitie', 3407, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3409, 5, 'Consum', 3407, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3410, 5, 'Transfer', 3407, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3411, 5, 'Rulaje ob. de inventar in folosinta (8039)', 3407, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3412, 5, 'Export', 3411, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3413, 5, 'Listare', 3411, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3414, 5, 'Modificare', 3411, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3415, 5, 'Refacere', 3411, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3416, 5, 'Obiecte de inventar in folosinta (8039)', 3407, '05', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3417, 5, 'Export', 3416, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3418, 5, 'Listare', 3416, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3419, 5, 'Modificare', 3416, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3420, 5, 'Refacere', 3416, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3421, 5, 'Obiecte de inventar in stoc / magazie (303)', 3407, '06', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3422, 5, 'Export', 3421, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3423, 5, 'Listare', 3421, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3424, 5, 'Modificare', 3421, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3425, 5, 'Refacere', 3421, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3426, 5, 'Rapoarte', 3407, '07', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3427, 5, 'Export', 3426, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3428, 5, 'Listare', 3426, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3429, 5, 'Produse', -1, 'D', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3430, 5, 'Achizitie', 3429, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3431, 5, 'Intrare in gestiune', 3429, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3432, 5, 'Consum', 3429, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3433, 5, 'Transfer', 3429, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3434, 5, 'Vanzare', 3429, '05', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3435, 5, 'Configurare', 3429, '06', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3436, 5, 'Export', 3435, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3437, 5, 'Listare', 3435, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3438, 5, 'Modificare', 3435, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3439, 5, 'Refacere', 3435, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3440, 5, 'Stocuri produse', 3429, '07', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3441, 5, 'Export', 3440, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3442, 5, 'Listare', 3440, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3443, 5, 'Modificare', 3440, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3444, 5, 'Refacere', 3440, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3445, 5, 'Rapoarte', 3429, '08', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3446, 5, 'Export', 3445, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3447, 5, 'Listare', 3445, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3448, 5, 'Marfuri la pret de achizitie', -1, 'E', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3449, 5, 'Achizitie', 3448, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3450, 5, 'Achizitie din Import', 3448, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3451, 5, 'Consum', 3448, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3452, 5, 'Transfer', 3448, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3453, 5, 'Vanzare', 3448, '05', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3454, 5, 'Stocuri marfa', 3448, '06', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3455, 5, 'Export', 3454, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3456, 5, 'Listare', 3454, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3457, 5, 'Modificare', 3454, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3458, 5, 'Refacere', 3454, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3459, 5, 'Rapoarte', 3448, '07', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3460, 5, 'Export', 3459, '1', null, null, 0);
commit;
prompt 100 records committed...
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3461, 5, 'Listare', 3459, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3462, 5, 'Marfuri la pret de vanzare', -1, 'F', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3463, 5, 'Achizitie', 3462, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3464, 5, 'Transfer', 3462, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3465, 5, 'Vanzare', 3462, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3466, 5, 'Configurare', 3462, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3467, 5, 'Stocuri marfa', 3462, '05', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3468, 5, 'Export', 3467, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3469, 5, 'Listare', 3467, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3470, 5, 'Modificare', 3467, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3471, 5, 'Refacere', 3467, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3472, 5, 'Rapoarte', 3462, '06', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3473, 5, 'Export', 3472, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3474, 5, 'Listare', 3472, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3475, 5, 'Casa de marcat', 3462, '07', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3477, 7, 'Meniu', -1, 'Z', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3478, 7, 'Optiuni', 3477, 'A', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3479, 7, 'Optiuni', 3478, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3480, 7, 'Vizualizare', 3477, 'B', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3481, 7, 'Balanta', 3480, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3482, 7, 'Registru Jurnal', 3480, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3483, 7, 'Rapoarte generale', 3477, 'C', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3484, 7, 'Vizualizare seturi de indicatori', 3483, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3485, 7, 'Definire set nou de indicatori', 3483, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3486, 7, 'Pregatire pentru prezentare', 3483, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3487, 7, 'Seturi predefinite', 3483, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3488, 7, 'Rapoarte generale', -1, 'A', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3489, 7, 'Centre de cost', -1, 'B', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3490, 7, 'Raport de eficienta', 3489, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3491, 7, 'Export', 3490, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3492, 7, 'Listare', 3490, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3493, 7, 'Balanta pe centru', 3489, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3494, 7, 'Export', 3493, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3495, 7, 'Listare', 3493, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3496, 7, 'Lucrari/Contracte', -1, 'C', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3497, 7, 'Raport de eficienta', 3496, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3498, 7, 'Export', 3497, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3499, 7, 'Listare', 3497, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3500, 7, 'Raport materiale Cantitativ-valoric', 3496, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3501, 7, 'Export', 3500, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3502, 7, 'Listare', 3500, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3503, 7, 'Total cheltuieli directe grupate pe tipuri', 3496, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3504, 7, 'Export', 3503, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3505, 7, 'Listare', 3503, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3506, 7, 'Cheltuieli directe Lista documentelor grupate dupa tipul de cheltuiala', 3496, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3507, 7, 'Export', 3506, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3508, 7, 'Listare', 3506, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3509, 7, 'Venituri/Cheltuieli directe Lista documentelor in ordine cronologica', 3496, '05', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3510, 7, 'Export', 3509, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3511, 7, 'Listare', 3509, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3512, 7, 'Facturat / Incasat', 3496, '06', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3513, 7, 'Export', 3512, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3514, 7, 'Listare', 3512, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3515, 7, 'Bugete', -1, 'D', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3516, 7, 'Previzionare', 3515, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3517, 7, 'Export', 3516, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3518, 7, 'Listare', 3516, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3519, 7, 'Comparatie previzionat - realizat', 3515, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3520, 7, 'Export', 3519, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3521, 7, 'Listare', 3519, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3522, 7, 'Evaluarea in valuta', -1, 'E', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3523, 7, 'Balanta', 3522, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3524, 7, 'Export', 3523, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3525, 7, 'Listare', 3523, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3526, 7, 'Registru Jurnal', 3522, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3527, 7, 'Export', 3526, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3528, 7, 'Listare', 3526, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3529, 7, 'Terti', 3522, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3530, 7, 'Export', 3529, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3531, 7, 'Listare', 3529, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3532, 7, 'Fluxul de trezorerie', -1, 'F', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3533, 7, 'Calcul Flux de trezorerie', 3532, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3534, 7, 'Formule Flux de trezorerie', 3532, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3535, 7, 'Rapoarte', 3488, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3536, 9, 'Lucrari', 3322, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3538, 9, 'Modificare', 3536, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3542, 9, 'Stergere', 3536, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3322, 9, 'Configurare', -1, 'A', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3323, 9, 'Calcul tarifar/ ora', 3322, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3324, 9, 'Pontare', -1, 'B', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3007, 3, 'Export', 3006, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3005, 3, 'Configurare', -1, 'A', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3006, 3, 'Calcul sporuri', 3005, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3008, 3, 'Listare', 3006, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3009, 3, 'Modificare', 3006, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3010, 3, 'Stergere', 3006, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3011, 3, 'Vizualizare inreg.proprii', 3006, '5', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3012, 3, 'Vizualizare tot', 3006, '6', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3013, 3, 'Calcul popriri', 3005, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3014, 3, 'Export', 3013, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3015, 3, 'Listare', 3013, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3016, 3, 'Modificare', 3013, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3017, 3, 'Stergere', 3013, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3018, 3, 'Vizualizare inreg.proprii', 3013, '5', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3019, 3, 'Vizualizare tot', 3013, '6', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3020, 3, 'Calcul salariu', 3005, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3021, 3, 'Calcul centralizator', 3005, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3022, 3, 'Nota de inchidere', 3005, '05', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3023, 3, 'Configurare rapoarte', 3005, '06', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3024, 3, 'State', -1, 'B', null, null, 0);
commit;
prompt 200 records committed...
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3025, 3, 'Evidenta personal', 3024, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3026, 3, 'Introducere avansuri', 3024, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3027, 3, 'Export', 3026, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3028, 3, 'Sporuri', 3024, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3029, 3, 'Export', 3028, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3030, 3, 'Listare', 3028, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3031, 3, 'Modificare', 3028, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3032, 3, 'Popriri', 3024, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3033, 3, 'Export', 3032, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3034, 3, 'Listare', 3032, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3035, 3, 'Modificare', 3032, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3036, 3, 'Prime', 3024, '05', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3037, 3, 'Export', 3036, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3038, 3, 'Calcul state', 3024, '06', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3039, 3, 'Export', 3038, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3040, 3, 'Rapoarte', 3024, '07', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3041, 3, 'Concedii', -1, 'C', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3042, 3, 'Concedii de odihna', 3041, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3043, 3, 'Export', 3042, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3044, 3, 'Listare', 3042, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3045, 3, 'Modificare', 3042, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3046, 3, 'Refacere', 3042, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3047, 3, 'Avansuri CO', 3041, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3048, 3, 'Export', 3047, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3049, 3, 'Listare', 3047, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3050, 3, 'Modificare', 3047, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3051, 3, 'Refacere', 3047, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3052, 3, 'Concedii medicale', 3041, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3053, 3, 'Export', 3052, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3054, 3, 'Listare', 3052, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3055, 3, 'Modificare', 3052, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3056, 3, 'Refacere', 3052, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3057, 3, 'Rapoarte', 3041, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3058, 3, 'Export', 3057, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3059, 3, 'Listare', 3057, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3060, 3, 'Modificare', 3057, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3061, 3, 'Stergere', 3057, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3062, 3, 'Vizualizare inreg.proprii', 3057, '5', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3063, 3, 'Vizualizare tot', 3057, '6', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3064, 3, 'Analize', -1, 'D', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3065, 3, 'Borderou plati salarii', 3064, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3066, 3, 'Vizualizare state', 3064, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3067, 3, 'Export', 3066, '1', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3068, 3, 'Rapoarte', 3064, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3069, 3, 'Nota de inchidere', 3064, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3070, 3, 'Deschidere de luna', 3064, '05', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3325, 9, 'Pontare pe zile', 3324, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3326, 9, 'Pontare pe lucrari', 3324, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3327, 9, 'Foaia de lucru', 3324, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3328, 9, 'Modificare', 3327, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3329, 9, 'Rapoarte', 3324, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3331, 4, 'Personal', -1, 'A', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3332, 4, 'Adaugare/modificare', 3331, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3333, 4, 'Listare', 3332, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3334, 4, 'Modificare', 3332, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3335, 4, 'Familie', 3331, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3336, 4, 'Listare', 3335, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3337, 4, 'Modificare', 3335, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3338, 4, 'Calificare', 3331, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3339, 4, 'Listare', 3338, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3340, 4, 'Modificare', 3338, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3341, 4, 'Scolarizare', 3331, '04', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3342, 4, 'Listare', 3341, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3343, 4, 'Modificare', 3341, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3344, 4, 'Vechimi', 3331, '05', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3345, 4, 'Listare', 3344, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3346, 4, 'Modificare', 3344, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3347, 4, 'Plecari din unitate', 3331, '06', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3348, 4, 'Rapoarte', 3331, '07', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3349, 4, 'Contracte de munca', -1, 'B', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3350, 4, 'Configurare contract', 3349, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3351, 4, 'Listare', 3350, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3352, 4, 'Modificare', 3350, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3353, 4, 'Listare contract', 3349, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3354, 4, 'Concedii de odihna', -1, 'C', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3355, 4, 'Planificari CO', 3354, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3356, 4, 'Listare', 3355, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3357, 4, 'Modificare', 3355, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3358, 4, 'Sit CO cuvenite', 3354, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3359, 4, 'Rapoarte', 3354, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3360, 4, 'Rapoarte de analiza', -1, 'D', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (3544, 2, 'Note contabile', 2523, '06', null, null, 0);
commit;
prompt 280 records loaded
prompt Enabling foreign key constraints for DEF_OBIECTE...
alter table DEF_OBIECTE enable constraint FK_DO01;
alter table DEF_OBIECTE enable constraint FK_DO02;
prompt Enabling triggers for DEF_OBIECTE...
alter table DEF_OBIECTE enable all triggers;
set feedback on
set define on
prompt Done.

38
COMUN/Drepturi utilizatori/def_programe_2710.sql Normal file
View File

@@ -0,0 +1,38 @@
prompt PL/SQL Developer import file
prompt Created on Thursday, October 27, 2005 by marius.atanasiu
set feedback off
set define off
prompt Disabling triggers for DEF_PROGRAME...
alter table DEF_PROGRAME disable all triggers;
prompt Disabling foreign key constraints for DEF_PROGRAME...
alter table DEF_PROGRAME disable constraint FK_DP01;
prompt Loading DEF_PROGRAME...
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
values (1, 'ROASAL', 'SALARIZAREA PERSONALULUI', 1, 4, 0, 3, 1, to_date('25-10-2005 11:10:52', 'dd-mm-yyyy hh24:mi:ss'));
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
values (2, 'ROAIMOB', 'GESTIUNEA IMOBILIZARILOR', 1, 3, 0, 6, 1, to_date('25-10-2005 11:14:25', 'dd-mm-yyyy hh24:mi:ss'));
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
values (3, 'ROADECL', 'DECLARATII SALARII', 1, 7, 0, 10, 1, to_date('25-10-2005 11:11:19', 'dd-mm-yyyy hh24:mi:ss'));
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
values (4, 'ROAAUTO', 'MANAGEMENTUL ACTIVITATII DE SERVICE AUTO', 1, 8, 0, 8, 1, to_date('25-10-2005 11:13:09', 'dd-mm-yyyy hh24:mi:ss'));
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
values (5, 'ROAGEST', 'GESTIUNEA STOCURILOR SI A OBIECTELOR DE INVENTAR', 1, 2, 0, 5, 1, to_date('18-10-2005 13:06:14', 'dd-mm-yyyy hh24:mi:ss'));
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
values (6, 'ROACONT', 'FINANCIAR CONTABILITATE', 1, 1, 0, 2, 1, to_date('18-10-2005 13:06:14', 'dd-mm-yyyy hh24:mi:ss'));
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
values (7, 'ROAMANAGER', 'MANAGER', 1, 10, 0, 7, 1, to_date('25-10-2005 11:10:21', 'dd-mm-yyyy hh24:mi:ss'));
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
values (8, 'ROADEF', 'DEFINIREA COMPANIEI', 1, 11, 0, 1, 1, to_date('25-10-2005 11:10:09', 'dd-mm-yyyy hh24:mi:ss'));
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
values (9, 'ROANOR', 'NORMAREA MUNCII', 1, 6, 0, 9, 1, to_date('25-10-2005 11:11:09', 'dd-mm-yyyy hh24:mi:ss'));
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
values (10, 'ROARES', 'RESURSE UMANE', 1, 5, 0, 4, 1, to_date('25-10-2005 11:10:59', 'dd-mm-yyyy hh24:mi:ss'));
commit;
prompt 11 records loaded
prompt Enabling foreign key constraints for DEF_PROGRAME...
alter table DEF_PROGRAME enable constraint FK_DP01;
prompt Enabling triggers for DEF_PROGRAME...
alter table DEF_PROGRAME enable all triggers;
set feedback on
set define on
prompt Done.

1773
COMUN/Drepturi utilizatori/drepturi_utilizatori.sql Normal file
View File

File diff suppressed because it is too large Load Diff

47
COMUN/Drepturi utilizatori/instructiuni drepturi.txt Normal file
View File

@@ -0,0 +1,47 @@
- pe forme : DO_DEFAULT pe init
- trebuie completate cbuton1,cbuton2,cbuton3,cbuton4 cu numele butoanelor separate prin [;]
- daca glLunaInchisa, atunci visible=.F.
- pe click-urile de la cw: se muta tot in do_actiune ; de completat nid_cw si ntip ; linactiv=.T. daca se doreste ca cw sa fie enabled=.F. pentru toti utilizatorii
- imaginile butoanelor trebuie sa fie bazate pe OFUNDAL.IMAGINE + modificare pictureup,picturedown,mouseenter,mouseleave,do_actiune,click,picture
- trebuie completate proprietatile nid_img,ntip,ccod ale imaginilor ; de completat DODEFAULT pe click
- de completat cbuton1,... de la _frmbase
- verifica_drepturi('oprinc','pagefr1') in princ.show si unde se apeleaza DO start_firma IN ostartfirma.prg
- butoanele de modificare,stergere,refacere,excel si listare executa mai intai inainte_de_do_XXX
- daca se modifica visible = .T. pe forma pentru butoane, atunci trebuie modificate si proprietatile lactiv corespunzatoare in cazul in care butoanele executa inainte_de_do (do_modifica, do_sterge, do_refacere sau do_excel)
- de adaugat acces_meniu2 ( pentru programele care nu au definite obiecte ) sau acces_meniu ( pentru prog. care au definite obiectele )
VALORI PENTRU NTIP:
(0 - introducere\vizualizare simpla ; 1 - raport; 2 - registru; 3 - balanta\inreg. de parteneri; 4 - vizualizare ; 5 - personalizat)
0 - INTRODUCERE
1 - RAPORT
Acces:
- export in Excel
- listare
2 - BALANTA/INREGISTRARI DE PART.
Acces :
- export in Excel
- listare
- modificare
- refacere/stergere
3 - REGISTRU
Acces :
- export in Excel
- listare
- modificare
- refacere/stergere
4 - VIZUALIZARI
Acces :
- export in Excel
- listare
- modificare
- refacere/stergere
- vizualizare inreg. ( doar inreg. proprii )
- vizualizarea tuturor inreg.
5 - PERSONALIZAT
Acces :
- export in Excel
- listare
- modificare
- stergere
- altele...
- altele...