Prikazi cijelu temu 23.10.2011 11:12
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Fiskalizacija u FBiH
Napravi ovako:

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim Brojac as integer
  2. Pauza1:
  3. Zaustavi (2)
  4. if brojac>6  goto Kraj
  5. on error resume next
  6. Dim Odgovor As String
  7. Odgovor = Vrsta_Ugovora("c:\tring\xml\odgovori\stampatifiskalniracun." & zah & ".xml")
  8. if error.number=53 then
  9. err.clear
  10. on error goto 0
  11. brojac= brojac+1
  12. goto pauza1
  13. endif
  14. If Odgovor = "Greska" Then
  15. MsgBox "Ra
  16. un nije fiskalizovan!", vbCritical
  17. Else
  18. Dim Brrac As String
  19. Brrac = Broj_Racuna("c:\tring\xml\odgovori\stampatifiskalniracun." & zah & ".xml")
  20. [Forms]![racun].BRF = Brrac
  21. [Forms]![racun].Fiskalizovan.Value = -1
  22. End If
  23. Izlaz:
  24. exit function
  25. Kraj:
  26. Msgbox "Doslo je do greske"
  27. end function
Moguce da ima koja greska jer sam kucao direktno.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.