Private Function fnGotovinski_Racun() As String
    Dim invoiceRequest As Object
    Dim payment As Object
    Dim item As Object
    Dim item2 As Object
    Dim itemsCollection As Collection
    Dim paymentsCollection As Collection
    Dim dict As Object
    
    ' Kreiraj glaven dict
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' Kreiraj invoiceRequest
    Set invoiceRequest = CreateObject("Scripting.Dictionary")
    invoiceRequest.Add "invoiceType", "Normal"
    invoiceRequest.Add "transactionType", "Sale"
    
    ' Kreiraj kolekcija za pla?anja
    Set paymentsCollection = New Collection
    
    ' Kreiraj pla?anje
    Set payment = CreateObject("Scripting.Dictionary")
    payment.Add "amount", Format(54.99, "0.00")
    payment.Add "paymentType", "WireTransfer"
    'payment.Add "dateAndTimeOfIssue", Now ' Ako je potrebno
    paymentsCollection.Add payment
    
    ' Dodaj kolekcija pla?anja vo invoiceRequest
    invoiceRequest.Add "payment", paymentsCollection
    
    invoiceRequest.Add "invoiceNumber", "25377-TPV"
    
    ' Kreiraj kolekcija za stavki
    Set itemsCollection = New Collection
    
    ' Kreiraj stav??
    Set item = CreateObject("Scripting.Dictionary")
    item.Add "name", "Tehni?ki pregled MV-M1"
    item.Add "labels", CreateCollectionFromArray(Array("E"))
    item.Add "totalPrice", Format(53.89, "0.00")
    item.Add "unitPrice", Format(53.89, "0.00")
    item.Add "quantity", Format(1, "0.00")
      
    Set item2 = CreateObject("Scripting.Dictionary")
    item2.Add "name", "Tehni?ki pregled MV-M1-2%"
    item2.Add "labels", CreateCollectionFromArray(Array("E"))
    item2.Add "totalPrice", Format(1, "0.00")
    item2.Add "unitPrice", Format(1, "0.00")
    item2.Add "quantity", Format(1, "0.00")
    
    
    itemsCollection.Add item
    itemsCollection.Add item2
    
    invoiceRequest.Add "items", itemsCollection
   
    invoiceRequest.Add "cashier", "Slavica P"
    
    dict.Add "print", "True"
    dict.Add "invoiceRequest", invoiceRequest
   
    fnGotovinski_Racun = JSON.toString(dict)
End Function