Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (72):1,2 ... 56,57,58,59,60 ... 71,72
 Prikazi prvu neprocitanu poruku

#571 20.10.2011 12:30
exploit Van mreze
Clan
Registrovan od:19.10.2011
Postovi:3


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
↑  ↓

#572 20.10.2011 17:36
drmalo Van mreze
Clan
Registrovan od:10.03.2011
Postovi:10


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.
↑  ↓

#573 21.10.2011 11:46
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:314


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
↑  ↓

#574 21.10.2011 16:24
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:314


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?
Pozdrav, Amela
↑  ↓

#575 21.10.2011 16:42
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#576 21.10.2011 16:49
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:314


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
Pozdrav, Amela
↑  ↓

#577 21.10.2011 18:56
exploit Van mreze
Clan
Registrovan od:19.10.2011
Postovi:3


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
↑  ↓

#578 21.10.2011 20:06
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:314


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.
Pozdrav, Amela
↑  ↓

#579 21.10.2011 21:26
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:314


Predmet:Re: Fiskalizacija u FBiH
Trebala bih jos rjesiti komunikaciju sa uredjajem, da li je racun fiskalizovan:

<VrstaOdgovora>OK</VrstaOdgovora>
<VrstaOdgovora>Greska</VrstaOdgovora>
Pozdrav, Amela
↑  ↓

#580 21.10.2011 21:39
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: Fiskalizacija u FBiH
Citat:
<BrojZahtjeva>11</BrojZahtjeva>

Jeli ovo broj racuna odnosno broj koji trebas.
Ako nije napsisi u kojem je redu.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (72):1,2 ... 56,57,58,59,60 ... 71,72

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 9: 08 pm.