Prikazi cijelu temu 22.10.2011 11:03
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Fiskalizacija u FBiH
Evo za ovoaj red vrst ugovora odnosno odgovor na racunu.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Vrsta_Ugovora(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, "<VrstaOdgovora>")
  10. If Poz(1) > 0 Then
  11. Poz(1) = 16
  12. Poz(2) = InStr(1, temp, "</")
  13. Vrsta_Ugovora = Mid(temp, Poz(1), Poz(2) - Poz(1))
  14. Close #1
  15. GoTo Kraj:
  16. End If
  17. Wend
  18. Kraj:
  19. Close #1
  20. End Function
PreuzmiIzvorni kôd (Visual Basic):
  1. Function poziv_VrtaU()
  2. Dim Brrac As String
  3. Brrac = Vrsta_Ugovora("c:\Tring\stampatifiskalniracun.11.xml")
  4. MsgBox "Vrsta ugovora 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 11:13 od strane zxz.