<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 AzurirajDDV_Smetka(ID_Smetka) As Boolean
 On Error GoTo ErrorDDV:
      AzurirajDDV_Smetka = False
' Azurirajne na danocite vo smetkata ama ne funkcionira Jebi ga
      Dim RSAzurirajDDV As ADODB.Recordset
      Dim SQLAzurirajDDV As String
          SQLAzurirajDDV = "SELECT tblSmetki_Stavki.DDV, tblArtikli_Prodazba.ZaNosejne, tblSmetki_Stavki.Smetka_Br" _
                         & " FROM tblArtikli_Prodazba INNER JOIN tblSmetki_Stavki ON tblArtikli_Prodazba.ID_ArtikalP = tblSmetki_Stavki.Stavka" _
                         & " WHERE (((tblArtikli_Prodazba.ZaNosejne)=True) AND ((tblSmetki_Stavki.Smetka_Br)=" & ID_Smetka & "));"

      If RSAzurirajDDV.RecordCount = 0 Then
         AzurirajDDV_Smetka = True
         Exit Function
      End If
   
    Set RSAzurirajDDV = New ADODB.Recordset
        RSAzurirajDDV.Open SQLAzurirajDDV, cn, adOpenDynamic, adLockOptimistic
 
       RSAzurirajDDV.MoveFirst
    Do While Not RSAzurirajDDV.EOF
       RSAzurirajDDV.Fields("DDV") = 15 'CInt(ReadIniValue(App.path & "\Setup.ini", "KasaSetup", "DDV_Nosi"))                  'Danocna stapka
       RSAzurirajDDV.Update
       RSAzurirajDDV.MoveNext
    Loop
    
     
    AzurirajDDV_Smetka =