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 AzurirajDDV_Smetka = True ErrorDDV: If Err <> 0 Then On Error Resume Next AzurirajDDV_Smetka = False Exit Function End If