Proiectarea Sistemului Informațional Privind Evidența Personalului

UNIVERSITATEA DE VEST TIMIȘOARA

FACULTATEA DE ȘTIINȚE ECONOMICE

SPECIALIZAREA: FINANȚE ASIGURĂRI

PROIECT INFORMATIC

AUTOR:

NUȚIU GRAȚIAN MARIUS

FINANȚE-ASIGURĂRI AN III

GRUPA II

-TIMIȘOARA 2001-

UNIVERSITATEA DE VEST TIMIȘOARA

FACULTATEA DE ȘTIINȚE ECONOMICE

SPECIALIZAREA: FINANȚE ASIGURĂRI

TEMA NR. 23

PROIECTAREA SISTEMULUI INFORMAȚIONAL PRIVIND EVIDENȚA PERSONALULUI LA REGIA AUTONOMĂ APĂ-CANAL ARAD

AUTOR:

NUȚIU GRAȚIAN MARIUS

FINANȚE-ASIGURĂRI AN III

GRUPA II

-TIMIȘOARA 2001-

CUPRINS:

I. Analiza sistemului informațional existent………………………..3

Prezentarea generală a unității analizate……………………………………………….3

Istoricul evoluției unității analizate……………………………………………………3

Modul de constituire……………………………………………………………………….4

Profilul activității și obiectivele unității……………………………………………..5

Prezentarea sistemului informatic existent…………………………………………….5

Analiza mediului extern și a relațiilor acestuia cu unitatea studiată………………………………………………………………….9

Prezentarea principalelor relații cu alte firme (furnizori, clienți, bănci)……………………………………………………9

Prezentarea principalelor relații cu instituțiile guvernamentale……………………………………………………………..12

Studiul structurii organizatorice a unității……………………………………………13

Prezentarea organigramei unității…………………………………………………….13

Analiza funcțională a activității studiate………………………………………………13

Prezentarea succintă a funcțiunilor Serviciului resurse umane, administrativ, dispensar……………………………………………13

Prezentarea modului de conectare și a relațiilor dintre Serviciul resurse umane, administrativ, dispensar și celelalte compartimente din cadrul unității…………………………………………………………………………..14

Acte normative în vigoare ce reglementează activitatea de evidență a personalului……………………………………………….16

Analiza documentelor sau a altor surse informaționale privind activitatea studiată………………………………………………………………….18

Inventarul documentelor și altor surse informaționale………………………..18

Fișa de analiză a documentelor………………………………………………………..20

Reprezentarea fluxului informațional……………………………………………….21

Descrierea fluxului de operații privind documentele și alte surse informaționale analizate……………………………………………….22

Prezentarea critică a sistemului informațional existent………………………..23

Proiectarea generală a sistemului informatic……………………………………………………………………………………………..24

Definirea obiectivelor sistemului informatic propus…………………………….24

Obiective generale…………………………………………………………………………..24

Obiective specifice………………………………………………………………………….24

Proiectarea situațiilor de ieșire……………………………………………………………25

Formalizarea documentelor de intrare………………………………………………..32

Proiectarea bazei informaționale……………………………………………………………………………………32

Determinarea conținutului bazei informaționale…………………………………32

Definirea entităților bazei informaționale și a relațiilor dintre acestea…………………………………………………………………………………38

Codificarea atributelor bazei informaționale și definire a relațiilor dintre atribute…………………………………………………………………40

Reproiectarea și adaptarea documentelor de intrare……………………………………………………………………………………………….43

Structurarea sistemului și determinarea unităților funcționale………………………………………………………………………….43

Proiectarea de detaliu a sistemului informatic……………………………………………………………………………………………..44

Proiectarea structurii bazei de date……………………………………………………44

Proiectarea fișierelor permanente……………………………………………………..44

Proiectarea fișierelor variabile………………………………………………………….45

Proiectarea prelucrărilor specifice unităților funcționale…………………………………………………………………………………………45

Stabilirea ordinii de prelucrare a fișierelor…………………………………………45

Determinarea unităților de prelucrare………………………………………………..46

Proiectarea dialogului cu unitățile de prelucrare………………………………..47

Proiectarea prelucrărilor specifice unităților de prelucrare………………………………………………………………………………………….51

Determinarea modulelor de prelucrare……………………………………………..51

Organigrama de sistem a unităților de prelucrare……………………………….55

Prezentarea programului informatic………………………………..57

Prezentarea interfeței utilizator a programului…………………………………..57

Prezentarea situațiilor de ieșire a programului…………………………………..67

Prezentarea programului sursă………………………………………………………….73

4.3. Prezentarea programului sursă

'Incarcarea formei "Evidenta personal" cu datele de identificare ale firmei

Private Sub Form_Load()

Label1.Caption = Form7.Data1.Recordset("UNIT")

Label3.Caption = Form7.Data1.Recordset("SF")

Label5.Caption = Form7.Data1.Recordset("NF")

Label9.Caption = Form7.Data1.Recordset("OF")

Label7.Caption = Form7.Data1.Recordset("JF")

Label11.Caption = Form7.Data1.Recordset("NRTEL")

End Sub

'Activarea optiunii "Introducere date"

Private Sub Ang_nou_Click()

'Afisarea ferestrei pentru introducerea datelor noului angajat

Form2.Show

End Sub

'Activarea optiunii "Exit"

Private Sub exit_Click()

End

End Sub

'Activarea optiunii "Introduceti firma"

Private Sub Intrf_Click()

Form7.Show

End Sub

'Activarea optiunii "Modificare date angajat"

Private Sub modif_Click()

Form5.Show

End Sub

'Activarea optiunii "Stergere angajat"

Private Sub sterge_Click()

Form6.Show

End Sub

+++++++++++++++++++de pus si sutuatiile de iesire

Forma " Date angajat nou"

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text12.SetFocus

End If

End Sub

Private Sub Combo2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Combo3.SetFocus

End If

End Sub

Private Sub Combo4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text15.SetFocus

End If

End Sub

'Activarea butonului "Inregistreaza"

Private Sub Command1_Click()

Form4.Show

End Sub

'Activarea butonului "Sterge"

Private Sub Command2_Click()

Form3.Show

End Sub

'Activarea butonului "Iesire"

Private Sub Command3_Click()

Form2.Hide

Form1.Show

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text14.SetFocus

End If

End Sub

Private Sub Text11_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Combo2.SetFocus

End If

End Sub

Private Sub Text12_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text10.SetFocus

End If

End Sub

Private Sub Text13_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text11.SetFocus

End If

End Sub

Private Sub Text14_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text13.SetFocus

End If

End Sub

Private Sub Text15_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Combo1.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text7.SetFocus

End If

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

End If

End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text9.SetFocus

End If

End Sub

Private Sub Text9_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Combo4.SetFocus

End If

End Sub

'Forma "Atentie"

Private Sub Command1_Click()

Hide

Form2.Text1.Text = ""

Form2.Text2.Text = ""

Form2.Text3.Text = ""

Form2.Text4.Text = ""

Form2.Text5.Text = ""

Form2.Text6.Text = ""

Form2.Text7.Text = ""

Form2.Text8.Text = ""

Form2.Text9.Text = ""

Form2.Text10.Text = ""

Form2.Text11.Text = ""

Form2.Text12.Text = ""

Form2.Text13.Text = ""

Form2.Text14.Text = ""

Form2.Text15.Text = ""

Form2.Combo1.Text = ""

Form2.Combo2.Text = ""

Form2.Combo3.Text = ""

Form2.Combo4.Text = ""

End Sub

Private Sub Command2_Click()

Hide

End Sub

'Forma "Inregistrati"

Private Sub Command1_Click()

Hide

With Data1

.Recordset.AddNew

.Recordset("NUME_A") = UCase(Text1.Text)

.Recordset("NRMATR") = Val(Text2.Text)

.Recordset("DATAN_A") = CDate(Format(Text3.Text, "dd/mm/yyyy"))

.Recordset("SEX") = UCase(Text4.Text)

.Recordset("SA") = UCase(Text5.Text)

.Recordset("NA") = Val(Text6.Text)

.Recordset("AA") = Val(Text7.Text)

.Recordset("OA") = UCase(Text8.Text)

.Recordset("JA") = UCase(Text9.Text)

.Recordset("STCIV") = UCase(Combo4.Text)

.Recordset("COPII") = Val(Text15.Text)

.Recordset("ACT_A") = UCase(Combo1.Text)

.Recordset("PPROF") = UCase(Text12.Text)

.Recordset("DATAI") = CDate(Format(Text10.Text, "dd/mm/yyyy"))

.Recordset("COMP") = UCase(Text14.Text)

.Recordset("FUNCTIE") = UCase(Text13.Text)

.Recordset("SALARB") = Val(Text11.Text)

.Recordset("NORMA") = UCase(Combo2.Text)

.Recordset("GRUPAM") = Val(Combo3.Text)

.Recordset.Update

End With

Form2.Text1.Text = ""

Form2.Text2.Text = ""

Form2.Text3.Text = ""

Form2.Text4.Text = ""

Form2.Text5.Text = ""

Form2.Text6.Text = ""

Form2.Text7.Text = ""

Form2.Text8.Text = ""

Form2.Text9.Text = ""

Form2.Text10.Text = ""

Form2.Text11.Text = ""

Form2.Text12.Text = ""

Form2.Text13.Text = ""

Form2.Text14.Text = ""

Form2.Text15.Text = ""

Form2.Combo1.Text = ""

Form2.Combo2.Text = ""

Form2.Combo3.Text = ""

Form2.Combo4.Text = ""

DBGrid1.ReBind

End Sub

Private Sub Command2_Click()

Hide

End Sub

'Forma "Cauta"

Private Sub Command1_Click()

Hide

End Sub

Private Sub Command2_Click()

Hide

Form8.Show

Form8.Data1.RecordSource = "select*from INTR where NUME_A=" + Form5.Text1.Text + ""

Form8.Data1.Refresh

Form8.DBGrid1.ReBind

Form8.Text1.Text = Form8.Data1.Recordset("NUME_A")

Form8.Text2.Text = Form8.Data1.Recordset("NRMATR")

Form8.Text3.Text = Form8.Data1.Recordset("DATAN_A")

Form8.Text4.Text = Form8.Data1.Recordset("SEX")

Form8.Text5.Text = Form8.Data1.Recordset("SA")

Form8.Text6.Text = Form8.Data1.Recordset("NA")

Form8.Text7.Text = Form8.Data1.Recordset("AA")

Form8.Text8.Text = Form8.Data1.Recordset("OA")

Form8.Text9.Text = Form8.Data1.Recordset("JA")

Form8.Combo4.Text = Form8.Data1.Recordset("STCIV")

Form8.Text15.Text = Form8.Data1.Recordset("COPII")

Form8.Combo1.Text = Form8.Data1.Recordset("ACT_A")

Form8.Text12.Text = Form8.Data1.Recordset("PPROF")

Form8.Text10.Text = Form8.Data1.Recordset("DATAI")

Form8.Text14.Text = Form8.Data1.Recordset("COMP")

Form8.Text13.Text = Form8.Data1.Recordset("FUNCTIE")

Form8.Text11.Text = Form8.Data1.Recordset("SALARB")

Form8.Combo2.Text = Form8.Data1.Recordset("NORMA")

Form8.Combo3.Text = Form8.Data1.Recordset("GRUPAM")

Text1.Text = ""

End Sub

'Forma "Sterge"

Private Sub Command1_Click()

Hide

Form9.Show

Form9.Data1.RecordSource = "select*from INTR where NUME_A=" + Form6.Text1.Text + ""

Form9.Data1.Refresh

Form9.DBGrid1.ReBind

Form9.Text1.Text = Form9.Data1.Recordset("NUME_A")

Form9.Text2.Text = Form9.Data1.Recordset("NRMATR")

Form9.Text3.Text = Form9.Data1.Recordset("DATAN_A")

Form9.Text4.Text = Form9.Data1.Recordset("SEX")

Form9.Text5.Text = Form9.Data1.Recordset("SA")

Form9.Text6.Text = Form9.Data1.Recordset("NA")

Form9.Text7.Text = Form9.Data1.Recordset("AA")

Form9.Text8.Text = Form9.Data1.Recordset("OA")

Form9.Text9.Text = Form9.Data1.Recordset("JA")

Form9.Combo4.Text = Form9.Data1.Recordset("STCIV")

Form9.Text15.Text = Form9.Data1.Recordset("COPII")

Form9.Combo1.Text = Form9.Data1.Recordset("ACT_A")

Form9.Text12.Text = Form9.Data1.Recordset("PPROF")

Form9.Text10.Text = Form9.Data1.Recordset("DATAI")

Form9.Text14.Text = Form9.Data1.Recordset("COMP")

Form9.Text13.Text = Form9.Data1.Recordset("FUNCTIE")

Form9.Text11.Text = Form9.Data1.Recordset("SALARB")

Form9.Combo2.Text = Form9.Data1.Recordset("NORMA")

Form9.Combo3.Text = Form9.Data1.Recordset("GRUPAM")

Text1.Text = ""

End Sub

Private Sub Command2_Click()

Hide

Text1.Text = ""

End Sub

'Forma "Introduceti datele despre firma"

Private Sub Command1_Click()

Data1.Recordset.MoveFirst

Data1.Recordset.Delete

With Data1

.Recordset.AddNew

.Recordset("UNIT") = UCase(Text1.Text)

.Recordset("SF") = UCase(Text5.Text)

.Recordset("JF") = UCase(Text8.Text)

.Recordset("NF") = Val(Text6.Text)

.Recordset("OF") = UCase(Text7.Text)

.Recordset("NRTEL") = Val(Text2.Text)

.Recordset("CONT") = Val(Text3.Text)

.Recordset("BANCA") = UCase(Text4.Text)

.Recordset.Update

End With

DBGrid1.ReBind

Form1.Refresh

Hide

Form1.Show

End Sub

Private Sub Command2_Click()

Hide

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text7.SetFocus

End If

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

End If

End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

'Forma "Modificare date angajat"

Private Sub Command1_Click()

With Data1

.Recordset.Edit

.Recordset("NUME_A") = UCase(Text1.Text)

.Recordset("NRMATR") = Val(Text2.Text)

.Recordset("DATAN_A") = CDate(Format(Text3.Text, "dd/mm/yyyy"))

.Recordset("SEX") = UCase(Text4.Text)

.Recordset("SA") = UCase(Text5.Text)

.Recordset("NA") = Val(Text6.Text)

.Recordset("AA") = Val(Text7.Text)

.Recordset("OA") = UCase(Text8.Text)

.Recordset("JA") = UCase(Text9.Text)

.Recordset("STCIV") = UCase(Combo4.Text)

.Recordset("COPII") = Val(Text15.Text)

.Recordset("ACT_A") = UCase(Combo1.Text)

.Recordset("PPROF") = UCase(Text12.Text)

.Recordset("DATAI") = CDate(Format(Text10.Text, "dd/mm/yyyy"))

.Recordset("COMP") = UCase(Text14.Text)

.Recordset("FUNCTIE") = UCase(Text13.Text)

.Recordset("SALARB") = Val(Text11.Text)

.Recordset("NORMA") = UCase(Combo2.Text)

.Recordset("GRUPAM") = Val(Combo3.Text)

.Recordset.Update

End With

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

Text13.Text = ""

Text14.Text = ""

Text15.Text = ""

Combo1.Text = ""

Combo2.Text = ""

Combo3.Text = ""

Combo4.Text = ""

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

Text13.Text = ""

Text14.Text = ""

Text15.Text = ""

Combo1.Text = ""

Combo2.Text = ""

Combo3.Text = ""

Combo4.Text = ""

End Sub

Private Sub Command3_Click()

Hide

End Sub

'Forma "Stergere angajat"

Private Sub Command1_Click()

Data1.Recordset.Delete

End Sub

Private Sub Command2_Click()

Hide

End Sub

'Forma "Sunteti sigur?”

Private Sub Command1_Click()

Form9.Data1.Recordset.Delete

End Sub

Private Sub Command2_Click()

Hide

End Sub

=== PRO ===

CAPITOLUL I. ANALIZA SISTEMULUI INFORMAȚIONAL

EXISTENT

1.1. Prezentarea generală a unității analizate

1.1.1. Istoricul evoluției unității analizate

Regia Autonoma s-a înființat potrivit prevederior Legii nr. 15/1990, ca unitate economică de interes local, având denumirea de Regia Autonomă Apă-Canal Arad, cu sediul in Arad,str. Sabin Drăgoi, nr. 2-4, în baza deciziei nr. 60/14.02.1991 a Prefecturii Arad și înregistrată la Registrul Comerțului Arad sub nr. J02/110/1991, CF. R1683483, aflându-se sub autoritatea Consiliului Județean Arad.

Ea a luat ființă prin reorganizarea locativă a Întreprinderii de Gospodărire Județeană și Locativă Arad, secția de Exploatare Apă-Canal, care a luat ființă în anul 1896 și de-a lungul timpului a cunoscut numeroase forme de organizare precum și numeroase denumiri, existând în momentul de față ca REGIA AUTONOMĂ APĂ-CANAL ARAD.

Așa cum am văzut că regia a luat ființă prin reorganizarea unei unități de nivel județean, și în prezent regia dispune de unități pe întreg teritoriul județului Arad în peste 25 de orașe și comune, din care cele mai importante sunt:

Curtici;

Macea;

Zimandul Nou;

Vinga;

Vladimirescu;

Fântânele;

Horea.

Din analiza dinamicii personalului se poate observa o tendință de o ușoară reducere a numărului de angajați.Dinamica și structura angajaților în ultimii ani este prezentată în tabelul 1.1.

Tabelul 1.1.

Pentru anul 2001 nu se prevede o reducere de personal, în această perioadă având loc chiar un curs la locul de muncă de pregătire a personalului, direct productiv mai ales, pentru investițiile ce vor avea loc anul acesta și cel viitor, investiții ce privesc în special informatizarea procesului tehnologic, precum și cel al administrației regiei autonome.

1.1.2. Modul de constituire

Regia Autonoma s-a înființat potrivit prevederior Legii nr. 15/1990, ca unitate economică de interes local, având denumirea de Regia Autonomă Apă-Canal Arad, cu sediul in Arad,str. Sabin Drăgoi, nr. 2-4, în baza deciziei nr. 60/14.02.1991 a Prefecturii Arad și înregistrată la Registrul Comerțului Arad sub nr. J02/110/1991, CF. R1683483, aflându-se sub autoritatea Consiliului Județean Arad.

În conformitate cu legislatia în vigoare, Regia Autonomă Apă-Canal Arad are personalitate juridică, este organizată și funcționează pe bază de gestiune economică și autonomie financiară, încheie bilanț, are cont bancar, beneficiază de credite bancare, are relații economice, financiare și juridice cu alte regii autonome, societăți comerciale sau persoane fizice ori juridice române sau străine, constituie la dispoziția sa și utilizează fondurile de care are nevoie, în condițiile legii.

Regia Autonomă Apă-Canal Arad dispune de un patrimoniu propriu în conformitate cu reglementările legale în vigoare, având în exploatare bunuri din patrimoniu de interes pubic și local.

1.1.3.Profilul activității si obiectivele unității

Obiectul de activitate al Regiei Autonome Apă-Canal Arad îl constituie:

captarea, tratarea, transportul, acumularea și distribuirea apei potabile și industriale;

colectarea, transportul, epurarea, evacuarea apelor uzuale;

exploatarea, întreținerea, revizia și repararea instalațiilor specifice;

exploatarea, întreținerea și repararea parcului auto, echipamente, utilaje;

confecții, reparații, recondiționări piese și subansamble specifice;

prestări specifice activității de gospodărie comunală către populație, instituții și alți agenți economici;

comerț intern și import export;

închirieri spații și utilaje;

lucrări de proiectare specifice regiei;

efectuează analize de laborator ale apei potabile și reziduale;

lucrări de analize informatice;

distribuție de energie termică produsă de instalația de biogaz de la Stația de Epurare Arad.

“Obiectivul de bază al Regiei Autonome Apă-Canal Arad îl reprezintă satisfacerea cerințelor clienților ei în ceea ce privește asigurarea din punct de vedere cantitativ și calitativ a serviciiilor de alimentare cu apă, canalizare în condițiile unei reale preocupări pentru protejarea mediului înconjurător.”(“Strategia Regiei Autonome Apă-Canal ARAD privind realizarea sistemului informațional de management”).

Serviciile prestate de Regia Autonomă Apă-Canal Arad asigură alimentarea cu apă potabilă, canalizarea și epurarea apelor uzate, pentru 186000 locuitori ai municipiului Arad și circa 46000 locuitori din zonele rurale precum și pentru aproximativ 4000 agenți economici și instituții.

Pentru viitor regia dorește o îmbunătățire a calitații serviciilor oferite cetățenilor localităților mai sus amintite precum și a agenților economici respectivi, o îmbunătățire ce se doește a fi realizată prin o îmbunătățire a tehnologiei existente. În acest sens, deja s-a început o acțiune, acțiune ce vizează tehnologia de tratare a apei, fiind începute acțiunile de montare a noilor tehnologii, tehnologii achioziționate de la o firmă de specialitate din Germania, cu ajutorul unor specialiști din cadrul unei firme de specialitate din București.

1.2. Prezentarea sistemului informatic existent

Sistemul informatic a cunoscut numeroase transformări, plecându-se de la calculatoare 386 și 486 și o rețea NOVELL, rețea în cadrul căreia erau legate 11 calculatoare.Ulterior asupra acestora s-au efectuat operații up-grade, acestea aducându-se la nivelul performanțelor uni calculator PENTIUM I.

În anul 1998, sistemul informatic a cunoscut o nouă etap în cadrul evoluției sale, și anume, în acest an regia autonomă a achiziționat un număr de 12 calculatoare PENTIUM II, cu un procesor Intel Pentium cu viteza de 350MHz, HDD 10Gb, 64 SDRAM/133MHz Siemens,CDROM 48X, placă grafica 8MbAGP, cu monitoare de 15”, precum și un server de rețea PENTIUM II, cu un procesor Intel Pentium cu viteza de 400MHz I 128Mram.Cu toate acestea, cele 12 calculatoare nou achiziționate nu sunt legate în cadrul unei rețele ele funcționând individual în cadrul fiecarui compartiment înzestrat cu un astfel de calculator.

Acestea operează cu sistemele WINDOWS ’95 și WINDOWS ’98, MOFFICE ’97, program software legislativ LEGIS. Programele de salarizare, factura precum și de evidență contabilă fiind programe realizate de o firmă de profil din Arad, pe bază de contract.

Ultima etapă a evoluției sistemului informatic și cea mai importantă de până acum o reprezintă cea din anul 2000, când s-au achiziționat o serie de noi produse de calcul, produse prezentate în cadrul tabelului 1.2.

Tabelul 1.2.

Fiind vorba despre o nouă rețea ce va fi introdusă, în continuare vom prezenta caracteristicile tehnice ale principalelor componente ale viitoarei rețele:

Date tehnice Server rețea:

placa de bază: chipset Intel 82440X, 3 socluri DIMM, conector AGP, 2 porturi seriale, 1 port paralel, 3 sloturi PCI, 1 slot ISA, format ATX;

memorie: 528 Mb SDRAM;

microprocesor: Intel Pentium III 800 MHz;

harddisk: 10 Gb, USCSI, Quantum 3 bucăți;

unitate CD Writer: vitteză citire 24x, viteză scriere CD 8x Sony;

unitate FDD: 3,5”, 1,44 MB;

placă grafică: 8 MB, AGP;

carcasă: cu două surse redundante de câte 400 W cu ventilatoare cu turație variabilă în funcție de temperatură, format ATX;

placă de rețea: Intel cu conector RJ45, viteză de transfer 100 Mbit/sec.;

modem: extern cu viteză 56k V90 cu posibilitate de recepționare de mesaje fax sau de mesaje vocale în timp ce calculatorul este oprit;

monitor: cu diagonala de 17” cu rezoluție maximă de 1024×768 cu o frecvență de minim 85 Hz;

certificat ISO 9002;

garanție 3 ani.

Serverul va instalat și va funcționa în cadrul Biroului Informatizare.

Date tehnice Stații de lucru:

placă de bază: chipset Intel 82440X, 3 socluri DIMM, conector AGP, 2 porturi seriale, 1 port paralel, 3 sloturi PCI, 1 slot ISA, format ATX;

microprocesor: Intel Pentium III 733 MHz;

memorie: 64 Mb SDRAM;

harddisk: 15 Gb Quantum;

unitate CDROM: Sony 48x;

placa grafică: 8 Mb, AGP;

carcasă: sursă alimentare minim 220W cu ventilator cu turație variabilă în funcție de temperatură, ATX;

placă rețea: Intel cu conector RJ45 cu viteza de transfer de 100 Mbit/sec.;

monitor: cu diagonala de 17” cu rezoluție maximă de 1024×768 cu o frecvență de minim 85 Hz;

certificat ISO 9002;

garanție 3 ani.

În ceea ce privește softul licențiat Regia Autonomă Apă-Canal Arad respectă legislația și posedă licențe pentru programele utilizate, cum sunt:

DOS,

WINDOWS 95,

WINDOWS 3.1,

WINDOWS 98,

SOFT REȚEA NOVELL 4.1,

MS OFFICE 97,

FOX PRO,

NORTON COMANDER,

PROGRAM ANTIVIR.

În anul 2000, odată cu achiziționarea calculatoarelor s-au achiziționat și licențele pentru urmatoarele programe:

WINDOWS NT SERVER/WORKSTATION,

WINDOWS NT,

MS OFFICE 2000.

Regia este conectată la rețeaua INTERNET, conexiune de tip Dial-up.

În vederea realizării unui sistem integrat, în prezent se poartă tratative cu firma ORACLE (una dintre cele mai bune în gestionarea bazelor de date).

Organigrama posturilor de lucru (calculatoarelor) din cadrul regiei sunt prezentate mai jos:

ORGANIGRAMA POSTURILOR DE LUCRU (CALCULATOARELOR) REȚELEI NOVELL

Stațiile de lucru prezentate mai sus folosesc următoarele progame și aplicații:

DOS;

WINDOWS ‘95;

NORTON COMMANDER;

WINDOWS COMMANDER;

MICROSOFT OFFICE ’97;

FOX PRO;

PROGRAM ANTIVIR;

precum și softul aferent rețelei NOVELL 4.1.

În ceea ce privește calculatoarele existente în cadrul regiei dar care nu sunt legate la rețeaua existentă, organigrama acestora este prezentată în pagina următoare.

1.3. Analiza mediului extern și a relațiilor acestuia cu unitatea studiată

1.3.1. Prezentarea principalelor relații cu alte firme (furnizori, clienți, bănci)

Din analiza mediului extern al regiei se poate observa că firma are legături directe cu furnizorii de materiale: combustibil, energie electrică, materiale consumabile, piese auto, etc., diferite bunuri și servicii de care regia are nevoie, precum și cu clienții săi, persoane fizice și persoane juridice, dar și cu clienții incerți.

Relațiile cu furnizorii

Furnizorii societatii sunt persoane juridice romane de la care aceasta se aprovizioneaza cu materiile prime si materialele necesare pentru buna desfasurare a procesului de productie, precum si cu alte bunuri si servicii de care firma are nevoie pentru desfasurarea in bune conditii a activitatii sale.

Transportul materiilor prime si materialelor se efectueaza cu mijloace auto proprii sau inchirate.

Principalii furnizori sunt prezentați în tabelul 1.3.

Tabelul 1.3.

Sarcina asigurării cu materiile prime și materialele necesare desfașurării in bune condiții a procesului de producție revine serviciului aprovizionare, care fundamentează necesarul de aprovizionat in funcție de programul de producție, asigură și răspunde de aprovizionarea cu materiale, materii prime si piese de schimb a tuturor sectoarelor, urmareste aprovizionarea în conformitate cu programul aprovizionării.

Pe baza facturilor, iar în cazul furnizorilor mari cum sunt Oltchim Rm. Vâlcea și Tuboplast Oradea și a Avizului de însoțire a mărfii se face recepția materiilor și materialelor, transferul acestora făcându-se pe baza Bonului de transfer, în cazul contoarelor de exemplu.

Relatiile cu clienții

Principalii clienți cărora regia le furnizează apa potabilă și industrială precum și cele legate de apele uzuale sunt persoanele fizice care locuiesc în localitățile beneficiare de serviciile Regiei Autonome Apă-Canal Arad, respectiv persoanele juridice din aceleași localități.

În ceea ce privește relațiile cu clienți se impune a menționa modul de desfășurare al acestor relații având în vedere modul specific de desfășurare al lor. Agenții regiei se deplasează pe teren în vederea citirii contoarelor de apă, indicator care se compară cu cel anterior, rezultând o diferență ce reprezintă consumul efectiv de apă potabilă aferent perioadei respective.

După stabilirea consumului de apă, regie emite clientului factura aferentă, menționând binențeles, ca în toate cazurile, termenul de plată, adica termenul de 30 de zile de la eliberarea facturii.Dacă clientul, fie el persoană fizică sau persoană juridică, nu plătește în acest termen se aplică o penalizare asupra sumei datorate, penalizare stabilită de Ministerul Finanțelor la 2% pe fiecare zi de întârziere.

Dacă în termen de 45 de zile nu se achită regiei suma datorată se trece la aplicarea operațiunii de sitare a furnizării apei potabile, urmând apoi debranșarea de la rețea de furnizare a apei potabile.

Plata facturii se face la oficiile de încasare, al persoanelor fizice și al persoanelor juridice, eliberându-se chitanțele aferente.

Relațiile cu clienții incerți

Așa cum am arătat mai sus există și situații când clienții nu plătesc la timp, devenind astfel clienți în categoria clienților incerți.

Astfel, dacă după eliberarea facturii nu s-a achitat datoria față de Regi Autonomă Apă-Canal Arad în termen de 30 de zile, începând cu a 31-a zi se aplică conform Hotărârii Ministerului Finanțelor asupra sumei datorate un procent de penalizare de 2%. Dacă după 45 de zile de la data aplicării penalizării nu s-a achitat suma datorată -adică suma datorată inițial plus suma penalizării- se trece la aplicarea procedurii de sistare a furnizării apei potabile, urmând apoi procedura de debranșare de la rețeaua de furnizare a apei potabile.

În ceea ce privește clienții incerți se observă ca marea lor majoritate sunt din rândul societăților de stat și a instituțiilor bugetare. În continuare vom prezenta cei mai semnificativi clienți din această categorie, menționând că suma datorată de aceștia se apropie de suma de un miliard de lei:

Spitalul Municipal Arad;

S.C. “Astra Trinity” S.A. Arad;

Grupul Școlar “Iuliu Maniu” Arad;

S.C.”Aris” S.A. Arad;

Spitalul Județean Arad;

Renel Arad;

S.C. “Sabina & Co.” S.A. Arad;

Liceul “Dimitrie Țichindeal” Arad;

Grupul Școlar Economic-Administrativ Arad.

Relațiile cu băncile

Băncile cu care colaborează Regia Autonomă Apă-Canal Arad sunt Banca Comercială Română și Banca Română pentru Dezvoltare, relații ce privesc în principal încasarea facturilor clienților și plata furnizorilor.

Pentru efectuarea platilor prin virament intrepriderea intocmește documentele prin care solicita băncii sa vireze o anumită sumă din contul sau in contul firmei beneficiare. Documentul justificativ intocmit de firma este Ordin de plata. În ceea ce privește relația cu Trezoreria Statului se utilizează Ordinul de plată de culoare galben-portocaliu, iar în relațiile cu băncile Ordinul de plată de culoare neagră.

Banca pe baza Ordinului de plata opereaza modificarea in contul firmei virand suma inscrisa in dispozitie in contul societatii beneficiare.

Documentul prin care banca evidentiaza toate miscarile din conturile deschise de catre firme la ea este Extrasul de cont. In Extrasul de cont sunt evidentiate incasarile, platile si soldul la momentul respectiv.

În analiza operațiunilor de incasari si plati trebuie să se țina cont de decalajul existent intre data modificarii in contabilitatea întreprinderii a sumelor înscrise în contul de la banca (data debitării în cazul încasării sau data creditarii in cazul plății) și data modificarii efective de către banca a valorii din cont. În cazul în care operatiunile se desfasoara prin BRD decalajul este mai mare decat în cazul în care operatiunile se deruleaza prin contul de la BCR. Operațiunile prin BRD necesita un volum de timp mai mare, fiind necesare câteva zile, de multe ori și o saptamână până cand suma virată din punct de vedere contabil in contul intreprinderii apare si este la dispoziția firmei ca aceasta să poată să efectueze plați sau sa ridice banii în numerar. De asemenea, între momentul în care întreprinderea dă dispoziție de plată către BRD să efectueze un virament din contul sau și momentul în care banii intra în contul beneficiarului este un decalaj mult mai mare decât dacă operațiunea se derulează prin BCR.

Un alt document folosit în relațiile cu băncile îl reprezintă Cecul de numerar pentru ridicare de la bancă folosit pentru ridicarea salariilor de la bancă. În viitor, mai precis din luma iunie se va renunța la această operațiune odată cu plata salariilor prin intermediul cardurilor, carduri Maestro furnizate de BRD.

1.3.2. Principalele relații cu instituțiile guvernamentale

Relatiile pe care le are intreprinderea cu bugetul statului sunt determinate de necesitatea evidentierii obligatiilor fiscale care decurg din respectarea prevederilor legale in vigoare cu privire la activitatea desfasurata.

Biroul financiar contabil este cel care evidentiaza si urmareste aceste obligatii, inregistrand sistematic si cronologic in contabilitatea intreprinderii toate operatiile generate de derularea activitatii. Pentru stingerea obligațiilor biroul financiar contabil întocmește dispozițiile de plată prin care virează sumele calculate ca obligații în contul bugetului de stat deschis la Trezoreria Municipiului Arad.

Sumele datorate bugetului statului reprezintă:

Impozitul global pe veniturile salariale, reglementat prin O:G. nr.73 din 1999;

Taxa pe valoare adăugată, regelementată prin Ordonanta Guvernului nr. 3 din 1992 privind taxa pe valoarea adaugata cu modificările și completările ulterioare;

Taxe și comisione vamale, reglementate legal prin Legea nr. 141 din 1997 și H.G. nr. 626 din 1997.

În ceea ce privește sumele datorate bugetelor locale, adică al Consiliului municipiului Arad și Consiliile locale ale județului Arad unde regia are sucursale, acestea sunt reprezentate de:

Impozitul pe clădiri, reglementat prin O.G. nr. 24 din 1995 și O.G. nr. 27 din 1996 cu completările ulterioare;

Taxe teren, reglementate prin Legea nr. 27 din 1994 și O.G. nr. 84 din 1997;

Taxe auto, se plătesc în sume fixe trimestrial;

Impozit pe profit, reglementat prin Ordonanța nr. 70 din 1994 completată și modificată prin ordonanța nr. 217 din dec. 1999 cu aplicare din ian. 2000;

Vărsăminte din profitul net.

Sumele datorate Bugetului Asigurărilor Sociale sunt:

CAS calculat asupra fondului de salarii, suportat de unitate;

Contribuția la pensia suplimentară de 5%, suportată de angajați;

Contribuția la fondul de șomaj de 1%, suportată de angajați;

Contribuția la fondul de șomaj de 5%, suportată de unitate.

Sumele dadorate Bugetului Asigurărilor Sociale de Sănătate sunt reprezentate de:

Contribuția angajatorului la BASS de 7%;

Contribuția asiguratului la BASS de 7%.

Alte sume datorate bugetului de stat sunt reprezentate de contribuțiile la fondurile speciale, cum sunt:

Contribuția la Fondul de risc de 3% calculat asupra fondului de salarii;

Contribuția la Fondul de învățământ de 2% calculat asupra fondului de salarii.

Documentul care centralizează obligațiile pe care regia la are față de bugetul statului îl constituie Declaratia privind obligatiile de plata la bugetul de stat(anexa nr.1 – anexa nr.6).

1.4. Studiul structurii organizatorice a unității

1.4.1. Prezentarea organigramei unității

Organigrama unității este prezentată în pagina următoare.

1.5. Analiza funcțională a activității studiate

1.5.1. Prezentarea succintă a funcțiunilor Serviciului resurse umane, administrativ, dispensar

În cadrul Serviciului resurse umane, administrativ, dispensar se realizează în principal următoarele activități:

organizează selecționarea, angajarea și promovarea salariaților potrivit cerințelor reale ale regiei;

asigură evidența personalului, repartizarea și utilizarea judicioasă a acestuia;

întomește programul de pregătire, perfecționare și specializare a forței de muncă pe meserii și specialități și ia măsuri de realizare a acestuia prin formele de pregătire adecvate;

asigură aplicarea prevederilor legale privind salarizarea personalului;

asigură întocmirea dosarelor de pensii ale salariaților, precum și evidența corectă a tuturor datelor necesare stabilirii pensiilor;

participă la elaborarea Contractului colectiv de muncă, a organigramei regiei, a regulamentului de ordine interioară;

stabilește și urmărește încadrarea în fondul de salarii potrivit legislatiei în vigoare;

verificarea lunară a pontajelor și a statelor de plată;

Conform documentului “Atribuțiile unitare ale compartimentelor de muncă” compartimentul personal stabilește și asigură necesarul de personal pe meserii, funcții și specialiști, pentru producția curentă și pentru noile obiective de investiții; urmărește modul de utilizare a personalului de specialitate precum și pentru integrarea în muncă a personalului nou încadrat, ia măsuri pentru repartizarea și utilizarea mai judicioasă a acestuia pe compartimentele de muncă ale regiei, corespunzător sarcinilor acestora; răspunde de activitatea de cunoaștere, apreciere și promovare în muncă a personalului și colaborează cu lucrătorii din alte unități în vederea întocmirii notelor de relații și a referatelor de verificare; stabilește împreună cu secțiile măsuri pentru întărirea stării disciplinare, reducerea fluctuației și stabilității personalului.

În ceea ce privește remunerarea muncii asigură și răspunde de aplicarea strictă a prevederilor legale privind sistemul de remunerare a muncii; stabilește utilizarea programului de muncă redus sau prelungit la unele locuri de muncă; ia măsuri pentru sancționarea drastică a celor care se abat de la prevederile legii; urmărește nivelul de îndeplinire a normelor de muncă pe secții, ateliere, locuri de muncă și propune compartimentului de organizare și protecție a muncii măsuri pentru îmbunătățirea normelor, ia măsuri pentru analizarea indicilor de utilizare a timpului de lucru în scopul asigurării creșterii productivității muncii.

În domeniul social ia măsuri pentru buna desfășurare a acțiunilor cu caracter social; analizează cu secțiile condițiile de muncă, de acordare a asistenței sociale și medico-sanitare și ia măsuri pentru îmbunătățirea acestora, urmărește realizarea contractului colectiv de muncă.

1.5.2. Prezentarea modului de conectare și a relațiilor dintre Serviciul resurse umane, administrativ, dispensar și celelalte compartimente din cadrul unității

Relațiile dintre Serviciul resurse umane, administrativ, dispensar și celelalte compartimente ale regiei sunt constituite în principal de indicații privind aplicarea sistemului de remunerare a muncii, programul de formare și perfecționare a pregătirii profesionale a personalului, precum și de “recepția” aprecierilor și calificativelor anuale ale personalului, propuneri de promovare sau sancționare a personalului, date privind starea disiplinară a personalului, propuneri pentru programul de perfecționare și formare a pregătirii profesionale.

Astfel relațiile constau în transferul de documente și informații privind pontajele, calculul salariilor și contribuțiilor regiei și salariaților la bugetul statului, privind recrutarea și angajarea personalului necesar, privind planificarea concediilor de orice fel, precum și relațiile ce privesc relațiile de negociei a salariilor.

Serviciul resurse umane, administrativ, dispensar prin activitatea pe care o desfășoară intră în legături directe cu toate celelalte compartimente din regie privind relațiile de negociere a salariilor prin intermediul fișierului de personal, de planificare a concediilor prin intermediul notelor de plecare și notelor de concedii.Însă pe lângă aceste relații Serviciul resurse umane, administrativ, dispensar prin activitatea desfășurată intră și în alt gen de relații cu conducerea regiei, cu biroul financiar și cu biroul contabilitate, cu oficiul de calcul și oficiul juridic, compartimentul de protecție a muncii și cu atelierele și secțiile regiei.

Relațiile care se stabilesc intre Serviciul resurse umane, administrativ, dispensar si celelalte compartimente din cadrul regiei sunt prezentate în schema următoare:

Administrator Director General este organul ierarhic superior, relațiile fiind de subordonare și îndeplinire a deciziilor, a sarcinilor și indicațiilor emise prin Dispoziții și de prezentare a rezultatelor activității compartimentului studiat, precum și a propunerilor privind îmbunătățirea activității desfășurate.

Relațiile cu Biroul Financiar privesc verificarea pesoanelor pentru care se plătește contribuția la Fondul de sănătate de 7% în vederea completării documentelor necesare, precum și în vederea verificării cazierului juridic al persoanelor ce au depus dosarul în vederea participării la un concurs pentru ocuparea unui post vacant din cadrul regiei.

Oficiul de calcul furnizeaza Serviciului resurse umane, administrativ, dispensar unele situatii de iesire. Astfel, oficiul de calcul intocmeste si centralizeaza statele de plată, dupa care le trimite la Serviciul resurse umane, administrativ, dispensar care apoi le trimite biroului financiar contabil pentru plata salariilor prin casa.

Oficiul juridic asigură asistență de specialitate în ceea ce privește respectarea legislației în vigoare ce privește munca precum și remunerarea acesteia.

Serviciul resurse umane, administrativ, dispensar prin activitatea pe care o desfășoară intră în legături directe cu toate Secțiile și atelierele din regie privind relațiile de negociere a salariilor prin intermediul fișierului de personal, de planificare a concediilor prin intermediul notelor de plecare și notelor de concedii.

Cu Compartimentul de Protecție a Muncii se colaborează în vederea stabilirii necesarului de cadre și modul de asigurare a acestora, norme și normative de muncă, propuneri de promovare sau sancționare. I se trimite programul de pregătire și prfecționare a cadrelor, date privind unele deficiențe în aplicarea normelor de muncă, instrucțiuni privind aplicarea sistemului de remunerare.

Cu Biroul Contabilitate relații privesc în special operațiunile de înregistrare în contabilitate a operațiunilor ce privesc acordarea și plata salriilor, a contribuțiilor datorate de aceștia și pentru aceștia, asigurându-se acestuia pontajele și statele de salarii.

1.5.3. Actele normative în vigoare ce reglementează activitatea de evidență a personalului

Principalul act normativ care reglementează activitatea ce privește personalul îl constituie Codul Muncii.Nu trebuie omise însă și reglementările internaționale, dintre care cele mai importante fiind Declarația Universală a Drepturilor Omului, adoptată de Adunarea Generală a Organizației Națiunilor Unite la 10 decembrie 1948.

O altă reglementare internațională o constituie Convenția pentru apărarea drepturilor omului și a libertăților fundamentale, amendată prin Protocoalele nr. 3, 5 și 8 și completată prin Protocolul nr. 2 (ratificată prin Legea numărul 30 din 1994).

Alte reglementări internaționale ce privesc acestă sferă sunt Convențiile organizației Internaționale a Muncii (începând cu anul 1919 și până în prezent).În ceea ce privește aceste reglementări internaționale Constituția României prevede la art. 11 alin. 2 : “Tratatele ratificate de Parlament, potrivit legii, fac parte din dreptul intern”.

În ceea ce privește Constituția României, acesta reglementează și ea dreptul la muncă precum și relațiile de munca ce se nasc din exercitarea acestui drept.

Prinipalul act normativ îl constituie Codul Muncii. A fost adoptat la 23 nioembrie 1972 și a intrat în vigoare la 1 martie 1973 fiind legea de bază referitoare la regimul juridic al salariaților. Codul Muncii reprezintă legea de bază în materiile încheierii, executării, modificării și încetării contractului individual de muncă, a răspunderii disciplinare și materiale a salariaților, precum și a jurisdicției muncii. Tot prin Codul Muncii tuturor cetățenilor români le este garantat dreptul la muncă (art. 2), fiind stabilite drepturile și obligațiile muncitorilor (art. 19 și art. 20 alin. 2).

Art. 64 din prezentul act legislativ reglementează încadrarea în muncă : ”Încadrarea în muncă se realizează prin încheierea unui contract individual de muncă.”. Privitor la asigurările sociale perecum și a modului de realizare a lor acestea sunt reglementate în art. 145.Condițiile ce privesc desfacerea contractelor de muncă sunt reglementate în articolul 146.

În prezent actul normativ ce reglementează sistemul asigurărilor sociale îl constituie Legea numărul 19 din 17 martie 2000 privind sistemul public de pensii și alte drepturi de asigurări sociale, publicată în Monitorul Oficial nr. 140 din 1 aprilie 2000, modificată și completată prin Ordonanța de Urgență a Guvernului numărul 41 din 27 aprilie 2000, O.U.G. numărul 294 din 30 decembrie 2000 și O.U.G. numărul 49 din 29 martie 2001. Conform art. 4 persoanele fizice asigurate, denumite asigurați “au obligația să platească contribuții de asigurări sociale și au dreptul să beneficieze prestații de asigurări sociale, comform prezentei legi”.

Art. 18 Contribuția la asigurări sociale este suportată atât de asigurați cât și de angajatori astfel: contribuția individuală de asigurări sociale datorată de asigurații care au și calitatea de angajați reprezintă 1/3 din cota de contribuții de asigurări sociale stabilită annual pentru condiții normale de lucru; diferența fiin suportată de angajatori.

Art. 23 Baza de calcul este și ea diferențaită pe cele două categorii de contribuabili. În cazul asiguraților ea este reprezentată de salarul individual brut inclusiv adaosurile reglementate prin lege, iar pentru angajatori baza de calcul o constituie fondul total de salarii brute realizate de asigurați și veniturile brute lunare realizate de aceștia.

Un act important îl constituie Contractul colectiv de muncă, încheiat în temeiul legii nr. 15/1990 și 130/1996, încheiat pe o perioadă de un an.El asigură garanții minime în vederea încheierii contractului individual de muncă.El are drept scop stabilirea drepturilor garantate și obligațiile salariaților și cele ale regiei cu privire la1:

contractul individual de muncă,

condiții de mună și protecția muncii,

salarizarea și alte drepturi bănești,

timpul de muncă și odihnă,

alte măsuri de protecție și facilități acordate salariaților,

formarea profesională,

alte prevederi în legătură cu drepturile și obligațiile părților.

1.6. Analiza documentelor sau a altor surse informaționale privind evidența personalului

1.6.1. Inventarul documentelor și a altor surse informaționale

Inventarul documentelor cuprinde documentale care sunt utilizate in activitatea de evidenta a personalului.Inventarul documentelor este prezentat in pagina urmatoare.

INVENTARUL DOCUMENTELOR

privind activitatea de evidență a personalului la

Regia Autonomă Apă-Canal Arad

1.6.2. FIȘA DE ANALIZĂ A DOCUMENTELOR

FIȘA DE ANALIZĂ A DOCUMENTELOR

privind activitatea de evidență a personalului la

Regia Autonomă Apă-Canal Arad

1.6.3. Reprezentarea fluxului informațional al activității de evidență a personalului

Analiza fluxurilor si circuitelor informaționale se realizeaza cu ajutorul reprezentarilor grafice si a descrierii acestor reprezentări. Cea mai utilizata metoda de reprezentare a fluxurilor este metoda FLOW CHART.

FLOW CHART este un grafic operațional reprezentand fluxul continuu de operații ce se executa asupra documentelor pas cu pas. În literatura de specialitate e cunoscută sub denumirea de “organigrama de flux”. Simbolurile folosite au fost elaborate de ASME si au fost preluate din studiul muncii.

Principalele simboluri sunt:

Document

Creare (generare) document nou

operație productiva

operație neproductiva

operație de calcul

avizare document

verificare document

staționare document

arhivare document

transport document

linii de influiență a unui document

FLOW CHART-ul va fi anexat dupa paragraful 1.7.

1.6.4. Descrierea fluxului de operații privind documentele și alte surse informaționale analizate

După generarea și completarea parțială a Fișei de control medical la încadrarea în muncă, aceasta este înmânată salariatului care va proceda la efectuarea tuturor analizelor solicitate de înreprindere.După reîntoarcerea la Serviciul resurse umane a fișei de control medical la încadrarea în muncă se va trece la verificarea cunoștiințelor de specialitate atât teoretice cât și practice completându-se în acest sens Procesul verbal.Fișa de control medical la încadrarea în muncă se va arhiva la cabinetul medical al regiei.

Dacă rezultatele testului sunt satisfăcătoare pentru regie se va proceda la angajarea persoanei respective prin întocmirea Contractului de muncă sau Convenției civile de prestări servicii, în două exemplare unul se va înmâna salariatului iar altul se va arhiva la Serviciul resurse umane.Tot la încadrarea în muncă în cadrul regiei și la întocmirea contractului de muncă sau a convenției civile de prestări servicii se poate ajunge și ca urmare a transferului persoanei respective pe baza Cererii de transfer.

Cererea de transfer este întocmită de regiei catre o altă întreprindere care pe baza acestei cereri va întocmi Răspunsul la cererea de transfer. Cererea de transfer și răspunsul la cererea de transfer se întocmesc în două exemplare, în primul caz unul fiind trimis întreprinderii respective iar celălalt arhivându-se în cadrul serviciului resurse umane.

Tot ca urmare a cererii de transfer se poate ajunge însă la situația desfacerii contractului de muncă (pe baza Dispoziției de desfacere a contractului de muncă) ca urmare a transferului.În această situație lucrurile se inversează în sensul că regia va întocmi răspunsul la cererea de transfer iar cealaltă întreprindere va întocmi acum cererea de transfer.În ceea ce privește dispoziția de desfacere a contractului de muncă aceasta se întocmește în trei exemplare, unul rămânând în cadrul serviciului de resurse umane, unul fiind înmânat salariatului iar cel de-al treilea fiind trimis , dacă este cazul celeilalte întreprinderi.Înanitea desfacerii efective a contratului de muncă se va întocmi Nota de lichidare, în două exemplare unul fiind înmânat salariatului iar celălalt exemplar rămânând în cadrul serviciului de resurse umane.

1.7. Prezentarea critică a sistemului informațional existent

Disfuncționalități existente:

Analiza situației existente în Regia Autonomă Apă-Canal Arad conduce la următoarele concluzii:

existența unor informații separate;

unitatea este parțial informatizată, fluxul informațional se desfășoară greoi;

timpul de răspuns la cerințele personalului de conducere este destul de lung;

majoritatea informațiilor ajung la managerii unității pe suport de hârtie;

lipsa legăturilor informaționale între funcții;

lipsa sistemelor informatice în domeniul operațional tehnic;majoritatea datelor în acest sistem se pelucrează pe calculatoarecare nu sunt legate în rețea sau se prelucrează manual (cea mai mare parte);

existența unor dezvoltări nespecifice.

Punctele tari ale sistemului informațional existent pot fi considerate ca fiind, în primul rând tehnologia informațională existentă care este performantă precum și existența legăturii, a conectării la rețeaua INTERNET, legătură de tip Dial-up.

Capitolul II. PROIECTAREA GENERALĂ A SISTEMULUI INFORMATIC

2.1. Definirea obiectivelor sistemului informatic propus

Obiective generale

Impactul noilor tehnologii informaționale și curentul descentralizarii și reorganizarii au determinat cresterea cererii de informații furnizate de sistemul informațional la nivelul oricărei întreprinderi.

Sistemul informațional trebuie să fie un ansamblu de instrumente care oferă acces direct la informații relevante, într-o interfață prietenoasă, usor de explorat. Relevanța informatiilor reunește caracteristicile oportunitate, corectitudine si utilitate, iar interfața unui astfel de sistem trebuie să raspundă cerințelor unor utilizatori care au putin timp, puțina experiență si deprinderi limitate in utilizarea calculatorului.

Scopul sistemului informațional este de a oferi acces facil si rapid la informațiile despre factorii cheie, decisivi in atingerea obiectivelor generale ale întreprinderii.

Adoptarea unui sistem informațional este impusă de anumite cerințe care apar la nivelul oricărei întreprinderi. O prima necesitate este informarea managerilor si a personalului operativ cu privire la activitățile si procesele economice, in speță despre activitatea de evidenta a personalului, din cadrul intreprinderii. O alta necesitate este asigurarea accesului oportun la informații. Celel mai multe din informațiile oferite de sistemul informațional pot fi obținute si prin metode traditionale. Cu toate acestea, timpul si resursele cerute pentru compilarea manuală sau semimanuală a informațiilor, intr-o multitudine de formate, pentru a asigura conținutul informațional si a le conferi forma cerută de utilizator sunt cel mai adesea o barieră în calea obținerii informațiilor. Sau daca informatiile sunt in cele din urma obtinute, la momentul respectiv ele nu mai valorează tot atât cât la momentul anterior când ar fi fost absolut necesare.

2.1.2. Obiective specifice

Această categorie de obiective urmaresc rezolvarea unor probleme dependente strict de activitatea de bază si de cea auxiliară. Astfel pot fi identificate:

obiective specifice activității de bază;

obiective specifice activității auxiliare.

Obiectivele specifice sistemului informatic de evidență a personalului referitoare la activitatea desfașurată în cadrul Regiei Autonome Apă – Canal Arad au în vedere culegerea datelor de intrare și prelucrarea acestora pentru obținerea situațiilor de ieșire. Astfel se urmărește :

îtocmirea situațiilor privind personalul existent pe secții și compartimente;

întocmirea situațiilor ce privesc nevoia de personal, determinată atât de pensionarea personalului existent cît și de necesitățile interne ale regiei;

întocmirea unor situații ce privesc evidența personalului pe funcții în cadrul regiei;

întocmirea unor situații ce privesc evidența personalului pe calificări în cadrul regiei;

întocmirea unor evidențe cerute de conducerea operativă a regiei.

Datele trebuie culese in procesele curente ale întreprinderii și subordonate la obiectivele generale ale întreprinderii. Informațiile trebuie să poată fi furnizate tuturor potențialilor utilizatori și actualizate simultan cu modificarea cerințelor informaționale ale întreprinderii.

Proiectarea situațiilor de ieșire

Situațiile de ieșire care se vor obține prin sistemul informatic referitoare la activitatea de evidență a personalului în cadrul Regiei Autonome Apă – Canal Arad sunt:

– S1 – Situația salariaților din cadrul unui compartiment;

S2 – Situația salariaților pe funcții;

S3 – Situația salariaților pe pregătiri profesionale;

S4 – Situația salariatului X;

S5 – Situația salariaților ce se vor pensiona în anul următor.

S1 – Situația salariaților din cadrul unui compartiment

Loc de obținere: Serviciul Resurse Umane

Destinația : Serviciul Resurse Umane

Număr de exemplare: 1

Frecvența: de câte ori este nevoie

Dispozitiv sau periferic de ieșire:

S2 – Situația salariaților având funcția de Funcție X(15)

Loc de obținere: Serviciul Resurse Umane

Destinația : Serviciul Resurse Umane

Număr de exemplare: 1

Frecvența: de câte ori este nevoie

Dispozitiv sau periferic de ieșire:

S3 – Situația salariaților având pregătirea profesională Pregătirea profesională X(40)

Loc de obținere: Serviciul Resurse Umane

Destinația : Serviciul Resurse Umane

Număr de exemplare: 1

Frecvența: de câte ori este nevoie

Dispozitiv sau periferic de ieșire:

S4 – Situația salariatului Nume și prenume X(40)

Loc de obținere: Serviciul Resurse Umane

Destinația : Serviciul Resurse Umane

Număr de exemplare: 1

Frecvența: de câte ori este nevoie

Dispozitiv sau periferic de ieșire:

S5 – Situația salariaților ce se vor pensiona în anul următor

Loc de obținere: Serviciul Resurse Umane

Destinația : Serviciul Resurse Umane

Număr de exemplare: 1

Frecvența: anual

Dispozitiv sau periferic de ieșire:

S6 – Situația salariaților angajați pe bază de Act_a X(40)

Loc de obținere: Serviciul Resurse Umane

Destinația : Serviciul Resurse Umane

Număr de exemplare: 1

Frecvența: de câte ori este nevoie

Dispozitiv sau periferic de ieșire:

2.3. Formalizarea documentelor de intrare

Documentele de intrare vor fi anexate după pagina următoare în original.

2.4. Proiectarea bazei informaționale

2.4.1. Determinarea conținutului bazei informaționale

Determinarea conținutului bazei informaționale a activității de evidență a personalului, are loc prin structurarea informațiilor și datelor din documentele de intrare, respectiv situațiile de ieșire, sub forma unui tabel (tabelul 2.1).

Informațiile suplimentare, de natură temporară, care sunt utilizate pentru determinarea unor alte informații (de intrare sau de ieșire) sunt marcate în tabelul 2.1

Totalitatea acestor date care compun baza informaționala sunt denumite atributele bazei informaționale.

Atributele a căror conținut este determinat printr-o relație de calcul între alte atribute vor fi marcate în tabelul 2.1 și apoi detaliate în secțiunea 2.4.3.

Tabelul2.1. va fi prezentat în pagina următoare.

Tabelul 2.1. Conținutul bazei informaționale

2.4.2. Definirea entităților bazei informaționale și a relațiilor dintre acestea

Atributele din cadrul bazei informaționale vor fi structurate sub forma unor entități.

Denumirea acestor entități și structura lor este prezentata în tabelul 2.2, respectiv în tabelul 2.3.

Tabelul 2.2. Entitățile bazei informaționale

Tabelul 2.3

2.4.3. Codificarea atributelor bazei informaționale și definirea relațiilor dintre atribute

Simbolizarea atributelor

Presupune stabilirea pentru fiecare atribut al bazei informaționale a unui simbol. Simbolurile utilizate pentru codificarea atributelor sunt prezentate în tabelul 2.4.

Tabelul 2.4.

Descrierea atributelor obținute prin calcul

Tabelul 2.5

2.5. Reproiectarea și adaptarea documentelor de intrare

În condițiile prelucrării atuomate a datelor apare în anumite situații necesitatea reproiectarii documentelor de intrare. În acest sens in funcție de necesitatile viitoare alesistemului informatic si de specificul activitatii , documentele de intrare pot sa sufere modificari de formă și continut cum ar fi : concatenarea mai multor câmpuri, eliminarea unor câmpuri, refacera pozitiei unor campuri din document.

Documentele de intrare folosite pentru personalului sunt contract de muncă, convenție de prestări servicii, fișă de control medical, proces verbal, cerere de transfer, răspuns la cerere de transferdispoziție de desfacere a contractului de muncă, notă de lichidare . Analizând datele conținute în aceste documente și având în vedere necesitățile informaționale ale întreprinderii se observă că documentele corespund sub aspectul formei și conținutului cerințelor prelucrării automate a datelor și cerințelor informaționale ale firmei, nefiind necesară adaptarea, respectiv reproiectarea lor.

2.6. Structurarea sistemului și determinarea unităților funcționale

Din analiza sistemului informațional privind evidența personalului se observă că sistemul formează un tot unitar nefiind necesară (și nici posibilă) împărțirea lui în subsisteme.

Sistemul proiectat funcționează ca o singură unitate functională fiind alcătuit dintr-un grup omogen și specific de prelucrări, care sunt dependente funcțional și care constituie un subsistem al sistemului informatic implementat la nivelul întregii activități a întreprinderii.

Unitatea funcțională a sistemului proiectat o reprezintă : evidența personalului.

Capitolul III. PROIECTAREA DE DETALIU A SISTEMULUI INFOMATIC

3.1. Proiectarea structurii bazei de date

3.1.1. Proiectarea fișierelor permanente

Fișierele permanente sunt fișierele care corespund entităților care nu-și schimbă caracteristicile o perioada lungă de timp, conținând atribute care nu se modifică o perioadă mai mare de timp comparativ cu celelalte fișiere.

În cadrul sistemului proiectat avem două fișiere permanente care conțin informatii referitoare la datele de identificare ale firmei și informații referitoare la datele de identificare ale angajaților. Aceste fișiere se numesc FIRMA.MDB și INTR.MDB, iar câmpurile conținute de ele sunt următoarele:

FIRMA.MDB

INTR.MDB

3.1.2 Proiectarea fisierelor variabile

Fișierele variabile corespund entităților care reflectă dinamica fenomenelor și proceselor economice. Câmpurile conținute de fișierele variabile se modifică frecvent datorită mișcărilor care au loc în cadrul activității firmei.

Pentru evidența personalului nu vom avea fișiere variabile.

3.2. Proiectarea prelucrărilor specifice unităților funcționale

3.2.1 Stabilirea ordinii de prelucrare a fișierelor

Restricțiile de integritate dintre fișiere solicită o anumită ordine de prelucrare a acestora astfel încât crearea sau activarea unui fișier să se facă numai după ce s-a efectuat activarea tuturor fișierelor de care acesta depinde.

În sistemul proiectat prima dată se încarcă fișierul firma.mdb care conține informații despre datele de identificare ale firmei.

Pe baza documentelor de intrare(contract de muncă, convenție civilă de prestări servicii, fișă de control medical, proces verbal, cerere de transfer, răspuns la cerere de transfer, dispoziție de desfacere a contractului de muncă, notă de lichidare) se încarcă fișierul intr.mdb. Din cele două fișiere se preiau câmpurile necesare pentru afișarea situațiilor de ieșire.

Pentru evidența personalului ordinea de prelucrare a fișierelor este prezentată grafic astfel:

Documente de

intrare

3.2.2.Determinarea unităților de prelucrare

Unitatea funcțională se poate împărți în mai multe unități de prelucrare pentru facilitarea etapei de programare informatică.

Unitățile de prelucrare ale sistemului informatic proiectat sunt:

UP1 – Introducere date

UP2 – Afișare situații de ieșire

UP3- Date firmă

UP1 – Introducere date – prin această unitate de prelucrare se urmarește introducerea datelor de intrare din documentele primare – contract de muncă, convenție civilă de prestări servicii, fișă de control medical, proces verbal, cerere de transfer, răspuns la cerere de transfer, dispoziție de desfacere a contractului de muncă, notă de lichidare. Aceste date sunt înregistrate în fișierele bazei de date și transformate în informații relevante și necesare în activitatea de evidență a personalului.UP1 este divizată în trei module :

– M1 – Date angajat nou

– M2 – Modificare date

– M3 – Ștergere angajat

UP2 – Afișare situații- acestă unitate de prelucrare determină pe baza datelor introduse prin celelalte unități de prelucrare informațiile de ieșire necesare desfașurării activității firmei și le prezinta sub forma situațiilor de ieșire.

Modulele conținute sunt :

– M1 – Situație compartiment

– M2 – Situația pe funcții

– M3 – Situația pregătirii profesionale

– M4 – Date salariat

– M5 – Situație contracte

– M6 – Situație viitori pensionari

UP3 – Date firmă- prin această unitate de prelucrare se efectuează înregistrările privind datele de identificare ale firmei. Modulele conținute de această unitate sunt :

– M1- Introduceți firma

3.3.Proiectarea dialogului cu unitățile de prelucrare

Sistemul informațional trebuie să fie un ansamblu de instrumente care oferă acces direct la informații relevante, într-o interfață prietenoasă, ușor de explorat. Relevanța informațiilor reunește caracteristicile de oportunitate, corectitudine și utilitate, iar interfața unui astfel de sistem trebuie să raspundă cerințelor tuturor utilizatorilor.

Bara de meniu a programului de evidență a personalului va avea următoarele opțiuni:

Prin acționarea opțiunii “Introducere date” utilizatorul va putea alege conform necesităților opțiunea ce privește introducerea unui nou angajat, sau pentru a modifica datele existente în baza de date despre un angajat al firmei sale, sau pentru ștergerea unui angajat din baza de date în cazul părăsirii de către acesta a firmei prin mijloacele existente.

Macheta de culegere a datelor de la opțiunea “Date angajat nou ” este prezentată în pagina următoare.

Macheta de culegere a datelor – Date angajat nou

Nume și prenume___________________________ Număr matricol_________

Data nașterii____________________ Sex___

Adresa

Strada_________________________ Localitatea__________________

Numărul_______ Ap.______ Județul_____________________

Stare civilă_____________________ Copii______

Angajat cu_____________________ Pregătire profesională_________________

Data angajării___________________

Compartiment________________________ Funția_____________________

Salar brut_________________ Norma_______________ Grupa__

Macheta de înregistrare pentru Modificarea date angajat este următoarea:

INTRODUCEȚI NUMELE ȘI PRENUMELE ANGAJATULUI PENTRU MODIFICAREA DATELOR

Macheta de înregistrare pentru Ștergere angajat

INTRODUCEȚI NUMELE ȘI PRENUMELE ANGAJATULUI CE DORIȚI SĂ-L ȘTERGEȚI

Afișarea situațiilor de ieșire se va face prin alegerea situației dorite din meniul “Afișare situații”. Situațiile de ieșire care se pot vizualiza sunt: Situație compartiment, Situația pe funcții, Situația pregătirii profesionale, Date salariat, Situație contracte, Situație viitori pensionari.

Prin alegerea opțiunii „Date firmă”, utilizatorul prin submeniul „Introduceți firma” , utilizatorul va putea sa introduca noile date de identificare ale firmei în cazul modificării unor date de identificare sau chiar ăn cazul modificării firmei.Macheta de culegere a datelor despre firmă este prezentată mai jos.

Macheta de înregistrare pentru „Introduceți firma”

Denumire unitate______________________________________________________

Sediul unității

Strada___________________________ Localitatea__________________

Numărul_______ Județul_____________________

Număr telefon__________________________

Cont bancar____________________________

Banca__________________________________________________

3.4. Proiectarea prelucrarilor specifice unitatilor de prelucrare

3.4.1 Determinarea modulelor de prelucrare

După determinarea unităților de prelucrare necesare unității funcționale este necesară transpunerea sub forma informatică a intrărilor, prelucrărilor și ieșirilor din sistem prin intermediul programului. Soft-ul respectiv are două componente de bază, și anume:

-instrucțiunile

-modulele

Instrucțiunile sunt operațiuni elementare executate de calculator pentru atingerea obiectivelor funcțiilor de prelucrare. Intrucțiunile constituie cel mai de jos nivel al operațiunilor ce pot fi executate de un limbaj de programare.

Modulele presupun descompunerea programului din faza de proiectare pentru a fi mai ușor de construit și de înteles.

Modulele de prelucrare utilizate sunt:

UP1 – Introducere date:

– M1 – Date angajat nou, prezintă macheta de culegere a datelor deaspre noul angajat introdus în baza de date;

– M2 – Modificare date, prezintă macheta de selecționare a angajatului pentru care se dorește modificarea datelor;

– M3 – Ștergere angajat, prezintă macheta de selecționare a angajatului care va fi șters din cadrul bazei de date.

UP2 – Afișare situații:

– M1 – Situație compartiment, afișează pe baza datelor introduse prin unitatea de prelucrări “Introducere date” situația angajaților din cadrul unui compartiment;

– M2 – Situația pe funcții, afișează pe baza datelor introduse prin unitatea de prelucrări “Introducere date” situația angajașilor încadrați pe o anumită funcție;

– M3 – Situația pregătirii profesionale, afișează pe baza datelor introduse prin unitatea de prelucrări “Introducere date” situația angajaților ce au o anumită pregătire profesională;

– M4 – Date salariat, afișează pe baza datelor introduse prin unitatea de prelucrări “Introducere date” datele unui anumit salariat;

– M5 – Situație contracte, afișează pe baza datelor introduse prin unitatea de prelucrări “Introducere date” situația angajaților angajați cu contract de muncă sau cu convenție de prestări servicii;

– M6 – Situație viitori pensionari, afișează pe baza datelor introduse prin unitatea de prelucrări “Introducere date” situația angajaților cese vor pensiona în anul următor.

UP3 – Date firmă

– M1- Introduceți firma, prezintă macheta de culegere a datelor de identificare a întreprinderii respective.

Grafic modulele de prelucrare sunt prezentate în schemele următoare.

UP1

M1 M2 M3

UP2

M1

UP3

M1 M2 M3 M4 M5 M6

3.4.2. Organigrama de sistem a unităților de prelucrare

Documente de intrare

UF: Evidența personalului

UP1 UP2 UP3

Introducere date Afișare situații Date firmă

Situație Situația Situația Date Situație Situație

Compartiment pe funcții pregătirii salariat contracte viitori

Profesionale pensionari

Pe baza documentelor de intrare care sunt: contractul de muncă, convenția civilă de prestări servicii, fișa medicală, procesul-verbal, cererea de transfer, răspunsul la cererea de transfer, dispoziția de lichidare și nota de lichidare unitatea funcțională “Evidența personalului” prin intermediul machetelor de culegere a datelor prezentate prin modulele unității de prelucrare “Introducere date” înregistrează în fișierul INTR.MDB datele necesare evidenței. Aceste date sunt prelucrate de modulele unitțăii de prelucrare “Afișarea situații” și întocmite și afișate situațiile de ieșire.

Datele culese de unitatea de prelucrare “Date firmă ” prin modulul “Introduceți firma” sunt înregistrate în fișierul FIRMA.MDB și împreuna cu datele din fișierul INTR.MDB sunt prelucrate de unitatea de prelucrare “Afișare situații” și sunt obținute situațiile de ieșire amintite mai sus.

4. PREZENTAREA PROGRAMULUI INFORMATIC

4.1. Prezentarea interfeței utilizator

Opțiunea “Introducere date”

Opțiunea “Date angajat nou”

Opțiunea “Înregistrează”

Opțiunea “Sterge”

Opțiune “Modificare date angajat”

Opțiunea “Ștergere angajat”

Opțiunea “Afișare situații”

Opțiunea „Situație compartiment”

Opțiunea „Situația pe funcții”

Opțiunea „Situația pregătirii profesionale”

Opțiunea „Date salariat”

Opțiunea „Situație contracte"

Opțiunea “Date firmă”

Opțiunea “Introduceți firma”

Opțiunea “Exit”

4.2. Prezentarea situațiilor de ieșire

4.3. Prezentarea programului sursă

'Incarcarea formei "Evidenta personal" cu datele de identificare ale firmei

Private Sub Form_Load()

Label1.Caption = Form7.Data1.Recordset("UNIT")

Label3.Caption = Form7.Data1.Recordset("SF")

Label5.Caption = Form7.Data1.Recordset("NF")

Label9.Caption = Form7.Data1.Recordset("OF")

Label7.Caption = Form7.Data1.Recordset("JF")

Label11.Caption = Form7.Data1.Recordset("NRTEL")

End Sub

'Activarea optiunii "Introducere date"

Private Sub Ang_nou_Click()

'Afisarea ferestrei pentru introducerea datelor noului angajat

Form2.Show

End Sub

'Activarea optiunii "Exit"

Private Sub exit_Click()

End

End Sub

'Activarea optiunii "Introduceti firma"

Private Sub Intrf_Click()

Form7.Show

End Sub

'Activarea optiunii "Modificare date angajat"

Private Sub modif_Click()

Form5.Show

End Sub

'Activarea optiunii "Stergere angajat"

Private Sub sterge_Click()

Form6.Show

End Sub

Activarea optiunii „Afisare situati”

Private Sub Command1_Click()

A = Text1.Text

Hide

Form13.Data1.RecordSource = "select*from INTR where COMP='" + A + "'"

Form13.Data1.Refresh

Form13.DBGrid1.ReBind

DataReport1.Show

Text1.Text = ""

End Sub

Private Sub Command1_Click()

A = Text1.Text

Hide

Form13.Data1.RecordSource = "select*from INTR where FUNCTIA='" + A + "'"

Form13.Data1.Refresh

Form13.DBGrid1.ReBind

DataReport2.Show

Text1.Text = ""

End Sub

Private Sub Command1_Click()

A = Text1.Text

Hide

Form13.Data1.RecordSource = "select*from INTR where PPROF='" + A + "'"

Form13.Data1.Refresh

Form13.DBGrid1.ReBind

DataReport3.Show

Text1.Text = ""

End Sub

Private Sub Command1_Click()

A = Text1.Text

Hide

Form13.Data1.RecordSource = "select*from INTR where NUME_A='" + A + "'"

Form13.Data1.Refresh

Form13.DBGrid1.ReBind

DataReport4.Show

Text1.Text = ""

End Sub

Private Sub Command1_Click()

A = Combo1.Text

Hide

Form13.Data1.RecordSource = "select*from INTR where ACT_A='" + A + "'"

Form13.Data1.Refresh

Form13.DBGrid1.ReBind

DataReport5.Show

Text1.Text = ""

End Sub

Forma " Date angajat nou"

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text12.SetFocus

End If

End Sub

Private Sub Combo2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Combo3.SetFocus

End If

End Sub

Private Sub Combo4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text15.SetFocus

End If

End Sub

'Activarea butonului "Inregistreaza"

Private Sub Command1_Click()

Form4.Show

End Sub

'Activarea butonului "Sterge"

Private Sub Command2_Click()

Form3.Show

End Sub

'Activarea butonului "Iesire"

Private Sub Command3_Click()

Form2.Hide

Form1.Show

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text14.SetFocus

End If

End Sub

Private Sub Text11_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Combo2.SetFocus

End If

End Sub

Private Sub Text12_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text10.SetFocus

End If

End Sub

Private Sub Text13_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text11.SetFocus

End If

End Sub

Private Sub Text14_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text13.SetFocus

End If

End Sub

Private Sub Text15_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Combo1.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text7.SetFocus

End If

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

End If

End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text9.SetFocus

End If

End Sub

Private Sub Text9_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Combo4.SetFocus

End If

End Sub

'Forma "Atentie"

Private Sub Command1_Click()

Hide

Form2.Text1.Text = ""

Form2.Text2.Text = ""

Form2.Text3.Text = ""

Form2.Text4.Text = ""

Form2.Text5.Text = ""

Form2.Text6.Text = ""

Form2.Text7.Text = ""

Form2.Text8.Text = ""

Form2.Text9.Text = ""

Form2.Text10.Text = ""

Form2.Text11.Text = ""

Form2.Text12.Text = ""

Form2.Text13.Text = ""

Form2.Text14.Text = ""

Form2.Text15.Text = ""

Form2.Combo1.Text = ""

Form2.Combo2.Text = ""

Form2.Combo3.Text = ""

Form2.Combo4.Text = ""

End Sub

Private Sub Command2_Click()

Hide

End Sub

'Forma "Inregistrati"

Private Sub Command1_Click()

Hide

With Data1

.Recordset.AddNew

.Recordset("NUME_A") = UCase(Text1.Text)

.Recordset("NRMATR") = Val(Text2.Text)

.Recordset("DATAN_A") = CDate(Format(Text3.Text, "dd/mm/yyyy"))

.Recordset("SEX") = UCase(Text4.Text)

.Recordset("SA") = UCase(Text5.Text)

.Recordset("NA") = Val(Text6.Text)

.Recordset("AA") = Val(Text7.Text)

.Recordset("OA") = UCase(Text8.Text)

.Recordset("JA") = UCase(Text9.Text)

.Recordset("STCIV") = UCase(Combo4.Text)

.Recordset("COPII") = Val(Text15.Text)

.Recordset("ACT_A") = UCase(Combo1.Text)

.Recordset("PPROF") = UCase(Text12.Text)

.Recordset("DATAI") = CDate(Format(Text10.Text, "dd/mm/yyyy"))

.Recordset("COMP") = UCase(Text14.Text)

.Recordset("FUNCTIE") = UCase(Text13.Text)

.Recordset("SALARB") = Val(Text11.Text)

.Recordset("NORMA") = UCase(Combo2.Text)

.Recordset("GRUPAM") = Val(Combo3.Text)

.Recordset.Update

End With

Form2.Text1.Text = ""

Form2.Text2.Text = ""

Form2.Text3.Text = ""

Form2.Text4.Text = ""

Form2.Text5.Text = ""

Form2.Text6.Text = ""

Form2.Text7.Text = ""

Form2.Text8.Text = ""

Form2.Text9.Text = ""

Form2.Text10.Text = ""

Form2.Text11.Text = ""

Form2.Text12.Text = ""

Form2.Text13.Text = ""

Form2.Text14.Text = ""

Form2.Text15.Text = ""

Form2.Combo1.Text = ""

Form2.Combo2.Text = ""

Form2.Combo3.Text = ""

Form2.Combo4.Text = ""

DBGrid1.ReBind

End Sub

Private Sub Command2_Click()

Hide

End Sub

'Forma "Cauta"

Private Sub Command1_Click()

Hide

End Sub

Private Sub Command2_Click()

Hide

Form8.Show

Form8.Data1.RecordSource = "select*from INTR where NUME_A=" + Form5.Text1.Text + ""

Form8.Data1.Refresh

Form8.DBGrid1.ReBind

Form8.Text1.Text = Form8.Data1.Recordset("NUME_A")

Form8.Text2.Text = Form8.Data1.Recordset("NRMATR")

Form8.Text3.Text = Form8.Data1.Recordset("DATAN_A")

Form8.Text4.Text = Form8.Data1.Recordset("SEX")

Form8.Text5.Text = Form8.Data1.Recordset("SA")

Form8.Text6.Text = Form8.Data1.Recordset("NA")

Form8.Text7.Text = Form8.Data1.Recordset("AA")

Form8.Text8.Text = Form8.Data1.Recordset("OA")

Form8.Text9.Text = Form8.Data1.Recordset("JA")

Form8.Combo4.Text = Form8.Data1.Recordset("STCIV")

Form8.Text15.Text = Form8.Data1.Recordset("COPII")

Form8.Combo1.Text = Form8.Data1.Recordset("ACT_A")

Form8.Text12.Text = Form8.Data1.Recordset("PPROF")

Form8.Text10.Text = Form8.Data1.Recordset("DATAI")

Form8.Text14.Text = Form8.Data1.Recordset("COMP")

Form8.Text13.Text = Form8.Data1.Recordset("FUNCTIE")

Form8.Text11.Text = Form8.Data1.Recordset("SALARB")

Form8.Combo2.Text = Form8.Data1.Recordset("NORMA")

Form8.Combo3.Text = Form8.Data1.Recordset("GRUPAM")

Text1.Text = ""

End Sub

'Forma "Sterge"

Private Sub Command1_Click()

Hide

Form9.Show

Form9.Data1.RecordSource = "select*from INTR where NUME_A=" + Form6.Text1.Text + ""

Form9.Data1.Refresh

Form9.DBGrid1.ReBind

Form9.Text1.Text = Form9.Data1.Recordset("NUME_A")

Form9.Text2.Text = Form9.Data1.Recordset("NRMATR")

Form9.Text3.Text = Form9.Data1.Recordset("DATAN_A")

Form9.Text4.Text = Form9.Data1.Recordset("SEX")

Form9.Text5.Text = Form9.Data1.Recordset("SA")

Form9.Text6.Text = Form9.Data1.Recordset("NA")

Form9.Text7.Text = Form9.Data1.Recordset("AA")

Form9.Text8.Text = Form9.Data1.Recordset("OA")

Form9.Text9.Text = Form9.Data1.Recordset("JA")

Form9.Combo4.Text = Form9.Data1.Recordset("STCIV")

Form9.Text15.Text = Form9.Data1.Recordset("COPII")

Form9.Combo1.Text = Form9.Data1.Recordset("ACT_A")

Form9.Text12.Text = Form9.Data1.Recordset("PPROF")

Form9.Text10.Text = Form9.Data1.Recordset("DATAI")

Form9.Text14.Text = Form9.Data1.Recordset("COMP")

Form9.Text13.Text = Form9.Data1.Recordset("FUNCTIE")

Form9.Text11.Text = Form9.Data1.Recordset("SALARB")

Form9.Combo2.Text = Form9.Data1.Recordset("NORMA")

Form9.Combo3.Text = Form9.Data1.Recordset("GRUPAM")

Text1.Text = ""

End Sub

Private Sub Command2_Click()

Hide

Text1.Text = ""

End Sub

'Forma "Introduceti datele despre firma"

Private Sub Command1_Click()

Data1.Recordset.MoveFirst

Data1.Recordset.Delete

With Data1

.Recordset.AddNew

.Recordset("UNIT") = UCase(Text1.Text)

.Recordset("SF") = UCase(Text5.Text)

.Recordset("JF") = UCase(Text8.Text)

.Recordset("NF") = Val(Text6.Text)

.Recordset("OF") = UCase(Text7.Text)

.Recordset("NRTEL") = Val(Text2.Text)

.Recordset("CONT") = Val(Text3.Text)

.Recordset("BANCA") = UCase(Text4.Text)

.Recordset.Update

End With

DBGrid1.ReBind

Form1.Refresh

Hide

Form1.Show

End Sub

Private Sub Command2_Click()

Hide

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text7.SetFocus

End If

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

End If

End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

'Forma "Modificare date angajat"

Private Sub Command1_Click()

With Data1

.Recordset.Edit

.Recordset("NUME_A") = UCase(Text1.Text)

.Recordset("NRMATR") = Val(Text2.Text)

.Recordset("DATAN_A") = CDate(Format(Text3.Text, "dd/mm/yyyy"))

.Recordset("SEX") = UCase(Text4.Text)

.Recordset("SA") = UCase(Text5.Text)

.Recordset("NA") = Val(Text6.Text)

.Recordset("AA") = Val(Text7.Text)

.Recordset("OA") = UCase(Text8.Text)

.Recordset("JA") = UCase(Text9.Text)

.Recordset("STCIV") = UCase(Combo4.Text)

.Recordset("COPII") = Val(Text15.Text)

.Recordset("ACT_A") = UCase(Combo1.Text)

.Recordset("PPROF") = UCase(Text12.Text)

.Recordset("DATAI") = CDate(Format(Text10.Text, "dd/mm/yyyy"))

.Recordset("COMP") = UCase(Text14.Text)

.Recordset("FUNCTIE") = UCase(Text13.Text)

.Recordset("SALARB") = Val(Text11.Text)

.Recordset("NORMA") = UCase(Combo2.Text)

.Recordset("GRUPAM") = Val(Combo3.Text)

.Recordset.Update

End With

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

Text13.Text = ""

Text14.Text = ""

Text15.Text = ""

Combo1.Text = ""

Combo2.Text = ""

Combo3.Text = ""

Combo4.Text = ""

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

Text13.Text = ""

Text14.Text = ""

Text15.Text = ""

Combo1.Text = ""

Combo2.Text = ""

Combo3.Text = ""

Combo4.Text = ""

End Sub

Private Sub Command3_Click()

Hide

End Sub

'Forma "Stergere angajat"

Private Sub Command1_Click()

Data1.Recordset.Delete

End Sub

Private Sub Command2_Click()

Hide

End Sub

'Forma "Sunteti sigur?”

Private Sub Command1_Click()

Form9.Data1.Recordset.Delete

End Sub

Private Sub Command2_Click()

Hide

End Sub

Similar Posts