Predmet:Re: Gotova rjeÅ¡enja za fiskalne uređaje
Za TRING uredjaje Favorite Plus i Partner:
Funkcija za izvlacenje broja racuna:
PreuzmiIzvorni kôd (Text):Function Broj_Racuna(Putanja_Filea As String)
Dim temp As String
Dim Poz(1 To 2) As Integer
Close #1
Open Putanja_Filea For Input As #1
While Not EOF(1)
Input #1, temp
Poz(1) = InStr(1, temp, "BrojFiskalnogRacuna")
If Poz(1) > 0 Then
Input #1, temp
Poz(1) = InStr(1, temp, ">") + 1
Poz(2) = InStr(1, temp, "</")
Broj_Racuna = Mid(temp, Poz(1), Poz(2) - Poz(1))
Close #1
GoTo Kraj:
End If
Wend
Kraj:
Close #1
End Function
Funkcija za provjeru odgovora:
PreuzmiIzvorni kôd (Text):Function Vrsta_Ugovora(Putanja_Filea As String)
Dim temp As String
Dim Poz(1 To 2) As Integer
Close #1
Open Putanja_Filea For Input As #1
While Not EOF(1)
Input #1, temp
Poz(1) = InStr(1, temp, "<VrstaOdgovora>")
If Poz(1) > 0 Then
Poz(1) = 16
Poz(2) = InStr(1, temp, "</")
Vrsta_Ugovora = Mid(temp, Poz(1), Poz(2) - Poz(1))
Close #1
GoTo Kraj:
End If
Wend
Kraj:
Close #1
End Function
Funkcija koja se poziva poslije stampanja racuna:
PreuzmiIzvorni kôd (Text):Function poziv()
Dim Brojac As Integer
Dim Odgovor As String
Dim Brrac As String
Pauza1:
Zaustavi (2)
If Brojac > 6 Then GoTo Kraj
On Error Resume Next
Odgovor = Vrsta_Ugovora("c:\_hcp\stampatifiskalniracun.xml")
If Err.Number = 53 Then
Err.Clear
On Error GoTo 0
Brojac = Brojac + 1
GoTo Pauza1
End If
On Error GoTo 0
If Odgovor = "Greska" Then
MsgBox "Raeun nije fiskalizovan!", vbCritical
Else
Brrac = Broj_Racuna("c:\_tremol\stampatifiskalniracun.11.xml")
[Forms]![racun].BRF = Brrac
[Forms]![racun].Fiskalizovan.Value = -1
End If
Izlaz:
Exit Function
Kraj:
MsgBox "Doslo je do greske!"
End Function
Prvo ide provjera odgovora, ako je OK nastavlja dalje uzima broj fiskalnog racuna i u program upisuje da je racun fiskalizovan.
Hvala ZXZ na pomoci.
Pozdrav.
Pozdrav, Amela