Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Pozdrav,
kod mene radi kod sa početka teme koji je zxz naveo:
Citat:Const Putanja_Filea = "C:\temp\Prodaja.inp" ' putanja sa imenom filea
Option Compare Database
Function Broj_Racuna()
Dim temp As String
Dim Poz As Integer
Close #1
Open Putanja_Filea For Input As #1
While Not EOF(1)
Input #1, temp
Wend
Poz = InStr(1, temp, "LastReceiptNumber;")
If Poz > 0 Then
Broj_Racuna = Mid(temp, Poz + 18)
GoTo Kraj:
End If
Kraj:
Close #1
End Function
ako kao primjer uzmem npr. prodaja.inp koji powersoft naveo:
S,1,041560,1,Ok;NEKTAR PIVO 0.5 LIMENKA 24/1;1.12;1.00;1;1;2;-0;29;
T,1,041560,2,Ok; 0 ;1.12;;;;
J,1,041560,2,Ok;LastReceiptNumber;144
međutim u mom answer fajlu (gdje nema rezultata tip LastReceiptNumber) koji dobijem nakon uspješno odštampanog fiskalnog računa (preko nsc uređaja) dobijem rezultat ovog tipa:
56,1,123450,10,Ok;009,0453,0011;
gdje je 453 predstavlja broj fiskalnog računa koji moram "izvući", kako to postići?
Hvala.