Predmet:Re: Access program i touch screen monitor

---

Ovo je procedura kojom uzimam broj fiskalnog:

Function Broj_Racuna(Putanja_Filea As String)
Dim temp As String
Dim Poz As Integer

Close #1
Open Putanja_Filea For Input As #1
While Not EOF(1)
Input #1, temp
Wend

Poz = InStr(1, temp, "LastReceiptNumber;")
If Poz > 0 Then
Broj_Racuna = Mid(temp, Poz + 18)
GoTo Kraj:
End If
Kraj:
Close #1
End Function