<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 RobaStanje(DocBr As String, NSN As String, Kol, Stanje As Single, SifraD As Integer)
Dim DB As Database
Dim Rs As Recordset
Dim SQL As String
Dim X As Single


If SifraD = 1 Then
X = 1
ElseIf SifraD = 2 Then
X = -1
Else
X = 0
End If

SQL = "SELECT Sifradoc FROM tblStavke  WHERE Broj_Doc='" & DocBr & "' AND NSN='" & NSN & "'"
Set DB = CurrentDb
Set Rs = DB.OpenRecordset(SQL)
If Rs.RecordCount = 0 Then
   If Format$(Ko