Prikazi cijelu temu 21.10.2011 11:46
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Lokacija:SARAJEVO


Predmet:Re: Fiskalizacija u FBiH
Pokusavam kod od zxz za izvlacenje broja fiskalnog racuna prilagoditi za tring:

PreuzmiIzvorni kôd (Text):
  1. Function Broj_Racuna(Putanja_Filea as string)
  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.  
  11. Poz = InStr(1, temp, "LastReceiptNumber;")
  12. If Poz > 0 Then
  13. Broj_Racuna = Mid(temp, Poz + 18)
  14. GoTo Kraj:
  15. End If
  16. Kraj:
  17. Close #1
  18. End Function

PreuzmiIzvorni kôd (Text):
  1. Dim Brrac As String
  2. Brrac = Broj_Racuna("c:\tring\stampatifiskalniracun.11.xml")
  3. MsgBox "BF je: " & Brrac
  4. End Sub

Datoteka odgovora izgleda ovako:

<?xml version="1.0" encoding="utf-8"?>
<KasaOdgovor xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<Odgovori>
<Odgovor>
<Naziv>BrojFiskalnogRacuna</Naziv>
<Vrijednost xsi:type="xsd:long">10</Vrijednost>
</Odgovor>
<Odgovor>
<Naziv>DatumFiskalnogRacuna</Naziv>
<Vrijednost xsi:type="xsd:string">19.7.11</Vrijednost>
</Odgovor>
<Odgovor>
<Naziv>VrijemeFiskalnogRacuna</Naziv>
<Vrijednost xsi:type="xsd:string">1800</Vrijednost>
</Odgovor>
</Odgovori>
<VrstaOdgovora>OK</VrstaOdgovora>
<BrojZahtjeva>11</BrojZahtjeva>
</KasaOdgovor>

Jel moze neko malo pomoci.
Hvala.
Pozdrav, Amela