[es] - Slanje JSON fajlova u SEF za pojedinacno evidentiranje PDV-a

mustur
Mustur Gojko
Beograd

Član broj: 32122
Poruke: 48
*.dynamic.sbb.rs.

+1 Profil

Slanje JSON fajlova u SEF za pojedinacno evidentiranje PDV-a

^{08.02.2023. u 14:32 - pre 14 meseci}

Pokusavam da posaljem JSON fajl u SEF (e-faktura).
Sadržaj JSON fajla je ispravan.
Kada se posalje dobijam poruku o grešci "the system cannot locate the resource specified"

KOD koji koristim je:
---------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------
mojAPIkey = "9f3fad47-b284-43a6-bbe4-3ade227b"

'On Error GoTo Err_Command0_Click

Dim slanje As New MSXML2.XMLHTTP60

Dim addressa As String

addressa = "https://demoefaktura.mfin.gov....icApi/vat-recording/individual"

Dim SendString As String
SendString = XmlStr("C:\Users\Gojko\Desktop\Pojedinacno slanje\Autsajder.JSON")

With slanje
.Open "POST", addressa, "False"
.setRequestHeader "accept", "text/plain"
.setRequestHeader "APIKey", mojAPIkey
.setRequestHeader "Content-Type:", "application/json" '- slanje sa kompa
MsgBox SendString
.send SendString
End With

If slanje.Status = 200 Then ' Slanje fakture uspelo
MsgBox "Faktura uspesno poslata"

Else

MsgBox slanje.responseText
MsgBox slanje.Status & " " & slanje.statusText
End If

'End If

GoTo Kraj
Err_Command0_Click:
MsgBox "Greska"

Kraj:
---------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------

Da li neko ima iskustva i moze da mi pomogne. Hvala

Odgovor na temu

trimrd
Software developer

Član broj: 346213
Poruke: 5
..213.170-dsl.net.metronet.hr.

Profil

Re: Slanje JSON fajlova u SEF za pojedinacno evidentiranje PDV-a

^{08.02.2023. u 15:01 - pre 14 meseci}

Možda glupost, ali probajte maknuti razmak ovdje:

C:\Users\Gojko\Desktop\Pojedinacno slanje\Autsajder.JSON

Odgovor na temu

mustur
Mustur Gojko
Beograd

Član broj: 32122
Poruke: 48
*.dynamic.sbb.rs.

+1 Profil

Re: Slanje JSON fajlova u SEF za pojedinacno evidentiranje PDV-a

^{09.02.2023. u 12:19 - pre 14 meseci}

Pokušao ali ništa.

Ovaj kod samo sa drugom adresom i XML fajlovi uspešno šaljem kao e-fakture.
Ovo su JSON fajlovi.

Da li neko ima ideju?

Odgovor na temu

mmarkoni
Milan Marković

Član broj: 95013
Poruke: 44
*.dynamic.isp.telekom.rs.

Profil

Re: Slanje JSON fajlova u SEF za pojedinacno evidentiranje PDV-a

^{09.02.2023. u 17:12 - pre 14 meseci}

Zdravo svima

Dali ti stvarno treba XmlStr() funkcija? Šta ona radi u Json stringu?

Možeš li nam pokazati kako ti izgleda Json string.

_{[Ovu poruku je menjao mmarkoni dana 09.02.2023. u 19:28 GMT+1]}

_{[Ovu poruku je menjao mmarkoni dana 09.02.2023. u 19:29 GMT+1]}

Odgovor na temu

mmarkoni
Milan Marković

Član broj: 95013
Poruke: 44
*.dynamic.isp.telekom.rs.

Profil

Sistem E faktura – Provera dali je firma sa PIB-om registrovana na e-fakture

^{09.02.2023. u 17:53 - pre 14 meseci}

Provera dali je firma registrovana na SEF-u (Sistemu e-fakture)

Potrebne reference
WinHttpRequest.5.1,
Microsoft Scripting Runtime

Potrebno je preuzeti vba modul JsonConverter.bas sa sajta: [url=]https://github.com/VBA-tools/VBA-JSON[/url]

Code:

Public Function CheckIfCompanyRegisteredOnEfaktura(ByVal varPib As String) As Boolean
    Const strPutanja = "/api/publicApi/Company/CheckIfCompanyRegisteredOnEfaktura"
    Const strUrl = "https://efaktura.mfin.gov.rs"
    Dim http As Object
    Dim JSONString As String

    JSONString = "{""registrationNumber"":"""",""jbkjs"":"""",""vatNumber"":""" & Eval(varPib) & """}"

    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    With http
        .SetTimeouts 30000, 30000, 30000, 30000
        .Open "POST", strUrl & strPutanja, False
        .setRequestHeader "Content-Type", "application/json"

        .Send JSONString

        Select Case .Status
            Case 200
                Dim jsonObject As Object
                Set jsonObject = JsonConverter.ParseJson(http.responseText)
                CheckIfCompanyRegisteredOnEfaktura = jsonObject("EFakturaRegisteredCompany")
            Case 429 '  premašen broj poziva

            Case Else
                Debug.Print .Status
                MsgBox "Errornumber: " & err.Number & vbNewLine & "Errordescription: " & Error(err.Number)
                CheckIfCompanyRegisteredOnEfaktura = False
        End Select

    End With

    Set http = Nothing
    Set jsonObject = Nothing
    On Error GoTo 0

    Exit Function

End Function

Pozdrav

_{[Ovu poruku je menjao mmarkoni dana 09.02.2023. u 19:03 GMT+1]}

_{[Ovu poruku je menjao mmarkoni dana 09.02.2023. u 19:33 GMT+1]}

Odgovor na temu

mustur
Mustur Gojko
Beograd

Član broj: 32122
Poruke: 48
*.dynamic.sbb.rs.

+1 Profil

Re: Slanje JSON fajlova u SEF za pojedinacno evidentiranje PDV-a

^{14.03.2023. u 11:57 - pre 13 meseci}

Provera registrovanih firmi u SEF-u odlicno radi. Kada sam probao sa drugog racunara izbacuje mi gresku "an error occurred in the secure channel support".
Da li neko ima slicna iskustva?
Hvala

Odgovor na temu

mmarkoni
Milan Marković

Član broj: 95013
Poruke: 44
*.dynamic.isp.telekom.rs.

Profil

Re: Slanje JSON fajlova u SEF za pojedinacno evidentiranje PDV-a

^{15.03.2023. u 09:09 - pre 13 meseci}

Sistem mora imati omogućen TLS 1.2 koje koristi api server SEF-a.

ZAvisi na kom win sistemu radiš, ya W10 je po difoltu omogućeno, za W7: https://support.microsoft.com/...d2-31d7-761e-0178-11268bb10392

Proguglaj malo, nije baš trivijalno, moraš editovati registri preko regedita.

Pozdrav

Odgovor na temu