Prikazi cijelu temu 18.04.2012 10:55
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Čitanje broja računa HCP
PreuzmiIzvorni kôd (Visual Basic):
  1. Const PutanjaR = "c:\_hcp\FROM_FP\Bill_State.xml"
  2. Function Citaj()
  3. Dim Temp As String
  4. Dim Jedan_red As String
  5. Dim Poz(1 To 3) As Integer
  6. Dim RacunBr As String
  7. Dim I As Integer
  8.  
  9.  
  10. On Error GoTo Citaj_Err
  11. Close #1
  12. Open PutanjaR For Input As 1
  13. For I = 1 To 4
  14. Line Input #1, Jedan_red
  15. Temp = Temp & Jedan_red
  16. Next I
  17. Poz(1) = InStr(1, Temp, "RECEIPT_NUMBER=")
  18. Poz(2) = InStr(1, Temp, "REFOUND_RECEIPT_NUMBER=")
  19. If Poz(1) > 0 And Poz(2) > 0 Then
  20. Poz(1) = Poz(1) + 16
  21. Poz(2) = Poz(2) - 2
  22. Poz(3) = Poz(2) - Poz(1)
  23. RacunBr = Mid(Temp, Poz(1), Poz(3))
  24. MsgBox "Fiskalni broj racuna je: " & RacunBr, vbCritical, "UPOZORENJE"
  25. Else
  26. MsgBox "UPSSS"
  27. End If
  28.  
  29. Close #1
  30.  
  31. Citaj_Exit:
  32.  
  33. Exit Function
  34. Citaj_Err:
  35. MsgBox Error$
  36. Resume Citaj_Exit
  37. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 18.04.2012 10:56 od strane zxz.