Function poziv() Dim Brojac As Integer Dim Odgovor As String Dim Brrac As String Pauza1: Zaustavi (2) If Brojac > 6 Then GoTo Kraj On Error Resume Next Odgovor = Vrsta_Ugovora("c:\_hcp\stampatifiskalniracun.xml") If Err.Number = 53 Then Err.Clear On Error GoTo 0 Brojac = Brojac + 1 GoTo Pauza1 End If On Error GoTo 0 If Odgovor = "Greska" Then MsgBox "Raeun nije fiskalizovan!", vbCritical Else Brrac = Broj_Racuna("c:\_tremol\stampatifiskalniracun.11.xml") [Forms]![racun].BRF = Brrac [Forms]![racun].Fiskalizovan.Value = -1 End If Izlaz: Exit Function Kraj: MsgBox "Doslo je do greske!" End Function