Predmet:Re: Čitanje broja računa HCP

---

Za Reklamirani racun:

Const PutanjaR = "c:\hcp\FROM_FP\Bill_State.xml"
Function CitajRek()
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, "REFOUND_RECEIPT_NUMBER=")
Poz(2) = InStr(1, Temp, "RECEIPT_TO_REFUND=")
If Poz(1) > 0 And Poz(2) > 0 Then
Poz(1) = Poz(1) + 24
Poz(2) = Poz(2) - 2
Poz(3) = Poz(2) - Poz(1)
RacunBr = Mid(Temp, Poz(1), Poz(3))
MsgBox "Reklamirani 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

---