Prikazi cijelu temu 13.03.2011 16:48
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Da dobro si to analizirao.
ako ti treba za vise fajlova napravi sledece:
PreuzmiIzvorni kôd (Visual Basic):
  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
ne zaboravi obrisati konstantu na vru jer ina isti naziv.

sada pozivas proceduru na sledeci nacin:
PreuzmiIzvorni kôd (Visual Basic):
  1. Dim Brrac As String
  2. Brrac = Broj_Racuna("stampatifiskalniracun.280.xml itd")
  3. MsgBox "BF je: " & Brrac
  4. End Sub

E sad posto viodim da se tebi mijenja ime filea mozemo mi i prepraviti proceduru tj. da sama trazi file koji pocinje sa stampatifiskalniracun. i da ima sufiks najveci broj napr.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.