<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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