Private Sub Gotovinski_Click()

    Dim http As Object
    Dim url As String
    Dim body As String
    Dim response As String
    
    ' Definisite URL
    url = "http://192.168.1.21:3566/api/invoices"
    
    ' Kreirajte XMLHTTP objekat
    Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    
    ' Definisite tijelo zahtjeva kao JSON string sa jednim artiklom i jednim nacinom placanja
    body = "{""print"": true, ""email"": ""ofs@gmail.com"", ""invoiceRequest"": {""invoiceType"": ""Training"", ""transactionType"": ""Sale"", ""payment"": [{""amount"": 0.10, ""paymentType"": ""0""}], ""items"": [{""name"": ""KESA TREGERICA"", ""labels"": [""E""], ""totalAmount"": 0.10, ""unitPrice"": 0.05, ""quantity"": 2.000}], ""cashier"": """"}}"
    
    ' Otvorite HTTP konekciju
    http.Open "POST", url, False
    
    ' Dodajte zaglavlja
    http.setRequestHeader "Authorization", "Bearer 4b0920000000000caccdfa5b57eb23f3"
    http.setRequestHeader "RequestId", "19345"
    http.setRequestHeader "Content-Type", "application/json"
    
    ' Posaljite zahtjev
    http.send body
    
    ' Dobijte odgovor
    response = http.responseText
    
    ' Prikazite odgovor
    MsgBox response
    Debug.Print response
    ' Oslobodite resurse
    Set http = Nothing

End Sub