Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (72):1,2 ... 58,59,60,61,62 ... 71,72
 Prikazi prvu neprocitanu poruku

#591 23.10.2011 10:15
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:344


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
Pozdrav, Amela
Ovaj post je ureden 1 puta. Posljednja izmjena 23.10.2011 10:18 od strane Amelasar. ↑  ↓

#592 23.10.2011 10:23
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,712


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?
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#593 23.10.2011 10:29
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:344


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.
Pozdrav, Amela
Ovaj post je ureden 1 puta. Posljednja izmjena 23.10.2011 10:33 od strane Amelasar. ↑  ↓

#594 23.10.2011 11:12
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,712


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.
↑  ↓

#595 23.10.2011 12:59
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:344


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 13:03 od strane Amelasar. ↑  ↓

#596 23.10.2011 15:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,712


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#597 23.10.2011 16:49
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:344


Predmet:Re: Fiskalizacija u FBiH
Kako god probam ne radi mi, uvijek isto. Javi samo da je doslo do greske. Nesto ne stima.

Pozdrav.
Pozdrav, Amela
↑  ↓

#598 23.10.2011 18:50
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,712


Predmet:Re: Fiskalizacija u FBiH
Pogledam pa javim.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#599 23.10.2011 19:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,712


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.
↑  ↓

#600 26.10.2011 06:44
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:344


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

Pozdrav.
Pozdrav, Amela
↑  ↓

Stranice (72):1,2 ... 58,59,60,61,62 ... 71,72

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 10: 15 am.