Prikazi cijelu temu 13.03.2011 16:03
Powersoft Van mreze
Clan
Registrovan od:04.03.2011
Lokacija:-


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Imam tri razlicita fajla:

Prodaja.inp (MP fiskalni racun)
ProdajaVP.inp (VP fiskalni racun) i
prodajaVPINO.inp (VP fiskalni racun izvoz)

ekstenzija je "inp".

Fajl koji sam smjestio u c:\temp je Prodaja.inp

U modulu sam stavio funkciju:
PreuzmiIzvorni kôd (Text):
  1. Const Putanja_Filea = "C:\temp\Prodaja.inp" ' putanja sa imenom filea
  2. Option Compare Database
  3.  
  4. Function Broj_Racuna()
  5. Dim temp As String
  6. Dim Poz As Integer
  7.  
  8. Close #1
  9. Open Putanja_Filea For Input As #1
  10. While Not EOF(1)
  11. Input #1, temp
  12. Wend
  13.  
  14. Poz = InStr(1, temp, "LastReceiptNumber;")
  15. If Poz > 0 Then
  16. Broj_Racuna = Mid(temp, Poz + 18)
  17. GoTo Kraj:
  18. End If
  19. Kraj:
  20. Close #1
  21. End Function

Na formi sam napravio komandni taster i dodao mu slijedeci kod:
PreuzmiIzvorni kôd (Text):
  1. Private Sub Command3_Click()
  2. Dim Brrac As String
  3. Brrac = Putanja_Filea
  4. MsgBox "BF je: " & Brrac
  5. End Sub

Prodaja.inp izgleda ovako:

S,1,035310,1,Ok;Å TP N3;46.00;1.00;1;1;2;-0;1016;
T,1,035310,2,Ok;3;46.00;;;;
J,1,035310,2,Ok;LastReceiptNumber;1222

Hvala.
Ovaj post je ureden 1 puta. Posljednja izmjena 13.03.2011 16:07 od strane Powersoft.