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