Amelasar 22.10.2011 08:24
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

zxz 22.10.2011 10:55
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

zxz 22.10.2011 11:15
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.

zxz 22.10.2011 11:03
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

Amelasar 22.10.2011 15:36
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

Amelasar 22.10.2011 15:39
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.

zxz 22.10.2011 16:38
Predmet:Re: Fiskalizacija u FBiH

aha.
A jesu li procedure dobre.
Radi li sve kako valja.
I ne rece mi koji je printer.

Amelasar 22.10.2011 17:24
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.

Amelasar 22.10.2011 18:03
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

zxz 23.10.2011 02:38
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.