Amelasar 23.10.2011 11:15
Predmet:Re: Fiskalizacija u FBiH

Da kontrolira se. U imenu je broj racuna.

Npr:

stampatifiskalniracun.155.xml
stampatifiskalniracun.156.xml
stampatifiskalniracun.157.xml
stampatifiskalniracun.158.xml

c:\tring\xml\odgovori\stampatifiskalniracun." & zah & ".xml (zah je broj racuna iz programa)

Pozdrav

zxz 23.10.2011 11:23
Predmet:Re: Fiskalizacija u FBiH

Eh ja ne citam sve.
Znaci ti si to vec i napravila.
Sad sam vidio proceduru.
Potsjeti me ako je jos nesto ostalo?

Amelasar 23.10.2011 11:29
Predmet:Re: Fiskalizacija u FBiH

Imam problem sa vremenom. Povecala sam na 5 i opet mi se nekad desava da nije dovoljno i izbaci gresku da fajl nepostoji?
U tom slucaju se moze desiti da se racun isprinta, a aplikacija ne preuzme broj fiskalnog i da je fiskalizovan?

Hvala.

zxz 23.10.2011 12:12
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.

Amelasar 23.10.2011 13:59
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.

zxz 23.10.2011 16:10
Predmet:Re: Fiskalizacija u FBiH

nije ti dobar kraj.
Izlaz:
exit function
Kraj:
Msgbox "Doslo je do greske"
end function

kod tebe izlazi uvijek na isto mjesto te svaki puta procita da je doslo do greske.
Procedura treba da izlazi na exit a kada se desi greska onda ide na kraj.

Amelasar 23.10.2011 17:49
Predmet:Re: Fiskalizacija u FBiH

Kako god probam ne radi mi, uvijek isto. Javi samo da je doslo do greske. Nesto ne stima.

Pozdrav.

zxz 23.10.2011 19:50
Predmet:Re: Fiskalizacija u FBiH

Pogledam pa javim.

zxz 23.10.2011 20:10
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

Amelasar 26.10.2011 07:44
Predmet:Re: Fiskalizacija u FBiH

ZXZ, sad radi bez greske. Hvala puno na pomoci.
Mozda da se primjer postavi u temu gotova rjesenja?

Pozdrav.