Prikazi cijelu temu 23.10.2011 19:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Fiskalizacija u FBiH
Evo probaj sad.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function poziv()
  2. Dim Brojac As Integer
  3. Dim Odgovor As String
  4. Dim Brrac As String
  5.  
  6. Pauza1:
  7. Zaustavi (2)
  8. If Brojac > 6 Then GoTo Kraj
  9. On Error Resume Next
  10. Odgovor = Vrsta_Ugovora("c:\_hcp\stampatifiskalniracun.xml")
  11. If Err.Number = 53 Then
  12.     Err.Clear
  13.     On Error GoTo 0
  14.     Brojac = Brojac + 1
  15.     GoTo Pauza1
  16. End If
  17.  
  18. On Error GoTo 0
  19.  
  20. If Odgovor = "Greska" Then
  21.     MsgBox "Raeun nije fiskalizovan!", vbCritical
  22. Else
  23.     Brrac = Broj_Racuna("c:\_tremol\stampatifiskalniracun.11.xml")
  24.     [Forms]![racun].BRF = Brrac
  25.     [Forms]![racun].Fiskalizovan.Value = -1
  26. End If
  27. Izlaz:
  28. Exit Function
  29. Kraj:
  30. MsgBox "Doslo je do greske!"
  31. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.