<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 Vrati_Stanje(Br_racuna As Integer)
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim Kol(2) As Single

Dim SQL As String


Set Db = CurrentDb()

SQL = "SELECT Skladiste.Kolicina AS K1, IzlazIzSkladista.Kolicina AS K2 " _
      & "FROM IzlazIzSkladista INNER JOIN Skladiste ON IzlazIzSkladista.Sifra = Skladiste.Sifra " _
      & "WHERE BrojRacuna=" & Br_racuna
Set Rs = Db.OpenRecordset(SQL)
Do While Not Rs.EOF