@מלא
אני מצרף דוגמא מאוד בסיסית שעשיתי
כמובן שזה לא עומד בכלל בתנאי הכתיבה הנכונים של קוד
אבל אם יהיה למישהו תועלת, והיה זה שכרי
Function Update1()
Dim objHTTP As Object
Dim Json As String: Json = ""
Dim Body As New Dictionary
Dim Bodyitem As New Dictionary
Dim Bodypayment As New Dictionary
Body.Add "api_key", "f1c85d16197de6d4dc0da51bf"
Body.Add "api_email", "demo@ezcount.co.il"
Body.Add "Description", "HOK BBNK 12 -655-5555444 "
Body.Add "developer_email", "DEVELOPER@example.com"
Body.Add "customer_crn", "308358899"
Body.Add "customer_address", "השומר 34 בי ברק"
Body.Add "customer_phone", "050123456789"
Body.Add "type", "400"
Body.Add "customer_name", "הרב שלמה שוורץ"
Body.Add "customer_email", "612@GMAIL.COM"
'Body.Add "developer_phone", "050123456789"
'Body.Add "price_total", "380"
Body.Add "forceItemsIntoNonItemsDocument", "1"
Body.Add "show_items_including_vat", "0"
d1 = JsonConverter.ConvertToJson(Body)
Bodyitem.Add "catalog_number", "A1"
Bodyitem.Add "details", ",תשלום 08"
Bodyitem.Add "price", "380"
Bodyitem.Add "amount", "1"
Bodyitem.Add "vat_type", "NON"
'Bodyitem.Add "discount_price", "3"
d2 = JsonConverter.ConvertToJson(Bodyitem)
d9 = SHARSER(d1, d2, "item")
Bodypayment.Add "payment_type", "9"
Bodypayment.Add "payment_sum", "380"
Bodypayment.Add "other_payment_type_name", "TAHSLUM "
d3 = JsonConverter.ConvertToJson(Bodypayment)
d9 = SHARSER(d9, d3, "payment")
Debug.Print d9
'Body.Add "payment", Array("payment_type", "1", "payment_sum", "250") '"[0,1,2,3,4,5]"
Dim Client As New WebClient
Dim Response As WebResponse
cc = JsonConverter.ConvertToJson(Body)
Set Response = Client.PostJson("https://demo.ezcount.co.il/api/createDoc", d9)
Debug.Print Response.Content
Dim ResponseJson As Object
Set ResponseJson = JsonConverter.ParseJson(Response.Content)
'ddd = Replace(Response.Content, "\", "")
Debug.Print ResponseJson("pdf_link")
End Function
Function SHARSER(ByVal strJson As String, ByVal subDataJson As String, nameSubJson As String) As String
strJson = Mid(strJson, 1, Len(strJson) - 1)
SHARSER = strJson & ",""" & nameSubJson & """" & ":[" & subDataJson & "]}"
End Function