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