Prikazi cijelu temu 16.04.2012 15:49
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Č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"
PreuzmiIzvorni kôd (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:
bill_state.rar
Preuzimanja:362
Velicina datoteke:305 Bajt

Miro