Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
iCentar
Prikazi cijelu temu 07.03.2011 02:02
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Ideje i rjesenja iz teme fiskalizacija
Pitanje od Miro35:
Citat:
Još nešto što bi dobro bilo napraviti a vezano je za fiskalizaciju i fiskalne uređaje.Kad iz svoje kase pošaljem xml fajl u folder iz kojeg uređaj ispisuje račun,ako je se uspješno izvršio on vrati fajl pod imenom Receipt.out u kojem piše neki text o uspješnom izvršenju.Isto tako ako kojim slučajem nije nešto uredu uređaj vraća isti ovaj fajl sa nastavkom .out u kojem piše neka greška.Pitanje:
Kako u access učitati taj podatak šta piše u tom fajlu i onda na osnovu toga prekinuti knjiženje tog računa koji nije ispisan na fiskalni uređaj.A ako je ispisan na fiskalni uređaj onda treba iz tog fajla pročitati da je sve ok i da program nastavi knjiženje računa.Znači bitno bi bilo kako napraviti preko vb coda da pročitamo šta piše u toj .out datoteci.Evo primjer .out datoteka

Na vrh modula ide ovo:
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Const Putanja_Filea = "C:\tmp\receipt_sale.out" ' putanja sa imenom filea

PreuzmiIzvorni kôd (Visual Basic):
  1. Function ProvjeraF() As Boolean
  2. Dim Temp As String
  3. Dim Red As Integer
  4. Dim Greska As String
  5. Dim GreskaOpis As String
  6. Dim Poz(1 To 2) As Integer
  7. Dim I As Integer
  8.  
  9. Close #1
  10. Red = 2 ' red iz kojeg cita
  11. Open Putanja_Filea For Input As 1
  12. For I = 1 To Red
  13. Input #1, Temp
  14. Next I
  15. Poz(1) = InStr(1, Temp, "ErrorCode=") + 11
  16. Poz(2) = InStr(1, Temp, "ErrorOPOS=") - 2
  17.  
  18. Greska = Mid(Temp, Poz(1), Poz(2) - Poz(1))
  19. If Greska = "0" Then
  20. MsgBox "Uspješno izvršavanje."
  21. ProvjeraF = True
  22. Else
  23. Poz(1) = InStr(1, Temp, "ErrorDescription=") + 17
  24. Poz(2) = InStr(1, Temp, "/>") - 2
  25. GreskaOpis = Mid(Temp, Poz(1), Poz(2) - Poz(1))
  26. MsgBox "Greška br: " & Greska & vbCr & GreskaOpis
  27. ProvjeraF = False
  28. End If
  29.  Close #1
  30. Kraj:
  31. Exit Function
  32. End Function

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 07.03.2011 02:03 od strane zxz.