Prikazi cijelu temu 22.10.2011 09:55
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Fiskalizacija u FBiH
Evo za racun.
Sad cu ostalo procitati pa pogledati.
Moras mi reci za kojije ovo printer pa da mogu napisati.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Broj_Racuna(Putanja_Filea As String)
  2. Dim temp As String
  3. Dim Poz(1 To 2) As Integer
  4.  
  5. Close #1
  6. Open Putanja_Filea For Input As #1
  7. While Not EOF(1)
  8. Input #1, temp
  9. Poz(1) = InStr(1, temp, "BrojFiskalnogRacuna")
  10. If Poz(1) > 0 Then
  11. Input #1, temp
  12. Poz(1) = InStr(1, temp, ">") + 1
  13. Poz(2) = InStr(1, temp, "</")
  14. Broj_Racuna = Mid(temp, Poz(1), Poz(2) - Poz(1))
  15. Close #1
  16. GoTo Kraj:
  17. End If
  18. Wend
  19. Kraj:
  20. Close #1
  21. End Function
PreuzmiIzvorni kôd (Visual Basic):
  1. Function poziv()
  2. Dim Brrac As String
  3. Brrac = Broj_Racuna("c:\Tring\stampatifiskalniracun.11.xml")
  4. MsgBox "BF je: " & Brrac
  5. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 22.10.2011 10:13 od strane zxz.