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):Option Compare Database
Option Explicit
Const Putanja_Filea = "C:\tmp\receipt_sale.out" ' putanja sa imenom filea
PreuzmiIzvorni kôd (Visual Basic):Function ProvjeraF() As Boolean
Dim Temp As String
Dim Red As Integer
Dim Greska As String
Dim GreskaOpis As String
Dim Poz(1 To 2) As Integer
Dim I As Integer
Close #1
Red = 2 ' red iz kojeg cita
Open Putanja_Filea For Input As 1
For I = 1 To Red
Input #1, Temp
Next I
Poz(1) = InStr(1, Temp, "ErrorCode=") + 11
Poz(2) = InStr(1, Temp, "ErrorOPOS=") - 2
Greska = Mid(Temp, Poz(1), Poz(2) - Poz(1))
If Greska = "0" Then
MsgBox "Uspješno izvršavanje."
ProvjeraF = True
Else
Poz(1) = InStr(1, Temp, "ErrorDescription=") + 17
Poz(2) = InStr(1, Temp, "/>") - 2
GreskaOpis = Mid(Temp, Poz(1), Poz(2) - Poz(1))
MsgBox "Greška br: " & Greska & vbCr & GreskaOpis
ProvjeraF = False
End If
Close #1
Kraj:
Exit Function
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.