Prikazi cijelu temu 03.09.2024 17:34
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re:Fiskalizacija u RS-u
Na stranici https://api.ofs.ba/ imaju sve pristupne tacke kao i odgovor poreske ne njih u nekoliko programskih jezika ali ne i u vba, pa mozete odabrati neki drugi jezik koji znate da mozete lakse raditi.
Ja cu za primjer uzeti HTTP-HTTP samo da bi vidjeli sta treba proslijediti od podataka.
Primjer Provera dostupnosti
(Ovo je ujedno i prva pristuna tacka):

PreuzmiIzvorni kôd (Text):
  1. GET /api/attention HTTP/1.1
  2. Host: 127.0.0.1:3566
  3. Authorization: Bearer 0123456789abcdef0123456789abcdef
;
Znaci trebamo proslijediti u ovom slucaju samo autorizacioni kod (token) koji se salje u hederu.
Evo kako bi izgledalo to u vba.

PreuzmiIzvorni kôd (Visual Basic):
  1. Function ProvjeraDostupnosti()
  2. Dim objHTTP As Object
  3. Dim url As String
  4. Dim authHeader As String
  5. Dim response As String
  6.    
  7. ' Postavi URL i Authorization header
  8. url = "http://127.0.0.1:3566/api/attention" '// ovo treba promijeniti i staviti IP printera : 3566 je port
  9. authHeader = "Bearer 0123456789abcdef0123456789abcdef" ' Ovo neznam dali postoji autorizacioni kod ako postoji
  10. ' treba ga staviti. Autorizacioni kod se dobije od poreske to treba vidjeti. Ako nema moze se ispustiti
  11.  
  12. ' Kreiraj XMLHTTP objekat
  13. Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  14.  
  15. ' Otvori HTTP zahtev
  16. objHTTP.Open "GET", url, False
  17.  
  18. ' Postavi Authorization header
  19. objHTTP.setRequestHeader "Authorization", authHeader
  20.  
  21. ' Posalji zahtev
  22. objHTTP.send
  23.  
  24. ' Dobavi odgovor
  25. response = objHTTP.responseText
  26.  
  27. ' Prikazi odgovor (na primer, u Immediate Window)
  28. Debug.Print response
  29. 'zatvori objHTTP
  30. Set objHTTP = Nothing
  31.  
  32. End Function

Ova pristupna tacka ne vraca nista nazalost.
Bilo bi bolje da vrati makar Ok ali tako je.
U ovoj pristunoj tacki mi i ne saljemo nista u data prena poteskoj.
Sledeci primjer cemo uzeti gdje se nesto salje u poresku gdje imamo neki odgovor.
Mi saljemo podatke u json formatu a i odgovor dobijamo u json formatu.
Za slanje nam nije problem jer je json struktuirani string pa u njega mozeemo ubaciti nase vb promjenjljive ondje gdje na treba promjenjljiva vrijednost ali mi isto trebamo iz json odgovora pokupiti neke vrijednosti koje pretpostavljam da se zapisuju u vasu bazu.
Tj kod treba napraviti.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.