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...

150
COMUN/Plugin/listare_facturi_email_cu_atasament_factura_si_recapitulatie.prg Normal file
View File

@@ -0,0 +1,150 @@
* PLUGIN email factura, recapitulatie si alte documente pdf cu aceeasi structura ca factura.pdf
* MARIUS MUTU
* V 23.02.2016
* INSTALARE: Se copie fisierul prg in directorul ROA\[APLICATIE]\PLUGIN\
* FOLOSIRE: In formularul Vizualizare facturi se apasa butonul listare
* copiat din oproceduri_facturare.prg:email_facturi
Lparameters toFacturiForm, toDate
*** Trimit email la facturile alese, sau la factura de pe inregistrarea curenta
Local laFiles[1], lcBody, lcClient, lcDir, lcEmail, lcErrorMessage, lcFacturaFile, lcFile
Local lcFileName, lcFiles, lcNume, lcRaportEmail, lcRecapitulatiaFile, lcScheletonFile
Local lcSerieFactura, lcSubject, lcTipDocument, lcTo, lcWhere, ldDataFactura, llClearErrors
Local llJustPDF, llListareFactura, llListareRecapitulatia, llListareAlteDocumente, llSilent, llSucces, lnFile, lnFiles
Local lnIdVanzare, lnNumarFactura, lnRecno, loDate, loMail
loMail = getoEmail() && email.prg
lcWhere = ""
llListareFactura = .T.
llGenerareFactura = .T.
llListareRecapitulatia = .T.
llGenerareRecapitulatia = .T.
llListareAlteDocumente = .T.
If Type('toDate') = 'O'
llListareFactura = Iif(Type('toDate.nListareFactura') = 'N', Inlist(toDate.nListareFactura, 1, 2), .T.)
llGenerareFactura = Iif(Type('toDate.nListareFactura') = 'N', toDate.nListareFactura = 2, .F.)
llListareRecapitulatia = Iif(Type('toDate.nListareRecapitulatia') = 'N', Inlist(toDate.nListareRecapitulatia, 1, 2), .F.)
llGenerareRecapitulatia = Iif(Type('toDate.nListareRecapitulatia') = 'N', toDate.nListareRecapitulatia = 2, .F.)
llListareAlteDocumente = Iif(Type('toDate.nListareAlteDocumente') = 'L', toDate.nListareAlteDocumente = 1, .F.)
Endif
Select crsFacturi
lnRecno = Recno()
Locate For ales = 1
If !Found()
Goto m.lnRecno
lcWhere = m.lcWhere + 'recno() = ' + Alltrim(Str(m.lnRecno))
Else
lcWhere = m.lcWhere + 'ales = 1'
Endif
lcRaportEmail = Addbs(gcTempPath) + "email_" + Ttoc(Datetime(), 1) + '.xls'
Select F.id_vanzare, F.data_act, F.numar_act, F.serie_act, F.total_fara_tva, F.total_tva, F.total_cu_tva, F.client, ;
email_facturare, Cast(Null As L) As email_succes, Cast(Null As c(250)) As email_mesaj ;
From crsFacturi F ;
Where &lcWhere ;
Into Cursor cEmail Readwrite
lcSubjectTemplate = loMail.cSubject
lcBodyTemplate = loMail.cHtmlBody
Sele cEmail
Scan
lcFiles = ""
ldDataFactura = data_act
lcSerieFactura = Alltrim(serie_act)
lnNumarFactura = numar_act
lcNume = Upper(Alltrim(client))
lcClient = m.lcNume
lnIdVanzare = id_vanzare
loDate = Null
lcSubject = m.lcSubjectTemplate
lcSubject = Strtran(m.lcSubject, '<nrfact>', Alltrim(Str(m.lnNumarFactura)), 1, 1, 1)
lcSubject = Strtran(m.lcSubject, '<datafact>', Alltrim(Dtoc(m.ldDataFactura)), 1, 1, 1)
lcSubject = Strtran(m.lcSubject, '<client>', m.lcClient, 1, 1, 1)
loMail.cSubject = m.lcSubject
lcBody = m.lcBodyTemplate
lcBody = Strtran(m.lcBody, '<nrfact>', Alltrim(Str(m.lnNumarFactura)), 1, 10, 1)
lcBody = Strtran(m.lcBody, '<datafact>', Alltrim(Dtoc(m.ldDataFactura)), 1, 10, 1)
lcBody = Strtran(m.lcBody, '<client>', m.lcClient, 1, 10, 1)
loMail.cHtmlBody = m.lcBody
* Generare PDF factura
lcFacturaFile = GetPDFFacturaFile(m.ldDataFactura, m.lnNumarFactura)
If m.llListareFactura
If !File(m.lcFacturaFile) And m.llGenerareFactura
llSilent = .F.
llJustPDF = .T.
lcTipDocument = 'FACTURA'
loDate = toFacturiForm.do_listare_document(m.lnIdVanzare, m.llSilent, m.llJustPDF, m.lcTipDocument) && .ListareDocument(m.llSilent, m.llJustPDF, "cEmail")
Endif
loMail.EmailSetAttachment(m.lcFacturaFile)
lcFiles = m.lcFiles + Iif(File(m.lcFacturaFile), m.lcFacturaFile, "")
Endif && llListareFactura
* Generare PDF recapitulatie
lcRecapitulatiaFile = GetPDFRecapitulatiaFile(ldDataFactura, m.lnNumarFactura)
If m.llListareRecapitulatia
If !File(m.lcRecapitulatiaFile) And m.llGenerareRecapitulatia
llSilent = .F.
llJustPDF = .T.
lcTipDocument = 'RECAPITULATIE'
loDate = toFacturiForm.do_listare_document(m.lnIdVanzare, m.llSilent, m.llJustPDF, m.lcTipDocument) && .ListareDocument(m.llSilent, m.llJustPDF, "cEmail")
Endif
loMail.EmailSetAttachment(m.lcRecapitulatiaFile)
lcFiles = m.lcFiles + Iif(File(m.lcRecapitulatiaFile), "," + m.lcRecapitulatiaFile, "")
Endif && llListareRecapitulatia
* Atasez alte documente cu aceeasi structura ca factura.pdf
If m.llListareAlteDocumente
lcScheletonFile = Strtran(lcFacturaFile, 'factura', '*', 1, 10, 1) && d:\roa\pdf\20200402_12346_*.pdf (_recapitulatia.pdf, _situatie_stationare.pdf, _declaratie_comandant.pdf)
lcDir = Addbs(Justpath(m.lcFacturaFile))
lnFiles = Adir(laFiles, m.lcScheletonFile)
For lnFile = 1 To m.lnFiles
lcFileName = laFiles[m.lnFile, 1]
* Nu mai atasez factura.pdf si recapitulatie.pdf
If Inlist(Lower(m.lcFileName), Lower(JUSTFNAME(m.lcFacturaFile)), Lower(JUSTFNAME(m.lcRecapitulatiaFile)))
Loop
Endif
lcFile = m.lcDir + m.lcFileName
loMail.EmailSetAttachment(m.lcFile)
lcFiles = m.lcFiles + Iif(File(m.lcFile), m.lcFile, "")
Endfor
Endif && llListareAlteDocumente
* Email
Wait Window 'Email ' + Alltrim(Transform(Recno('cEmail'))) + '/' + Alltrim(Transform(Reccount('cEmail'))) + ' Client: ' + m.lcClient + ' Factura: ' + Alltrim(Str(m.lnNumarFactura)) Nowait
lcEmail = Alltrim(Nvl(cEmail.email_facturare, '')) && am adaugat direct in crsFacturi.email_facturare, ca sa nu mai folosesc loDate.oClient.email_facturare, daca fisierele pdf sunt deja listate
lcTo = Iif(!Empty(Nvl(m.lcEmail, '')), m.lcEmail, '')
loMail.cTo = m.lcTo
llSucces = .T.
lcErrorMessage = ''
If loMail.Send() > 0
llClearErrors = .T.
lcErrorMessage = loMail.GetErrorMessage(m.llClearErrors)
llSucces = .F.
Endif
Replace email_succes With m.llSucces, email_mesaj With Left(m.lcErrorMessage, 250) In cEmail
If Inkey(0.5) = 27 && 'ESC'
If AMESSAGEBOX('Doriti sa intrerupeti operatia?', 4 + 32, _Screen.Caption) = 6
Exit
Endif
Endif
Endscan
Select cEmail
Copy To (m.lcRaportEmail) Type Xl5
OPEN_DEFAULT_APP(m.lcRaportEmail)
Use In (Select('cEmail'))
Select crsFacturi
Go lnRecno

175
COMUN/Plugin/listare_facturi_omv_petrom_pdf_si_xml.prg Normal file
View File

@@ -0,0 +1,175 @@
Lparameters toFacturiForm, toDate
Local lcBody, lcBodyTemplate, lcClickSignPDF, lcClient, lcContract, lcDivizia, lcEmail
Local lcErrorMessage, lcFacturaFile, lcFileSemnat, lcFiles, lcNume, lcRaportEmail, lcRun, lcSelect
Local lcSerieFactura, lcSql, lcSubject, lcSubjectTemplate, lcTipDocument, lcTo, lcValuta, lcWhere
Local lcXML, lcXMLFile, ldDataFactura, llClearErrors, llForceExit, llGenerareFactura, llInValuta
Local llJustPDF, llListareFactura, llSilent, llSucces, lnCurs, lnIdFact, lnIdVanzare, lnNumarFactura
Local lnOptDivizia, lnRecno, lnValoare, loDate, loMail
lcSelect = Select()
lcClickSignPDF = [C:\Program Files (x86)\clickSignPdf\clickSignPdfProfessional.exe]
If !File(m.lcClickSignPDF)
lcClickSignPDF = [C:\Program Files\clickSignPdf\clickSignPdfProfessional.exe]
Endif
If !File(m.lcClickSignPDF)
If AMESSAGEBOX('Nu este instalat clickSIGNpdf.exe! Continuati?',4+32,_Screen.Caption) <> 6
Return
Endif
Endif
loMail = getoEmail() && email.prg
lcWhere = ""
llListareFactura = .T.
llGenerareFactura = .T.
If Type('toDate') = 'O'
llListareFactura = Iif(Type('toDate.nListareFactura') = 'N', Inlist(toDate.nListareFactura, 1, 2), .T.)
llGenerareFactura = Iif(Type('toDate.nListareFactura') = 'N', toDate.nListareFactura = 2, .T.)
Endif
Select crsFacturi
lnRecno = Recno()
Locate For ales = 1
If !Found()
Goto m.lnRecno
lcWhere = m.lcWhere + 'recno() = ' + Alltrim(Str(m.lnRecno))
Else
lcWhere = m.lcWhere + 'ales = 1'
Endif
lcRaportEmail = Addbs(gcTempPath) + "email_" + Ttoc(Datetime(), 1) + '.xls'
Select F.id_vanzare, F.data_act, F.numar_act, F.serie_act, F.total_fara_tva, F.total_tva, F.total_cu_tva, F.client, F.valuta, F.contract, F.Curs, F.in_valuta,;
f.valval, F.tvaval, F.totval, F.email_facturare, Cast(Null As L) As email_succes, Cast(Null As c(250)) As email_mesaj ;
From crsFacturi F ;
Where &lcWhere ;
Into Cursor cEmail Readwrite
lcSubjectTemplate = loMail.cSubject
lcBodyTemplate = loMail.cHtmlBody
If Reccount('cEmail') > 0
lcFiles = ""
Sele cEmail
Scan
ldDataFactura = data_act
lcSerieFactura = Alltrim(serie_act)
lnNumarFactura = numar_act
lcNume = Upper(Alltrim(client))
lcClient = m.lcNume
lnIdVanzare = id_vanzare
loDate = Null
lcValuta = Upper(Alltrim(valuta))
lcContract = Alltrim(Nvl(contract, ''))
lnCurs = Curs
llInValuta = (Nvl(in_valuta,0) = 1)
lcValuta = Upper(Alltrim(Nvl(valuta,'')))
Do Case
Case !m.llInValuta
lcValuta = 'RON'
Case Left(m.lcValuta,3) = 'EUR' && EURO
lcValuta = 'EUR'
Endcase
lnValoare = Iif(m.llInValuta, totval, total_cu_tva)
lcSubject = m.lcSubjectTemplate
lcSubject = Strtran(m.lcSubject, '<nrfact>', Alltrim(Str(m.lnNumarFactura)), 1, 1, 1)
lcSubject = Strtran(m.lcSubject, '<datafact>', Alltrim(Dtoc(m.ldDataFactura)), 1, 1, 1)
lcSubject = Strtran(m.lcSubject, '<client>', m.lcClient, 1, 1, 1)
loMail.cSubject = m.lcSubject
lcBody = m.lcBodyTemplate
lcBody = Strtran(m.lcBody, '<nrfact>', Alltrim(Str(m.lnNumarFactura)), 1, 10, 1)
lcBody = Strtran(m.lcBody, '<datafact>', Alltrim(Dtoc(m.ldDataFactura)), 1, 10, 1)
lcBody = Strtran(m.lcBody, '<client>', m.lcClient, 1, 10, 1)
loMail.cHtmlBody = m.lcBody
* Generare PDF factura
lcFacturaFile = GetPDFFacturaFile(m.ldDataFactura, m.lnNumarFactura)
lcFacturaValutaFile = GetPDFFacturaValutaFile(m.ldDataFactura, m.lnNumarFactura)
If m.llListareFactura
If !File(m.lcFacturaFile) And m.llGenerareFactura
llSilent = .F.
llJustPDF = .T.
lcTipDocument = 'FACTURA'
loDate = toFacturiForm.do_listare_document(m.lnIdVanzare, m.llSilent, m.llJustPDF, m.lcTipDocument) && .ListareDocument(m.llSilent, m.llJustPDF, "cEmail")
Endif
Endif && llListareFactura
If File(m.lcFacturaValutaFile) And File(m.lcFacturaFile)
lnRaspuns = AMESSAGEBOX('Doriti semnarea facturii in valuta (DA) sau a facturii in lei (NU)?',4+32,_Screen.Caption)
If m.lnRaspuns = 6
lcFacturaFile = m.lcFacturaValutaFile
Endif
Endif
* Semnare PDF
* Lansare utilitar certsign.ro
OPEN_DEFAULT_APP(Justpath(m.lcFacturaFile)) && deschid directorul facturii
If File(m.lcClickSignPDF)
lcRun = [! /N "] + m.lcClickSignPDF + [" -i "] + m.lcFacturaFile + ["]
&lcRun
Endif
lcFileSemnat = Strtran(m.lcFacturaFile, Juststem(m.lcFacturaFile), Juststem(m.lcFacturaFile) + '_signed')
AMESSAGEBOX('Se verifica fisierul ' + lcFileSemnat + Chr(13) + Chr(10) + 'Apasati OK cand s-a semnat pdf-ul.',0, _Screen.Caption)
*WAIT WINDOW 'Se asteapta semnarea fisierului ' + m.lcFacturaFile NOWAIT
llForceExit = .F.
Do While .T.
If File(m.lcFileSemnat)
Exit
Endif
Wait Window 'Se verifica ' + m.lcFileSemnat Nowait
If Inkey(1) = 27 && 'ESC'
If AMESSAGEBOX('Doriti sa intrerupeti operatia?',4+32, _Screen.Caption) = 6
llForceExit = .T.
Exit
Endif
Endif
Enddo
If m.llForceExit
Exit
Endif
If File(m.lcFileSemnat)
loMail.EmailSetAttachment(m.lcFileSemnat)
Endif
* Email
Wait Window 'Email ' + Alltrim(Transform(Recno('cEmail'))) + '/' + Alltrim(Transform(Reccount('cEmail'))) + ' Client: ' + m.lcClient + ' Factura: ' + Alltrim(Str(m.lnNumarFactura)) Nowait
lcEmail = Alltrim(Nvl(cEmail.email_facturare, '')) && am adaugat direct in crsFacturi.email_facturare, ca sa nu mai folosesc loDate.oClient.email_facturare, daca fisierele pdf sunt deja listate
lcTo = Iif(!Empty(Nvl(m.lcEmail, '')), m.lcEmail, '')
loMail.cTo = m.lcTo
llSucces = .T.
lcErrorMessage = ''
If loMail.Send() > 0
llClearErrors = .T.
lcErrorMessage = loMail.GetErrorMessage(m.llClearErrors)
llSucces = .F.
Endif
Replace email_succes With m.llSucces, email_mesaj With Left(m.lcErrorMessage, 250) In cEmail
If Inkey(0.5) = 27 && 'ESC'
If AMESSAGEBOX('Doriti sa intrerupeti operatia?', 4 + 32, _Screen.Caption) = 6
Exit
Endif
Endif
Endscan
Select cEmail
Copy To (m.lcRaportEmail) Type Xl5
OPEN_DEFAULT_APP(m.lcRaportEmail)
ENDIF && Reccount('cEmail')
Use In (Select('cEmail'))
Select (m.lcSelect)

150
COMUN/PluginTemplate/listare_facturi_email_cu_atasament_factura_si_recapitulatie.prg Normal file
View File

@@ -0,0 +1,150 @@
* PLUGIN email factura, recapitulatie si alte documente pdf cu aceeasi structura ca factura.pdf
* MARIUS MUTU
* V 23.02.2016
* INSTALARE: Se copie fisierul prg in directorul ROA\[APLICATIE]\PLUGIN\
* FOLOSIRE: In formularul Vizualizare facturi se apasa butonul listare
* copiat din oproceduri_facturare.prg:email_facturi
Lparameters toFacturiForm, toDate
*** Trimit email la facturile alese, sau la factura de pe inregistrarea curenta
Local laFiles[1], lcBody, lcClient, lcDir, lcEmail, lcErrorMessage, lcFacturaFile, lcFile
Local lcFileName, lcFiles, lcNume, lcRaportEmail, lcRecapitulatiaFile, lcScheletonFile
Local lcSerieFactura, lcSubject, lcTipDocument, lcTo, lcWhere, ldDataFactura, llClearErrors
Local llJustPDF, llListareFactura, llListareRecapitulatia, llListareAlteDocumente, llSilent, llSucces, lnFile, lnFiles
Local lnIdVanzare, lnNumarFactura, lnRecno, loDate, loMail
loMail = getoEmail() && email.prg
lcWhere = ""
llListareFactura = .T.
llGenerareFactura = .T.
llListareRecapitulatia = .T.
llGenerareRecapitulatia = .T.
llListareAlteDocumente = .T.
If Type('toDate') = 'O'
llListareFactura = Iif(Type('toDate.nListareFactura') = 'N', Inlist(toDate.nListareFactura, 1, 2), .T.)
llGenerareFactura = Iif(Type('toDate.nListareFactura') = 'N', toDate.nListareFactura = 2, .F.)
llListareRecapitulatia = Iif(Type('toDate.nListareRecapitulatia') = 'N', Inlist(toDate.nListareRecapitulatia, 1, 2), .F.)
llGenerareRecapitulatia = Iif(Type('toDate.nListareRecapitulatia') = 'N', toDate.nListareRecapitulatia = 2, .F.)
llListareAlteDocumente = Iif(Type('toDate.nListareAlteDocumente') = 'L', toDate.nListareAlteDocumente = 1, .F.)
Endif
Select crsFacturi
lnRecno = Recno()
Locate For ales = 1
If !Found()
Goto m.lnRecno
lcWhere = m.lcWhere + 'recno() = ' + Alltrim(Str(m.lnRecno))
Else
lcWhere = m.lcWhere + 'ales = 1'
Endif
lcRaportEmail = Addbs(gcTempPath) + "email_" + Ttoc(Datetime(), 1) + '.xls'
Select F.id_vanzare, F.data_act, F.numar_act, F.serie_act, F.total_fara_tva, F.total_tva, F.total_cu_tva, F.client, ;
email_facturare, Cast(Null As L) As email_succes, Cast(Null As c(250)) As email_mesaj ;
From crsFacturi F ;
Where &lcWhere ;
Into Cursor cEmail Readwrite
lcSubjectTemplate = loMail.cSubject
lcBodyTemplate = loMail.cHtmlBody
Sele cEmail
Scan
lcFiles = ""
ldDataFactura = data_act
lcSerieFactura = Alltrim(serie_act)
lnNumarFactura = numar_act
lcNume = Upper(Alltrim(client))
lcClient = m.lcNume
lnIdVanzare = id_vanzare
loDate = Null
lcSubject = m.lcSubjectTemplate
lcSubject = Strtran(m.lcSubject, '<nrfact>', Alltrim(Str(m.lnNumarFactura)), 1, 1, 1)
lcSubject = Strtran(m.lcSubject, '<datafact>', Alltrim(Dtoc(m.ldDataFactura)), 1, 1, 1)
lcSubject = Strtran(m.lcSubject, '<client>', m.lcClient, 1, 1, 1)
loMail.cSubject = m.lcSubject
lcBody = m.lcBodyTemplate
lcBody = Strtran(m.lcBody, '<nrfact>', Alltrim(Str(m.lnNumarFactura)), 1, 10, 1)
lcBody = Strtran(m.lcBody, '<datafact>', Alltrim(Dtoc(m.ldDataFactura)), 1, 10, 1)
lcBody = Strtran(m.lcBody, '<client>', m.lcClient, 1, 10, 1)
loMail.cHtmlBody = m.lcBody
* Generare PDF factura
lcFacturaFile = GetPDFFacturaFile(m.ldDataFactura, m.lnNumarFactura)
If m.llListareFactura
If !File(m.lcFacturaFile) And m.llGenerareFactura
llSilent = .F.
llJustPDF = .T.
lcTipDocument = 'FACTURA'
loDate = toFacturiForm.do_listare_document(m.lnIdVanzare, m.llSilent, m.llJustPDF, m.lcTipDocument) && .ListareDocument(m.llSilent, m.llJustPDF, "cEmail")
Endif
loMail.EmailSetAttachment(m.lcFacturaFile)
lcFiles = m.lcFiles + Iif(File(m.lcFacturaFile), m.lcFacturaFile, "")
Endif && llListareFactura
* Generare PDF recapitulatie
lcRecapitulatiaFile = GetPDFRecapitulatiaFile(ldDataFactura, m.lnNumarFactura)
If m.llListareRecapitulatia
If !File(m.lcRecapitulatiaFile) And m.llGenerareRecapitulatia
llSilent = .F.
llJustPDF = .T.
lcTipDocument = 'RECAPITULATIE'
loDate = toFacturiForm.do_listare_document(m.lnIdVanzare, m.llSilent, m.llJustPDF, m.lcTipDocument) && .ListareDocument(m.llSilent, m.llJustPDF, "cEmail")
Endif
loMail.EmailSetAttachment(m.lcRecapitulatiaFile)
lcFiles = m.lcFiles + Iif(File(m.lcRecapitulatiaFile), "," + m.lcRecapitulatiaFile, "")
Endif && llListareRecapitulatia
* Atasez alte documente cu aceeasi structura ca factura.pdf
If m.llListareAlteDocumente
lcScheletonFile = Strtran(lcFacturaFile, 'factura', '*', 1, 10, 1) && d:\roa\pdf\20200402_12346_*.pdf (_recapitulatia.pdf, _situatie_stationare.pdf, _declaratie_comandant.pdf)
lcDir = Addbs(Justpath(m.lcFacturaFile))
lnFiles = Adir(laFiles, m.lcScheletonFile)
For lnFile = 1 To m.lnFiles
lcFileName = laFiles[m.lnFile, 1]
* Nu mai atasez factura.pdf si recapitulatie.pdf
If Inlist(Lower(m.lcFileName), Lower(JUSTFNAME(m.lcFacturaFile)), Lower(JUSTFNAME(m.lcRecapitulatiaFile)))
Loop
Endif
lcFile = m.lcDir + m.lcFileName
loMail.EmailSetAttachment(m.lcFile)
lcFiles = m.lcFiles + Iif(File(m.lcFile), m.lcFile, "")
Endfor
Endif && llListareAlteDocumente
* Email
Wait Window 'Email ' + Alltrim(Transform(Recno('cEmail'))) + '/' + Alltrim(Transform(Reccount('cEmail'))) + ' Client: ' + m.lcClient + ' Factura: ' + Alltrim(Str(m.lnNumarFactura)) Nowait
lcEmail = Alltrim(Nvl(cEmail.email_facturare, '')) && am adaugat direct in crsFacturi.email_facturare, ca sa nu mai folosesc loDate.oClient.email_facturare, daca fisierele pdf sunt deja listate
lcTo = Iif(!Empty(Nvl(m.lcEmail, '')), m.lcEmail, '')
loMail.cTo = m.lcTo
llSucces = .T.
lcErrorMessage = ''
If loMail.Send() > 0
llClearErrors = .T.
lcErrorMessage = loMail.GetErrorMessage(m.llClearErrors)
llSucces = .F.
Endif
Replace email_succes With m.llSucces, email_mesaj With Left(m.lcErrorMessage, 250) In cEmail
If Inkey(0.5) = 27 && 'ESC'
If AMESSAGEBOX('Doriti sa intrerupeti operatia?', 4 + 32, _Screen.Caption) = 6
Exit
Endif
Endif
Endscan
Select cEmail
Copy To (m.lcRaportEmail) Type Xl5
OPEN_DEFAULT_APP(m.lcRaportEmail)
Use In (Select('cEmail'))
Select crsFacturi
Go lnRecno

175
COMUN/PluginTemplate/listare_facturi_omv_petrom_pdf_si_xml.prg Normal file
View File

@@ -0,0 +1,175 @@
Lparameters toFacturiForm, toDate
Local lcBody, lcBodyTemplate, lcClickSignPDF, lcClient, lcContract, lcDivizia, lcEmail
Local lcErrorMessage, lcFacturaFile, lcFileSemnat, lcFiles, lcNume, lcRaportEmail, lcRun, lcSelect
Local lcSerieFactura, lcSql, lcSubject, lcSubjectTemplate, lcTipDocument, lcTo, lcValuta, lcWhere
Local lcXML, lcXMLFile, ldDataFactura, llClearErrors, llForceExit, llGenerareFactura, llInValuta
Local llJustPDF, llListareFactura, llSilent, llSucces, lnCurs, lnIdFact, lnIdVanzare, lnNumarFactura
Local lnOptDivizia, lnRecno, lnValoare, loDate, loMail
lcSelect = Select()
lcClickSignPDF = [C:\Program Files (x86)\clickSignPdf\clickSignPdfProfessional.exe]
If !File(m.lcClickSignPDF)
lcClickSignPDF = [C:\Program Files\clickSignPdf\clickSignPdfProfessional.exe]
Endif
If !File(m.lcClickSignPDF)
If AMESSAGEBOX('Nu este instalat clickSIGNpdf.exe! Continuati?',4+32,_Screen.Caption) <> 6
Return
Endif
Endif
loMail = getoEmail() && email.prg
lcWhere = ""
llListareFactura = .T.
llGenerareFactura = .T.
If Type('toDate') = 'O'
llListareFactura = Iif(Type('toDate.nListareFactura') = 'N', Inlist(toDate.nListareFactura, 1, 2), .T.)
llGenerareFactura = Iif(Type('toDate.nListareFactura') = 'N', toDate.nListareFactura = 2, .T.)
Endif
Select crsFacturi
lnRecno = Recno()
Locate For ales = 1
If !Found()
Goto m.lnRecno
lcWhere = m.lcWhere + 'recno() = ' + Alltrim(Str(m.lnRecno))
Else
lcWhere = m.lcWhere + 'ales = 1'
Endif
lcRaportEmail = Addbs(gcTempPath) + "email_" + Ttoc(Datetime(), 1) + '.xls'
Select F.id_vanzare, F.data_act, F.numar_act, F.serie_act, F.total_fara_tva, F.total_tva, F.total_cu_tva, F.client, F.valuta, F.contract, F.Curs, F.in_valuta,;
f.valval, F.tvaval, F.totval, F.email_facturare, Cast(Null As L) As email_succes, Cast(Null As c(250)) As email_mesaj ;
From crsFacturi F ;
Where &lcWhere ;
Into Cursor cEmail Readwrite
lcSubjectTemplate = loMail.cSubject
lcBodyTemplate = loMail.cHtmlBody
If Reccount('cEmail') > 0
lcFiles = ""
Sele cEmail
Scan
ldDataFactura = data_act
lcSerieFactura = Alltrim(serie_act)
lnNumarFactura = numar_act
lcNume = Upper(Alltrim(client))
lcClient = m.lcNume
lnIdVanzare = id_vanzare
loDate = Null
lcValuta = Upper(Alltrim(valuta))
lcContract = Alltrim(Nvl(contract, ''))
lnCurs = Curs
llInValuta = (Nvl(in_valuta,0) = 1)
lcValuta = Upper(Alltrim(Nvl(valuta,'')))
Do Case
Case !m.llInValuta
lcValuta = 'RON'
Case Left(m.lcValuta,3) = 'EUR' && EURO
lcValuta = 'EUR'
Endcase
lnValoare = Iif(m.llInValuta, totval, total_cu_tva)
lcSubject = m.lcSubjectTemplate
lcSubject = Strtran(m.lcSubject, '<nrfact>', Alltrim(Str(m.lnNumarFactura)), 1, 1, 1)
lcSubject = Strtran(m.lcSubject, '<datafact>', Alltrim(Dtoc(m.ldDataFactura)), 1, 1, 1)
lcSubject = Strtran(m.lcSubject, '<client>', m.lcClient, 1, 1, 1)
loMail.cSubject = m.lcSubject
lcBody = m.lcBodyTemplate
lcBody = Strtran(m.lcBody, '<nrfact>', Alltrim(Str(m.lnNumarFactura)), 1, 10, 1)
lcBody = Strtran(m.lcBody, '<datafact>', Alltrim(Dtoc(m.ldDataFactura)), 1, 10, 1)
lcBody = Strtran(m.lcBody, '<client>', m.lcClient, 1, 10, 1)
loMail.cHtmlBody = m.lcBody
* Generare PDF factura
lcFacturaFile = GetPDFFacturaFile(m.ldDataFactura, m.lnNumarFactura)
lcFacturaValutaFile = GetPDFFacturaValutaFile(m.ldDataFactura, m.lnNumarFactura)
If m.llListareFactura
If !File(m.lcFacturaFile) And m.llGenerareFactura
llSilent = .F.
llJustPDF = .T.
lcTipDocument = 'FACTURA'
loDate = toFacturiForm.do_listare_document(m.lnIdVanzare, m.llSilent, m.llJustPDF, m.lcTipDocument) && .ListareDocument(m.llSilent, m.llJustPDF, "cEmail")
Endif
Endif && llListareFactura
If File(m.lcFacturaValutaFile) And File(m.lcFacturaFile)
lnRaspuns = AMESSAGEBOX('Doriti semnarea facturii in valuta (DA) sau a facturii in lei (NU)?',4+32,_Screen.Caption)
If m.lnRaspuns = 6
lcFacturaFile = m.lcFacturaValutaFile
Endif
Endif
* Semnare PDF
* Lansare utilitar certsign.ro
OPEN_DEFAULT_APP(Justpath(m.lcFacturaFile)) && deschid directorul facturii
If File(m.lcClickSignPDF)
lcRun = [! /N "] + m.lcClickSignPDF + [" -i "] + m.lcFacturaFile + ["]
&lcRun
Endif
lcFileSemnat = Strtran(m.lcFacturaFile, Juststem(m.lcFacturaFile), Juststem(m.lcFacturaFile) + '_signed')
AMESSAGEBOX('Se verifica fisierul ' + lcFileSemnat + Chr(13) + Chr(10) + 'Apasati OK cand s-a semnat pdf-ul.',0, _Screen.Caption)
*WAIT WINDOW 'Se asteapta semnarea fisierului ' + m.lcFacturaFile NOWAIT
llForceExit = .F.
Do While .T.
If File(m.lcFileSemnat)
Exit
Endif
Wait Window 'Se verifica ' + m.lcFileSemnat Nowait
If Inkey(1) = 27 && 'ESC'
If AMESSAGEBOX('Doriti sa intrerupeti operatia?',4+32, _Screen.Caption) = 6
llForceExit = .T.
Exit
Endif
Endif
Enddo
If m.llForceExit
Exit
Endif
If File(m.lcFileSemnat)
loMail.EmailSetAttachment(m.lcFileSemnat)
Endif
* Email
Wait Window 'Email ' + Alltrim(Transform(Recno('cEmail'))) + '/' + Alltrim(Transform(Reccount('cEmail'))) + ' Client: ' + m.lcClient + ' Factura: ' + Alltrim(Str(m.lnNumarFactura)) Nowait
lcEmail = Alltrim(Nvl(cEmail.email_facturare, '')) && am adaugat direct in crsFacturi.email_facturare, ca sa nu mai folosesc loDate.oClient.email_facturare, daca fisierele pdf sunt deja listate
lcTo = Iif(!Empty(Nvl(m.lcEmail, '')), m.lcEmail, '')
loMail.cTo = m.lcTo
llSucces = .T.
lcErrorMessage = ''
If loMail.Send() > 0
llClearErrors = .T.
lcErrorMessage = loMail.GetErrorMessage(m.llClearErrors)
llSucces = .F.
Endif
Replace email_succes With m.llSucces, email_mesaj With Left(m.lcErrorMessage, 250) In cEmail
If Inkey(0.5) = 27 && 'ESC'
If AMESSAGEBOX('Doriti sa intrerupeti operatia?', 4 + 32, _Screen.Caption) = 6
Exit
Endif
Endif
Endscan
Select cEmail
Copy To (m.lcRaportEmail) Type Xl5
OPEN_DEFAULT_APP(m.lcRaportEmail)
ENDIF && Reccount('cEmail')
Use In (Select('cEmail'))
Select (m.lcSelect)

BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/aviz_a5_ft.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/aviz_a5_ft.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/aviz_ft.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/aviz_ft.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/aviz_transfer_ctva.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/aviz_transfer_ctva.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_a5_ft.frt Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_a5_ft.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_ft.frt Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_ft.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_val_a5_ft.frt Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_val_a5_ft.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_val_ft.frt Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_val_ft.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva/aviz_transfer.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva/aviz_transfer.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva/aviz_transfer_ctva.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva/aviz_transfer_ctva.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz_a5.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz_a5.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz_transfer.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz_transfer.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz_transfer_ctva.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz_transfer_ctva.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/aviz.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/aviz.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/aviz_a5.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/aviz_a5.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/aviz_ctva.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/aviz_ctva.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/aviz_ctva_a5.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/aviz_ctva_a5.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/balanta_parteneri_rpt1.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/balanta_parteneri_rpt1.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/balanta_parteneri_rpt2.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/balanta_parteneri_rpt2.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/balanta_parteneri_rpt2_ext.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/balanta_parteneri_rpt2_ext.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/balanta_parteneri_rpt3.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/balanta_parteneri_rpt3.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/balanta_parteneri_rpt4.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/balanta_parteneri_rpt4.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/balanta_parteneri_rpt5.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/balanta_parteneri_rpt5.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/borderou_ar.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/borderou_ar.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/centralizator_bon.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/centralizator_bon.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/centralizator_comenzi.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/centralizator_comenzi.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/centralizator_lucrari.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/centralizator_lucrari.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/centralizator_nir.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/centralizator_nir.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/centralizator_schimbpret.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/centralizator_schimbpret.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/chitanta.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/chitanta.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/chitanta_landscape.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/chitanta_landscape.frx Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/detalii_comanda.FRT Normal file
View File

Binary file not shown.

BIN
COMUN/Rapoarte/detalii_comanda.frx Normal file
View File

Binary file not shown.

Some files were not shown because too many files have changed in this diff Show More