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