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):
  1. Function Broj_Racuna()
  2. Dim temp As String
  3. Dim Poz As Integer
  4.  
  5. Close #1
  6. Open Putanja_Filea For Input As 1
  7. While Not EOF(1)
  8. Input #1, temp
  9. Wend
  10. Poz = InStr(1, temp, "LastReceiptNumber;")
  11. If Poz > 0 Then
  12. Broj_Racuna = Mid(temp, Poz + 18)
  13. GoTo Kraj:
  14. End If
  15. Kraj:
  16. Close #1
  17. 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):
  1. Const Putanja_Filea = "C:\temp\Prodaja.inp" ' putanja sa imenom filea
  2. Option Compare Database
  3.  
  4. Function Broj_Racuna()
  5. Dim temp As String
  6. Dim Poz As Integer
  7.  
  8. Close #1
  9. Open Putanja_Filea For Input As #1
  10. While Not EOF(1)
  11. Input #1, temp
  12. Wend
  13.  
  14. Poz = InStr(1, temp, "LastReceiptNumber;")
  15. If Poz > 0 Then
  16. Broj_Racuna = Mid(temp, Poz + 18)
  17. GoTo Kraj:
  18. End If
  19. Kraj:
  20. Close #1
  21. End Function

Na formi sam napravio komandni taster i dodao mu slijedeci kod:
PreuzmiIzvorni kôd (Text):
  1. Private Sub Command3_Click()
  2. Dim Brrac As String
  3. Brrac = Putanja_Filea
  4. MsgBox "BF je: " & Brrac
  5. 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):
  1. Private Sub Command3_Click()
  2. Dim Brrac As String
  3. Brrac = Broj_Racuna
  4. MsgBox "BF je: " & Brrac
  5. 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