Prikazi cijelu temu 13.09.2024 08:27
Gjoreski Na mrezi
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re:Fiskalizacija u RS-u
Eve ova e JSON identican na onaj koi je postavio @Dragan59 ,
Ja nemam ovi specijalni znakova na mom racunaru pa ne mogu upisati u kogu.

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Function fnGotovinski_Racun() As String
  2.     Dim invoiceRequest As Object
  3.     Dim payment As Object
  4.     Dim item As Object
  5.     Dim item2 As Object
  6.     Dim itemsCollection As Collection
  7.     Dim paymentsCollection As Collection
  8.     Dim dict As Object
  9.    
  10.     ' Kreiraj glaven dict
  11.    Set dict = CreateObject("Scripting.Dictionary")
  12.    
  13.     ' Kreiraj invoiceRequest
  14.    Set invoiceRequest = CreateObject("Scripting.Dictionary")
  15.     invoiceRequest.Add "invoiceType", "Normal"
  16.     invoiceRequest.Add "transactionType", "Sale"
  17.    
  18.     ' Kreiraj kolekcija za pla?anja
  19.    Set paymentsCollection = New Collection
  20.    
  21.     ' Kreiraj pla?anje
  22.    Set payment = CreateObject("Scripting.Dictionary")
  23.     payment.Add "amount", Format(54.99, "0.00")
  24.     payment.Add "paymentType", "WireTransfer"
  25.     'payment.Add "dateAndTimeOfIssue", Now ' Ako je potrebno
  26.    paymentsCollection.Add payment
  27.    
  28.     ' Dodaj kolekcija pla?anja vo invoiceRequest
  29.    invoiceRequest.Add "payment", paymentsCollection
  30.    
  31.     invoiceRequest.Add "invoiceNumber", "25377-TPV"
  32.    
  33.     ' Kreiraj kolekcija za stavki
  34.    Set itemsCollection = New Collection
  35.    
  36.     ' Kreiraj stav??
  37.    Set item = CreateObject("Scripting.Dictionary")
  38.     item.Add "name", "Tehni?ki pregled MV-M1"
  39.     item.Add "labels", CreateCollectionFromArray(Array("E"))
  40.     item.Add "totalPrice", Format(53.89, "0.00")
  41.     item.Add "unitPrice", Format(53.89, "0.00")
  42.     item.Add "quantity", Format(1, "0.00")
  43.      
  44.     Set item2 = CreateObject("Scripting.Dictionary")
  45.     item2.Add "name", "Tehni?ki pregled MV-M1-2%"
  46.     item2.Add "labels", CreateCollectionFromArray(Array("E"))
  47.     item2.Add "totalPrice", Format(1, "0.00")
  48.     item2.Add "unitPrice", Format(1, "0.00")
  49.     item2.Add "quantity", Format(1, "0.00")
  50.    
  51.    
  52.     itemsCollection.Add item
  53.     itemsCollection.Add item2
  54.    
  55.     invoiceRequest.Add "items", itemsCollection
  56.    
  57.     invoiceRequest.Add "cashier", "Slavica P"
  58.    
  59.     dict.Add "print", "True"
  60.     dict.Add "invoiceRequest", invoiceRequest
  61.    
  62.     fnGotovinski_Racun = JSON.toString(dict)
  63. End Function