Amelasar 22.04.2024 16:58
Predmet:Fiskalizacija u RS-u

Ima li neko vise informacija o novoj fiskalizaciji u RS-u?

Branestan 16.05.2024 09:48
Predmet:Re:Fiskalizacija u RS-u

Ovdje mozete pronaci detalje: https://ofs.ba/

Amelasar 16.06.2024 22:39
Predmet:Re:Fiskalizacija u RS-u

Da li je neko vec prilagodio softver? Jeli ima negdje da se testira slanje?

Amelasar 24.08.2024 10:09
Predmet:Re:Fiskalizacija u RS-u

Mikroelektronika je razvila X-link (nekad F-link) i sluzi kao i prijasnji drajver sada komunicirajuci izmedju pos programa i servera poreske uprave putem api poziva.
Za svoje korisnike isto je drajver razvio Digit - http://www.digit-rs.com/fiskkase.html

Svaki programer (nisam to znala) moze sam da razvije svoj ESIR tj. da napravi da se direktno putem api poziva komunicira sa poreskom upravom.

Uputstvo kako to uraditi dato je na stranici https://api.ofs.ba/

Vidim preko 70 hiljada pregleda, tematika je zanimljiva.
Zamolila bih sve koji mogu pomoci jer isto nas ceka u Federaciji, a i da malo ozivimo ovaj forum.

zxz 28.08.2024 23:04
Predmet:Re:Fiskalizacija u RS-u

Posto si nasla sve linkove ostalo je samo da se uradi.
Ovo je HTTP REST JSON API interfejs.
Date su pristupne tacke i treba samo integrisati podatke iz baze.
U referencama treba ukljuciti MSXML2.XMLHTTP odnosno Microsoft xml v 6.0 (u msaccess 2007).
Ostalo je sve sljakanje.
Nisam vidio dali postoji negdje testni kljuc na api,ofs.ba, vjerovatno ima.
Evo ja cu postaviti na icentar za provjeru.
adresa je:
https://icentar.ba/api/invoices/index.php

zxz 28.08.2024 23:18
Predmet:Re:Fiskalizacija u RS-u

evo jedan primjer sa statickim podacima.
Uzeto je sa api.ofs.ba znaci tako treba da izgleda json samo sa dinamickim podacima iz baze.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function test_api()
  2. Dim objHTTP As Object
  3. Dim URL As String
  4. Dim requestData As String
  5.  
  6. URL = "https://icentar.ba/api/invoices/index.php"
  7. Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  8. requestData = "{""invoiceRequest"": {""invoiceType"": ""Normal"", ""transactionType"": ""Sale"", ""buyerId"": ""111758195"", ""payment"": [{""amount"": 100.00, ""paymentType"": ""Cash""}], ""items"": [{""name"": ""Artikl 1"", ""labels"": [""F""], ""totalAmount"": 100.00, ""unitPrice"": 50.00, ""quantity"": 2.000}], ""cashier"": ""Radnik 1""}}"
  9.     With objHTTP
  10.         .Open "POST", URL, False
  11.         '.setRequestHeader "Authorization", "Bearer " & token
  12.        '.setRequestHeader "RequestId", "12345"
  13.        .setRequestHeader "Content-Type", "application/json"
  14.         .Send requestData
  15.         Text = .responseText
  16.     End With
  17. MsgBox Text
  18. End Function

Amelasar 29.08.2024 10:40
Predmet:Re:Fiskalizacija u RS-u

Nema testnog kljuca (bar ja nisam nasla). Kasa se preko wifi (ili doc station) poveze na internet. Android sistem je. Dodjeli joj se fixna ip adresa i URL izgleda:
URL = "http://192.168.1.21:3566/api/invoices"

Javi mi gresku: {"message":"Bad Request","modelState":[{"errors":["2310"],"property":"items[0].labels[0]"}]}

zxz 29.08.2024 11:56
Predmet:Re:Fiskalizacija u RS-u

Da to je ok, Ali obicno ima testna baza dok se radi da se moze isprobati. Na to sam mislio.
Ja nisam sve procitao pa pretpostavljam da negdje ima, jer obicno ima.
Nema veze moze se napraviti na icentar da glumi poresku pa da testiramo.
Za sad sam stavio samo da provjerava dali je json dobar koji napravimo i o je ssvim dovoljno jer urnek za json ma na njihovoj stranici samo treba implementirati podatke iz baze i to je to.
Posto msacesanema funkcije jsdonEncode i decode imam link gdje se to moze skinuti.
Imaju gotove funkcije, samo se importuju u vasu aplikaciju ali nisam stavio misleci da se necete snaci.
Naravno moze i bez toga mogu se variable postaviti i u json odnosno string.
E sad gdje ti javi gresku.
Postavi kod koji pokreces.

zxz 29.08.2024 11:59
Predmet:Re:Fiskalizacija u RS-u

evo link za json.
VBA-JSON

Amelasar 29.08.2024 12:00
Predmet:Re:Fiskalizacija u RS-u

PreuzmiIzvorni kôd (Text):
  1. Private Sub Command1_Click()
  2. Dim objHTTP As Object
  3. Dim URL As String
  4. Dim requestData As String
  5.  
  6. URL = "http://192.168.1.21:3566/api/invoices"
  7. Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  8.  
  9. requestData = "{""invoiceRequest"": {""invoiceType"": ""Normal"", ""transactionType"": ""Sale"", ""buyerId"": ""111758195"", ""payment"": [{""amount"": 2.00, ""paymentType"": ""Cash""}], ""items"": [{""name"": ""Artikl 1"", ""labels"": [""F""], ""totalAmount"": 2.00, ""unitPrice"": 2.00, ""quantity"": 1.000}], ""cashier"": ""Radnik 1""}}"
  10.     With objHTTP
  11.         .Open "POST", URL, False
  12.         .setRequestHeader "Authorization", "Bearer 0497e0bd2c7cf29820f46c19eb5842a3"
  13.         .setRequestHeader "RequestId", "12345"
  14.         .setRequestHeader "Content-Type", "application/json"
  15.         .Send requestData
  16.         Text = .responseText
  17.     End With
  18.     Debug.Print Text
  19. MsgBox Text
  20. End Sub

To je kod. Nigdje nemam referencu MSXML2.XMLHTTP. Koristim access 2003.