Predmet:Re: Čitanje broja računa HCP
PreuzmiIzvorni kôd (Visual Basic):Const PutanjaR = "c:\_hcp\FROM_FP\Bill_State.xml"
Function Citaj()
Dim Temp As String
Dim Jedan_red As String
Dim Poz(1 To 3) As Integer
Dim RacunBr As String
Dim I As Integer
On Error GoTo Citaj_Err
Close #1
Open PutanjaR For Input As 1
For I = 1 To 4
Line Input #1, Jedan_red
Temp = Temp & Jedan_red
Next I
Poz(1) = InStr(1, Temp, "RECEIPT_NUMBER=")
Poz(2) = InStr(1, Temp, "REFOUND_RECEIPT_NUMBER=")
If Poz(1) > 0 And Poz(2) > 0 Then
Poz(1) = Poz(1) + 16
Poz(2) = Poz(2) - 2
Poz(3) = Poz(2) - Poz(1)
RacunBr = Mid(Temp, Poz(1), Poz(3))
MsgBox "Fiskalni broj racuna je: " & RacunBr, vbCritical, "UPOZORENJE"
Else
MsgBox "UPSSS"
End If
Close #1
Citaj_Exit:
Exit Function
Citaj_Err:
MsgBox Error$
Resume Citaj_Exit
End Function
Podrska 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.