Prikazi cijelu temu 23.10.2011 13:59
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Lokacija:SARAJEVO


Predmet:Re: Fiskalizacija u FBiH
Sad mi nikako ne radi. Vrti 6 puta i javi "Doslo je do greske".

Da nije problem u linijama poslije 22 jer u mene je to sve u kodu poslije stampe racuna, nije funkcija (ako sam se dobro izrazila).

Ja sam ovako ugradila tvoj kod:

PreuzmiIzvorni kôd (Text):
  1. Dim Brojac As Integer
  2.  
  3. Pauza1:
  4. Zaustavi (2)
  5. If Brojac > 6 Then GoTo Kraj
  6. On Error Resume Next
  7. Dim Odgovor As String
  8. Odgovor = Vrsta_Ugovora("c:\tring\xml\odgovori\stampatifiskalniracun." & zah & ".xml")
  9. If Error.Number = 53 Then
  10. err.Clear
  11. On Error GoTo 0
  12. Brojac = Brojac + 1
  13. GoTo Pauza1
  14. End If
  15.  
  16. If Odgovor = "Greska" Then
  17. MsgBox "Raèun nije fiskalizovan!", vbCritical
  18. Else
  19. Dim Brrac As String
  20. Brrac = Broj_Racuna("c:\tring\xml\odgovori\stampatifiskalniracun." & zah & ".xml")
  21. [Forms]![racun].BRF = Brrac
  22. [Forms]![racun].Fiskalizovan.Value = -1
  23. 'GoTo Izlaz
  24. End If
  25.  
  26. Kraj: MsgBox "Doslo je do greske!"

Pozdrav.
Pozdrav, Amela
Ovaj post je ureden 1 puta. Posljednja izmjena 23.10.2011 14:03 od strane Amelasar.