Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Obracun poreza i doprinosa

[es] :: Visual Basic 6 :: Obracun poreza i doprinosa

[ Pregleda: 2940 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Goran92
RS

Član broj: 160745
Poruke: 18
31.223.130.*



+3 Profil

icon Obracun poreza i doprinosa23.08.2015. u 13:02 - pre 104 meseci
Ako može neko da mi kaže gdje griješim?

Code:

Public Sub ObracunPID()
On Error Resume Next

   Dim BRUTO, BRUTO1, NETO As Currency
   Dim rst, rsl As DAO.Recordset
   
   Set rsl = CurrentDb.OpenRecordset("Radnici", dbOpenDynaset)
   rsl.FindFirst "RadnikID=" & Me.ObracunR_Subform!RadnikID
   Set rst = Forms!Obracun![ObracunD Subform].Form.RecordsetClone
   If rst.RecordCount > 0 Then
      rst.MoveFirst
   End If
   ' 1 - ********** ! OBRACUN PiD !
   If Not IsNull(Forms![Obracun]![ObracunZ Subform]!Text11) Then
      BRUTO = Forms![Obracun]![ObracunZ Subform]!Text11
      BRUTO1 = BRUTO
      NETO = Forms![Obracun]![ObracunZ Subform]!Text10
   Else
      BRUTO = 0
      BRUTO1 = 0
      NETO = 0
   End If
   If BRUTO < Forms![Obracun]!MjOsnova Then
      If BRUTO <> 0 Then
         BRUTO1 = BRUTO
         If MsgBox("OBRACUN DOPRINOSA NA OSTVARENU PLATU ?", vbYesNo + vbQuestion + vbDefaultButton1) = vbNo Then
            BRUTO = Forms![Obracun]!MjOsnova
         End If
      End If
   End If
   ' 2 - ********** ! OBRACUN PiD ! Dodati i odbitke na POREZ !!!
   Do While rst.EOF = False
   If rst!Oznaka = "P" Then
      If BRUTO1 > Forms![Obracun]!Neoporez Then
         rst.Edit
         If (BRUTO1 - (BRUTO * Forms!Obracun!Text101 / 100) - Forms!Obracun!Neoporez - rsl!Odbitak1 - rsl!Odbitak2) > 0 Then
            rst!IznosDoprinosa = (BRUTO1 - (BRUTO * Forms!Obracun!Text101 / 100) - Forms!Obracun!Neoporez - rsl!Odbitak1 - rsl!Odbitak2) * rst!Stopa / 100
         Else
            rst!IznosDoprinosa = 0
         End If
         rst.Update
      Else
         rst.Edit
         rst!IznosDoprinosa = 0
         rst.Update
      End If
   If rst!Oznaka = "s" Then
      If NETO = Forms![Obracun]!NajNizaPl Then
      rst.Edit
      rst!IznosDoprinosa = NajNizaPl * 1.5 / 100
      rst.Update
      Else
      rst!IznosDoprinosa = NajNizaPl * 3 / 100
      End If
   rst.MoveNext
   If rst.EOF = True Then
      Exit Do
   End If
   Loop
   Forms![Obracun]![ObracunD Subform].Requery
   
End Sub


Potpis
 
Odgovor na temu

IpAsOfT
Bor

Član broj: 13527
Poruke: 105
*.static.isp.telekom.rs.



+7 Profil

icon Re: Obracun poreza i doprinosa28.08.2015. u 09:23 - pre 104 meseci
Koju gresku javlja?
I have not failed. I've just found 10,000 ways that won't work. (Thomas Edison)
 
Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119



+19 Profil

icon Re: Obracun poreza i doprinosa31.08.2015. u 08:15 - pre 104 meseci
Neznam kakva je kod vas u SRB procedura obračuna plaće pa ti ne mogu puno pomoći. Objasni rječima, pa ćemo možda doći do rješenja :)
F
 
Odgovor na temu

Goran92
RS

Član broj: 160745
Poruke: 18
31.223.130.*



+3 Profil

icon Re: Obracun poreza i doprinosa02.09.2015. u 22:29 - pre 104 meseci
Jednostavno mi ne racuna, polja u formi ostanu prazna. Ne javlja mi nikakvu gresku.

Potpis
 
Odgovor na temu

Shon3i
Beograd

Član broj: 85406
Poruke: 1173
*.dynamic.sbb.rs.



+56 Profil

icon Re: Obracun poreza i doprinosa03.09.2015. u 17:05 - pre 104 meseci
Skini ovaj On Error Resume Next na pocetku..., pa mozda pokaze neku gresku...
 
Odgovor na temu

[es] :: Visual Basic 6 :: Obracun poreza i doprinosa

[ Pregleda: 2940 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.