BiH



#1 16.04.2012-14:49
miro35 Offline
Clan
Registrovan/a od: 05.01.2009-15:56
Komentari: 609


Subject: Čitanje broja računa HCP
Imam ovu funkciju ali ne radi sa ovim mojim xml fajlom.Iz njega trebam da isčitam broj računa "RECEIPT_NUMBER"
DownloadIzvorni kod (Text):
  1. Function Citaj()
  2.  
  3. On Error GoTo Citaj_Err
  4. Dim temp As String
  5. Dim Jedan_red As String
  6. Dim Poz As String
  7. Dim Poz1 As String
  8. Dim RukaPo As String
  9. Close #1
  10. 'Open ("" & DLookup("[Putanja]", "[Put]") & "\Rac" & [Forms]![Osnovna tabela Q VP1]![Datum] & " " & [Forms]![Osnovna tabela Q VP1]![Index] & ".inp") For Input As 1
  11. Open ("C:\HCP\FROM_FP\Bill_State.xml") For Input As 1
  12. While Not EOF(1)
  13. Line Input #1, Jedan_red
  14. temp = temp & Jedan_red & vbCrLf
  15. Poz = InStr(1, temp, "RECEIPT_NUMBER=")
  16. Poz1 = InStr(1, temp, "REFOUND_RECEIPT_NUMBER")
  17. RukaPo = Mid(temp, Poz + 17, [Poz1] - [Poz] - 19)
  18. Wend
  19. Close #1
  20. If Poz > 0 Then
  21.  
  22. MsgBox "Fiskalni broj racuna je: " & [RukaPo], vbCritical, "UPOZORENJE"
  23. Else
  24. MsgBox "UPSSS"
  25. End If
  26. Citaj_Exit:
  27.  
  28. Exit Function
  29. Citaj_Err:
  30. MsgBox Error$
  31. Resume Citaj_Exit
  32. End Function
Prilog xml fajl iz kojeg mi treba broj računa

Prilozi:
Informacije o fajlu: rar  bill_state.rar
Preuzimanja: 126
Veličina: 305 Byte


Miro
↑  ↓

#2 16.04.2012-18:23
roko Offline
Clan
Registrovan/a od: 02.02.2009-00:23
Komentari: 236


Subject: Re: Čitanje broja računa HCP
ako ga čitaš kao string trebaš nešt tipa

If Left(Jedan_red, 14) = "<RECEIPT_STATE" Then
Poz = InStr(1, temp, "RECEIPT_NUMBER=")
Poz1 = InStr(1, temp, "REFOUND_RECEIPT_NUMBER")
RukaPo = Mid(temp, Poz + 17, [Poz1] - [Poz] - 19)
End If
Wend
↑  ↓

#3 16.04.2012-18:39
roko Offline
Clan
Registrovan/a od: 02.02.2009-00:23
Komentari: 236


Subject: Re: Čitanje broja računa HCP
Re : Ispravka Čitanje broja računa HCP

While Not EOF(1)
On Error Resume Next
Dim SpliStr
Line Input #1, Jedan_red
temp = temp & Jedan_red & vbCrLf
If Left(Jedan_red, 14) = "<RECEIPT_STATE" Then
SpliStr = Split(Jedan_red, " ") '' SpliStr(3) : "RECEIPT_NUMBER='8'"

End If
Wend
↑  ↓

#4 17.04.2012-11:55
miro35 Offline
Clan
Registrovan/a od: 05.01.2009-15:56
Komentari: 609


Subject: Re: Čitanje broja računa HCP
Ne radi ni jedna ni druga. Ova prva sad pokazuje poruku "Fiskalni broj racuna je:" i napiše prazno.Ja sam stavio u xml fajlu bill_state da je broj 8.
Miro
↑  ↓

#5 17.04.2012-12:22
roko Offline
Clan
Registrovan/a od: 02.02.2009-00:23
Komentari: 236


Subject: Re: Čitanje broja računa HCP
kad ti projde petlju beoj ti je u SpliStr(3) : "RECEIPT_NUMBER='8'"
↑  ↓

#6 18.04.2012-07:15
miro35 Offline
Clan
Registrovan/a od: 05.01.2009-15:56
Komentari: 609


Subject: Re: Čitanje broja računa HCP
Ovo splitstr(3) mi ne radi.
Miro
↑  ↓

#7 18.04.2012-09:55
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,980


Subject: Re: Čitanje broja računa HCP
DownloadIzvorni kod (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

Pozdrav
Ovaj komentar je mijenjan 1 puta. zadnja izmjena 18.04.2012-09:56 od strane zxz. ↑  ↓

#8 18.04.2012-10:23
Amelasar Offline
Clan
Registrovan/a od: 07.04.2011-18:28
Komentari: 234


Subject: 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
Pozdrav, Amela
↑  ↓

#9 18.04.2012-10:36
miro35 Offline
Clan
Registrovan/a od: 05.01.2009-15:56
Komentari: 609


Subject: Re: Čitanje broja računa HCP
Hvala to je to
Miro
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 19.10.2019-16:13.