Centar za edukaciju-BiH

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


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

#581 22.10.2011 08:24
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:314


Predmet:Re: Fiskalizacija u FBiH
Ovaj dio je broj fiskalnog racuna:

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

A ovaj dio:

PreuzmiIzvorni kôd (Text):
  1. <VrstaOdgovora>OK</VrstaOdgovora>
  2. <VrstaOdgovora>Greska</VrstaOdgovora>

komunikacija, Ok - uspjesno ispisan racun, odnosno Greska neuspjesno.

Pozdrav
Pozdrav, Amela
↑  ↓

#582 22.10.2011 10:55
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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 11:13 od strane zxz. ↑  ↓

#583 22.10.2011 11:03
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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

#584 22.10.2011 11:15
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: Fiskalizacija u FBiH
Za:Amelasar
[uote]Nije uvijek isti naziv fajla pa cu morati jos vidjeti[/quote]
A jel se brisu racuni poslije stampe tj. jeli uvijek ima samo 1 xml file odnosno racun.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 2 puta. Posljednja izmjena 22.10.2011 11:17 od strane zxz. ↑  ↓

#585 22.10.2011 15:36
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:314


Predmet:Re: Fiskalizacija u FBiH
Ovo je za TRING fiskalne stampace.

Komande(racuni) se salju u folder C:\tring\xml a
odgovori se smjestaju u folder C:\tring\xml\odgovori
i imaju isti naziv kao i komande sto se salju driveru. Ne brisu se. Sve ostaju u folderu \odgovori
mada se mogu brisati.

Pozz
Pozdrav, Amela
↑  ↓

#586 22.10.2011 15:39
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:314


Predmet:Re: Fiskalizacija u FBiH
Prvo bi trebalo provjeriti da li je komanda izvrsena, tj. racun isprintan pa ako je odgovor OK uzeti broj fiskalnog racuna.
Pozdrav, Amela
↑  ↓

#587 22.10.2011 16:38
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: Fiskalizacija u FBiH
aha.
A jesu li procedure dobre.
Radi li sve kako valja.
I ne rece mi koji je printer.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#588 22.10.2011 17:24
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:314


Predmet:Re: Fiskalizacija u FBiH
Napisala sam da je za TRING fiskalne uredjaje: TringFavoritePlus i Partner.
Procedure rade fantasticno.

Procedure sam dodala u modul.

Nakon koda za printanje racuna saljem slijedeće:

PreuzmiIzvorni kôd (Text):
  1. Zaustavi (4)
  2. Dim Odgovor As String
  3. Odgovor = Vrsta_Ugovora("c:\tring\xml\odgovori\stampatifiskalniracun." & zah & ".xml")
  4. If Odgovor = "Greska" Then
  5. MsgBox "Ra
  6. un nije fiskalizovan!", vbCritical
  7. Else
  8. Dim Brrac As String
  9. Brrac = Broj_Racuna("c:\tring\xml\odgovori\stampatifiskalniracun." & zah & ".xml")
  10. [Forms]![racun].BRF = Brrac
  11. [Forms]![racun].Fiskalizovan.Value = -1
  12. End If

Jel OK ovaj nacin?
Sve radi super. Nisam jos probala na uredjaju ali sam simulirala i sve je ok.
Kako bi u funkciju Zaustavi dodala neki prozor na kojem ce pisati "SAČEKAJTE" i da se skloni sam kad vrijeme prođe?

Hvala ti puno zxz na pomoci.
Pozdrav, Amela
↑  ↓

#589 22.10.2011 18:03
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:314


Predmet:Re: Fiskalizacija u FBiH
PreuzmiIzvorni kôd (Text):
  1. Function Zaustavi(Trajanje)
  2.     Dim VRIJEME
  3.      DoCmd.OpenForm "frmSacekajte"
  4.     DoEvents
  5.      
  6.     Trajanje = Trajanje + Timer()
  7. Start:
  8.     VRIJEME = Timer()
  9.     If VRIJEME < Trajanje Then GoTo Start
  10.     DoCmd.Close acForm, "frmSacekajte"
  11.     End Function

Nije bas elegantno ali radi.
Pozdrav
Pozdrav, Amela
Ovaj post je ureden 1 puta. Posljednja izmjena 22.10.2011 18:03 od strane Amelasar. ↑  ↓

#590 23.10.2011 02:38
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: Fiskalizacija u FBiH
Dobra ti je ova procedura.
Da se vratimo na ime fajla.
Ako se ne brise onda se ime kreira ne neki kontrolisan nacin.
Mozda je broj racuna u imenu ili pak vrijeme ili tako nesto.
Mozda da stavis par naziva racuna da vidim.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

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

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 7: 12 pm.