exploit 20.10.2011 12:30
Predmet:Re: Fiskalizacija u FBiH

Hvalaa Smiling to je to :))

Citiraj miro35:
Znači može biti ovaj:
<DATA PAY='0' AMN='1.00' />
Bez ova dva ispod

drmalo 20.10.2011 17:36
Predmet:Re: Fiskalizacija u FBiH

@ amelasar, miro35, biromega

Hvala na pokuÅ¡aju pomoći. PronaÅ¡ao sam greÅ¡ku. Uređaj nije ni uÅ¡ao u režim reklamiranja (trebao bi se čuti zvučni signal). GreÅ¡ka je bila u redu <COMMAND> ali je nije prijavljivao.

Amelasar 21.10.2011 11:46
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.

Amelasar 21.10.2011 16:24
Predmet:Re: Fiskalizacija u FBiH

Izdvojila sam ovaj dio:

<Vrijednost xsi:type="xsd:long">10</Vrijednost>

Pomocu funkcije NadjiDio od zxz nemogu izdvojiti ovaj broj 10.
Ne moze se koristiti Znak-Karakter razdvajac?

zxz 21.10.2011 16:42
Predmet:Re: Fiskalizacija u FBiH

Citat:
Izdvojila sam ovaj dio:

<Vrijednost xsi:type="xsd:long">10</Vrijednost>

Pomocu funkcije NadjiDio od zxz nemogu izdvojiti ovaj broj 10.
Ne moze se koristiti Znak-Karakter razdvajac?
Uf ja ovo i ne gledah odma.

Nemoze procedurom nadjiDio. Ovdje treba izmedju 2 razlicita dijela.
Veceras ti napravim proceduru.

Amelasar 21.10.2011 16:49
Predmet:Re: Fiskalizacija u FBiH

Hvala. Pokusavam sa ovom procedurom:

PreuzmiIzvorni kôd (Text):
  1. Function Broj_Racuna()
  2. Dim temp As String
  3. Dim Poz, Poz2, Poz3 As Integer
  4.  
  5. Close #1
  6. Open Putanja_Filea For Input As 1
  7. While Not EOF(1)
  8. Line Input #1, temp
  9. If Mid(temp, 1, 2) = "56" Then
  10. Poz = InStr(1, temp, ";")
  11. Poz2 = InStr(Poz + 1, temp, ",")
  12. Poz3 = InStr(Poz2 + 1, temp, ",")
  13. Broj_Racuna2 = Mid(temp, Poz2 + 1, Poz3 - Poz2 - 1)
  14. GoTo kraj:
  15. End If
  16. Wend
  17. kraj:
  18. Close #1
  19. End Function

Mozda se moze nesto uraditi.
Pozz

exploit 21.10.2011 18:56
Predmet:Re: Fiskalizacija u FBiH

Imam joÅ¡ jedno pitanje za FP555. Ne mogu da pronađem komandu kako da dodijelim kupca na račun, ako to uopste moguće?

Hvala

Amelasar 21.10.2011 20:06
Predmet:Re: Fiskalizacija u FBiH

zxz: Izgleda da sam uspjela sama. Mozda nije elegantno ali radi. Ni sama neznam kako sam uspjela. Malo sam i naucila.

PreuzmiIzvorni kôd (Text):
  1. Function Broj_Racuna()
  2. Dim temp As String
  3. Dim Poz, Poz2, Poz3, Pozz As Integer
  4. Const Putanja_Filea1 = "C:\Tring\stampatifiskalniracun11.xml"
  5. Close #1
  6. Open Putanja_Filea1 For Input As 1
  7. For x = 1 To 6
  8. Line Input #1, temp
  9. Next x
  10. Poz = InStr(1, temp, ">")
  11. Pozz = InStr(1, temp, "t>")
  12. broj_racuna2 = Mid(temp, 38 + 1, Pozz - 50)
  13. kraj:
  14. MsgBox "BF: " & broj_racuna2
  15. Close #1
  16. End Function

Nije uvijek isti naziv fajla pa cu morati jos vidjeti. Ako ti imas bolje rjesenje bila bih ti zahvalna.
Pozdrav, Amela.

Amelasar 21.10.2011 21:26
Predmet:Re: Fiskalizacija u FBiH

Trebala bih jos rjesiti komunikaciju sa uredjajem, da li je racun fiskalizovan:

<VrstaOdgovora>OK</VrstaOdgovora>
<VrstaOdgovora>Greska</VrstaOdgovora>

zxz 21.10.2011 21:39
Predmet:Re: Fiskalizacija u FBiH

Citat:
<BrojZahtjeva>11</BrojZahtjeva>

Jeli ovo broj racuna odnosno broj koji trebas.
Ako nije napsisi u kojem je redu.