<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 & "));"

        SQLAzurirajDDV = "SELECT * FROM tblSmetki_Stavki WHERE ((tblSmetki_Stavki.Smetka_Br)=" & ID_Smetka & ");"
 
      
      
    
   
    Set RSAzurirajDDV = New ADODB.Recordset
        RSAzurirajDDV.Open SQLAzurirajDDV, cn, adOpenDynamic, adLockOptimistic
 
      If RSAzurirajDDV.RecordCount = 0 Then
         AzurirajDDV_Smetka = True
         Exit Function
      End If
 
 
 
       RSAzurirajDDV.MoveFirst
    Do While Not RSAzurirajDDV.EOF
       If DLookup("ZaNosejne", "tblArtikli_Prodazba", "ID_ArtikalP=" & RSAzurirajDDV.Fields("Stavka")) = True Then
       RSAzurirajDDV.Fields("DDV") = ReadIniValue(App.path & "\Setup.ini", "KasaSetup", "DDV_Nosi")                  'Danocna stapka
       RSAzurirajDDV.Update
       RSAzurirajDDV.MoveNext
      Else
       RSAzurirajDDV.MoveNext
      End If
    Loop
    
     
    Az