Predmet:Re: ADO Update ne raboti
Popraveno no ke go probam i tvojot sql.
Na ovaj updejt celta e da se promeni danocnata stapka od edna vo druga .
Ova cesto se koristi vo restorani ili fasfood kade sto na primer:
Ako imame jadejne koe se posluzuva vo restoranot togas danocnata stapka iznesuva nekoja vrednost na primer 20 % no dokolku toa jadejne se iznese nadvor od restoranot togas za toa jadejne danocnata stapka iznesuva 10 % taka da pred stampajne na krajniot racun imam napraveno da se izbere dali artiklite se za vo restoran ili za nadvor od restoran . Ovaa funkcija ja menuva danocnata stapka
PreuzmiIzvorni kôd (Visual Basic):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