Predmet:Re: Redni brojevi, kako izbjeći greÅ¡ku?
PreuzmiIzvorni kôd (vbnet):Private Sub NacinPlacanjaID_AfterUpdate()
Dim I As Integer
Dim criterij As String
criterij = "NacinPlacanjaID=" & Me.Fiskal ' Number
I = DCount("[OrderID]", "tblProdaja", criterij) + 1 'Broji samo rekorde gdje je placanje gotovinom
Me.Rabat.Locked = False
Me.PDV.Locked = False
Select Case Me.Fiskal
Case 1 'Gotovina, fiskalni racun
Me.FiskalniBroj = I
Me.FiskalFormat = I & "/" & DLookup("OznakaPP", "Q_Firma") & "/1"
Me.Rabat = 0.15
Case Else 'Ostali na
ini placanja
Me.FiskalniBroj = 0
Me.FiskalFormat = " "
Me.RokPlacanja = 0
End Select
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.