Prikazi cijelu temu 29.03.2014 22:49
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


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):
  1. Public Function AzurirajDDV_Smetka(ID_Smetka) As Boolean
  2.  On Error GoTo ErrorDDV:
  3.       AzurirajDDV_Smetka = False
  4. ' Azurirajne na danocite vo smetkata ama ne funkcionira Jebi ga
  5.      Dim RSAzurirajDDV As ADODB.Recordset
  6.       Dim SQLAzurirajDDV As String
  7.           'SQLAzurirajDDV = "SELECT tblSmetki_Stavki.DDV, tblArtikli_Prodazba.ZaNosejne, tblSmetki_Stavki.Smetka_Br" _
  8.           '               & " FROM tblArtikli_Prodazba INNER JOIN tblSmetki_Stavki ON tblArtikli_Prodazba.ID_ArtikalP = tblSmetki_Stavki.Stavka" _
  9.           '               & " WHERE (((tblArtikli_Prodazba.ZaNosejne)=True) AND ((tblSmetki_Stavki.Smetka_Br)=" & ID_Smetka & "));"
  10.  
  11.         SQLAzurirajDDV = "SELECT * FROM tblSmetki_Stavki WHERE ((tblSmetki_Stavki.Smetka_Br)=" & ID_Smetka & ");"
  12.  
  13.      
  14.      
  15.    
  16.    
  17.     Set RSAzurirajDDV = New ADODB.Recordset
  18.         RSAzurirajDDV.Open SQLAzurirajDDV, cn, adOpenDynamic, adLockOptimistic
  19.  
  20.       If RSAzurirajDDV.RecordCount = 0 Then
  21.          AzurirajDDV_Smetka = True
  22.          Exit Function
  23.       End If
  24.  
  25.  
  26.  
  27.        RSAzurirajDDV.MoveFirst
  28.     Do While Not RSAzurirajDDV.EOF
  29.        If DLookup("ZaNosejne", "tblArtikli_Prodazba", "ID_ArtikalP=" & RSAzurirajDDV.Fields("Stavka")) = True Then
  30.        RSAzurirajDDV.Fields("DDV") = ReadIniValue(App.path & "\Setup.ini", "KasaSetup", "DDV_Nosi")                  'Danocna stapka
  31.       RSAzurirajDDV.Update
  32.        RSAzurirajDDV.MoveNext
  33.       Else
  34.        RSAzurirajDDV.MoveNext
  35.       End If
  36.     Loop
  37.    
  38.      
  39.     AzurirajDDV_Smetka = True
  40. ErrorDDV:
  41.   If Err <> 0 Then
  42.      On Error Resume Next
  43.      AzurirajDDV_Smetka = False
  44.      Exit Function
  45.   End If
  46.