Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Imam tri razlicita fajla:
Prodaja.inp (MP fiskalni racun)
ProdajaVP.inp (VP fiskalni racun) i
prodajaVPINO.inp (VP fiskalni racun izvoz)
ekstenzija je "inp".
Fajl koji sam smjestio u c:\temp je Prodaja.inp
U modulu sam stavio funkciju:
PreuzmiIzvorni kôd (Text):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
Na formi sam napravio komandni taster i dodao mu slijedeci kod:
PreuzmiIzvorni kôd (Text):Private Sub Command3_Click()
Dim Brrac As String
Brrac = Putanja_Filea
MsgBox "BF je: " & Brrac
End Sub
Prodaja.inp izgleda ovako:
S,1,035310,1,Ok;Å TP N3;46.00;1.00;1;1;2;-0;1016;
T,1,035310,2,Ok;3;46.00;;;;
J,1,035310,2,Ok;LastReceiptNumber;1222
Hvala.
Ovaj post je ureden
1
puta. Posljednja izmjena 13.03.2011 16:07 od strane Powersoft.