<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Function Poreski(X As Boolean)
Dim Db As Database
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim PoreskiBroj As String
Dim SQL As String


Set Db = CurrentDb
If X = True Then
PoreskiBroj = Me.PoreskiBr
If Format$(PoreskiBroj) = "" Then
GoTo Greska
End If
Else
Poreski broj = ""
Me.PoreskiBr = Null
End If

Set Rs1 = Me.RecordsetClone
If Rs1.RecordCount = 0 Then GoTo Greska
    Rs1.MoveFirst
    Do While Not Rs1.EOF
        Rs1.Edit
        Rs1!V_Broj = PoreskiBroj
        Rs1.Update
        SQL = "SELECT * FROM tblProdaja WHERE OrderID ='" & Rs1!ID_RAC & "'"
        Set Rs2 = Db.OpenRecordset(SQL)
        Rs2.Edit
        Rs2.Edit
        Rs2!V_Broj = PoreskiBroj