Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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.Ra