Private Sub Command1_Click()

Dim objHTTP As Object

Dim URL As String

Dim requestData As String

 

URL = "http://192.168.1.21:3566/api/invoices"

Set objHTTP = CreateObject("MSXML2.XMLHTTP")

 

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""}}"

    With objHTTP

        .Open "POST", URL, False

        .setRequestHeader "Authorization", "Bearer 0497e0bd2c7cf29820f46c19eb5842a3"

        .setRequestHeader "RequestId", "12345"

        .setRequestHeader "Content-Type", "application/json"

        .Send requestData

        Text = .responseText

    End With

    Debug.Print Text

MsgBox Text

End Sub