Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (11):1,2,3,4,5 ... 10,11
 Prikazi prvu neprocitanu poruku

#21 13.03.2011 12:28
Powersoft Van mreze
Clan
Registrovan od:04.03.2011
Postovi:18


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.
↑  ↓

#22 13.03.2011 12:46
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,711


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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 13.03.2011 15:29 od strane zxz. ↑  ↓

#23 13.03.2011 13:48
Powersoft Van mreze
Clan
Registrovan od:04.03.2011
Postovi:18


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Nesto mi nece. Ne dobijem broj racuna. Prazan string. Ne javi mi nikakvu gresku.

Hvala.
↑  ↓

#24 13.03.2011 13:52
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,711


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#25 13.03.2011 14:13
Powersoft Van mreze
Clan
Registrovan od:04.03.2011
Postovi:18


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.
↑  ↓

#26 13.03.2011 14:27
Powersoft Van mreze
Clan
Registrovan od:04.03.2011
Postovi:18


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
Ovaj post je ureden 1 puta. Posljednja izmjena 13.03.2011 14:31 od strane Powersoft. ↑  ↓

#27 13.03.2011 14:41
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,711


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#28 13.03.2011 15:03
Powersoft Van mreze
Clan
Registrovan od:04.03.2011
Postovi:18


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.
Ovaj post je ureden 1 puta. Posljednja izmjena 13.03.2011 15:07 od strane Powersoft. ↑  ↓

#29 13.03.2011 15:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,711


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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#30 13.03.2011 15:34
Powersoft Van mreze
Clan
Registrovan od:04.03.2011
Postovi:18


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
↑  ↓

Stranice (11):1,2,3,4,5 ... 10,11

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 10: 53 pm.