Prikazi cijelu temu 17.04.2014 11:42
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Redni brojevi, kako izbjeći greÅ¡ku?
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub NacinPlacanjaID_AfterUpdate()
  2. Dim I As Integer
  3. Dim criterij As String
  4.  
  5. criterij = "NacinPlacanjaID=" & Me.Fiskal    ' Number
  6. I = DCount("[OrderID]", "tblProdaja", criterij) + 1 'Broji samo rekorde gdje je placanje gotovinom
  7. Me.Rabat.Locked = False
  8. Me.PDV.Locked = False
  9. Select Case Me.Fiskal
  10. Case 1      'Gotovina, fiskalni racun
  11.     Me.FiskalniBroj = I
  12.     Me.FiskalFormat = I & "/" & DLookup("OznakaPP", "Q_Firma") & "/1"
  13.     Me.Rabat = 0.15
  14. Case Else   'Ostali na ini placanja
  15.     Me.FiskalniBroj = 0
  16.     Me.FiskalFormat = " "
  17.     Me.RokPlacanja = 0      
  18. End Select
  19. End Sub
U proceduri imam Case Else pa ako izmijenim način plaćanja umjesto postojećeg broja upiÅ¡e se 0 i obrnuto, a funkcija DCount ne uzima u obzir rekorde gdje je fiskalnibroj=0
Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 17.04.2014 11:44 od strane pmiroslav.