Powersoft |
13.03.2011 13:28 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Pozdrav.
Interesuje me kako da iz inp fajla izvucem broj fiskalnog racuna?
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
Br. 144 mi treba da ga stavim na fakturu.
Hvala. |
zxz |
13.03.2011 13:46 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Na vrhu modula napises ovo:
Const Putanja_Filea = "C:\tmp\brr.txt" ' putanja sa imenom filea
PreuzmiIzvorni kôd (Visual Basic):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
proceduru pozivas:
Dim Brrac as string
brrac=Broj_Racuna |
Powersoft |
13.03.2011 14:48 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Nesto mi nece. Ne dobijem broj racuna. Prazan string. Ne javi mi nikakvu gresku.
Hvala. |
zxz |
13.03.2011 14:52 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Provjeri dali negdje u fileu pise ovo:
LastReceiptNumber;
Provjeri dali ti je ime i putanja filea tacna.
Const Putanja_Filea = "C:\tmp\brr.txt" ' putanja sa imenom filea
Ovdje moras navesti tacno putanju.
ako nije uvijek isto ime filea onda mi moras to reci pa cemo prepraviti proceduru. |
Powersoft |
13.03.2011 15:13 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Puno ti hvala na pomoci.
Nije uvijek isto ime filea. Za primjer sam stavio Prodaja.txt u folderu c:\temp i to sam prepravio u funkciji.
Private Sub Command3_Click()
Dim Brrac As String
Brrac = Brrac
MsgBox "BF je: " & Brrac
End Sub
Dobijem praznu poruku. |
Powersoft |
13.03.2011 15:27 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Gore sam u postu napravio gresku:
brrac=Putanja_Filea
Kada funkciju stavim na formu dobijem odgovor:
BF je: C:\temp\Prodaja.txt |
zxz |
13.03.2011 15:41 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Nije mi jedno jasno. ako nema filea na toj putanji trebao bi prijaviti gresku.
Po ovom tvome ispada da je file prazan.
Druga stvar nece ionako ispravno raditi ako ime filea nije ista.
Moras mi reci otprilike kakav imena izlaze i sta jos bude u tom foldru odnosno ima li jos kakvih fajlova.
Moja pretpostavka imena filea je tipa:
rac0001.txt
rac0002.txt
ili
print234.txt
print333.txt
Znaci mota biti neki prefiks koji se ne mijenja u imenu.
E taj prefix mi treba.
I extenzija fajla mi je bitna. |
Powersoft |
13.03.2011 16:03 |
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. |
zxz |
13.03.2011 16:17 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
do mene je pogresno sam te naveo.
dao sam ti pogresan poziv za proceduru:
evo ovako treba:
PreuzmiIzvorni kôd (Visual Basic):Private Sub Command3_Click()
Dim Brrac As String
Brrac = Broj_Racuna
MsgBox "BF je: " & Brrac
End Sub
|
Powersoft |
13.03.2011 16:34 |
Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Da sada radi, hvala ti na pomoci.
Ako sam dobro shvatio funkcija pronalazi text "LastReceiptNumber;" i uzima slijedeci string a to je broj fiskalnog racuna. Ista se funkcija moze primijeniti i kod drugih vrsta odgovora (tring, NSC)?
Samo mi kod tring-a nije isti naziv filea:
stampatifiskalniracun.278.xml
stampatifiskalniracun.279.xml
stampatifiskalniracun.280.xml itd
Pokusat cu sam nesto rijesiti da vas ne opterecavam.
Hvala jos jednom.
Pozdrav |