<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 />
Private Sub Form_Current()
Dim I As Integer
Dim Prefiks As String
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim SQL As String, BrojStr As String
Dim Broj As Integer, DuzB As Integer

Set Db = CurrentDb
SQL = "SELECT Prefix FROM tblTransakcijeVrsta WHERE idDokumenta=" & IDD
Set Rs = Db.OpenRecordset(SQL)
Prefiks = Rs!Prefix
SQL = "SELECT max(Int(Mid(BrojDok,4,4))) as  Br FROM tblDokumenti WHERE BrojDok Like'" & Prefiks & "*'"
Set Rs = Db.OpenRecordset(SQL)
If Format$(Rs!Br) <> "" Then
Broj = Rs!Br
End If
Broj = Broj + 1
DuzB = 4 - Len(Format$(Broj))
For I = 1 To DuzB
BrojStr = BrojStr & "0"
Next I
BrojStr = Pref