Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function Iznos(Red As Integer, Optional Konto As String = "6%", Optional Godina As Integer = 0, _ Optional Firma As Integer = 1, Optional Period As String = "GODISNJI") '---------------------------------------------------------- Dim Db As DAO.Database Dim Rs As DAO.Recordset Dim SQL As String Dim QDF As QueryDef Dim I As Integer If Godina = 0 Then Godina = Year(Date) SQL = "SELECT top " & Red & " Sum([duguje]-[potrazuje]) AS Iznos, Left([stavgk]![konto],3) AS Sink " _ & "FROM stavgk " _ & "WHERE Left([stavgk]![konto],3) ALike '" & Konto & "' AND period=" & Godina _ & " AND firmaID=" & Firma & " AND ObracinskiPeriod='" & Period & "'" _ & "GROUP BY Left(konto,3)" _ & "HAVING Sum([duguje]-[potrazuje])<0 " _ & "ORDER BY Sum([duguje]-[potrazuje])" Set Db = CurrentDb Set Rs = Db.OpenRecordset(SQL) For I = 1 To Red Konto = Rs!sink Rs.MoveNext Next I SQL = "SELECT top " & Red & " Sum([duguje]-[potrazuje]) AS Iznos, Left([stavgk]![konto],3) AS Sink " _ & "FROM stavgk " _ & "WHERE Left([stavgk]![konto],3) ALike '" & Konto & "' AND period=" & Godina _ & " AND firmaID=" & Firma & " AND ObracinskiPeriod='" & Pe