<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 />
Public Function SaldoPozitivno(ByVal pArt As String) As Double
 On Error GoTo Err_SaldoPozitivno
 Dim cn As ADODB.Connection
 Dim rst As ADODB.Recordset
 Dim SumaKol As Double
 Dim SQL As String
 
SQL = "SELECT Ulaz1.kol As Kol" & _
 " FROM Ulaz1, Ulaz " & _
 " WHERE Ulaz.UlazId = Ulaz1.UlazId And Ulaz1.art = '" & pArt & "' " & _
 " UNION SELECT -Izlaz1.kol As Kol" & _
 " FROM Izlaz, Izlaz1, Ulaz1 " & _
 " WHERE Izlaz.IzlazId = Izlaz1.IzlazId and Izlaz1.UlazId = Ulaz1.UlazId And Izlaz1.art = '" & pArt & "'"
Set cn = CurrentProject.AccessConnection
Set rst = New ADODB.Recordset
With rst
      Set .ActiveConnection = cn
      .Source = "SELECT * FROM tblProdaja"
      .LockType = adLockOptimistic
      .CursorType = adOpenKeyset
      .Open
   End With


 MsgBox pArt

 SumaKol = 0
 Do Until rst.EOF
 SumaKol = SumaKol + rst!Kol
 rst.MoveNext
 Loop


 SaldoPozitivno = SumaKol

 rst.Close