Dim Brojac as integer
Pauza1:
Zaustavi (2)
if brojac>6  goto Kraj
on error resume next
Dim Odgovor As String
Odgovor = Vrsta_Ugovora("c:\tring\xml\odgovori\stampatifiskalniracun." & zah & ".xml")
if error.number=53 then
err.clear
on error goto 0
brojac= brojac+1
goto pauza1
endif
If Odgovor = "Greska" Then
MsgBox "Ra
un nije fiskalizovan!", vbCritical
Else
Dim Brrac As String
Brrac = Broj_Racuna("c:\tring\xml\odgovori\stampatifiskalniracun." & zah & ".xml")
[Forms]![racun].BRF = Brrac
[Forms]![racun].Fiskalizovan.Value = -1
End If
Izlaz:
exit function
Kraj:
Msgbox "Doslo je do greske"
end function