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