Prikazi cijelu temu 13.03.2011 13:46
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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 16:29 od strane zxz.