[asdfar1977]

الشباب المحترمين
عندى كود به مشكله هذا الكود المطلوب منه احضار بيانات من موقع الفاتورة الالكترونيه يفيد بان الفاتورة تم استلامها ويرد برقم الفاتورة الالكترونى 
حتى اتاكد من ان الفاتورة التى قمت بارسالها لموقع الضرائب تم قبولها ويحفظ النتائج فى ملف جسون 
وهذا هو الكود
وللعلم فان هذا الكود يقوم بانشاء ملف جسون طبقا للمسار ادناه ولكن لا يعطى البيانات المطلوب
يرجى الافادة والتعديل على هذا الكود حتى يفى المطلوب
ارجو اعتبار الموضوع هام

 Private Sub SurroundingSub()
        tok = GetBearerToken()
        Dim options As String = "https://api.invoicing.eta.gov.eg"
        Dim client = New RestClient(options)
        Dim request = New RestRequest("/api/v1/documentPackages/requests", Method.POST)
        request.AddHeader("Content-Type", "application/json")
        request.AddHeader("Authorization", "Bearer eyJhbGciOiJSUzI1 " & tok)
        Dim body = "{
" & vbLf & "    ""type"": ""Summary"",
" & vbLf & "    ""format"": ""JSON"",
" & vbLf & "    ""queryParameters"": {
" & vbLf & "        ""dateFrom"": ""2024-02-27T21:00:28.451Z"",
" & vbLf & "        ""dateTo"": ""2024-02-28T21:00:28.451Z"",
" & vbLf & "        ""statuses"": [
" & vbLf & "            ""Valid"",
" & vbLf & "            ""Cancelled"",
" & vbLf & "            ""Rejected""
" & vbLf & "        ],
" & vbLf & "        ""productsInternalCodes"": [],
" & vbLf & "        ""receiverSenderId"": """",
" & vbLf & "        ""receiverSenderType"": ""0"",
" & vbLf & "        ""branchNumber"": """",
" & vbLf & "        ""itemCodes"": [
" & vbLf & "            {
" & vbLf & "                ""codeValue"": """",
" & vbLf & "                ""codeType"": """"
" & vbLf & "            }
" & vbLf & "        ],
" & vbLf & "        ""documentTypeNames"": []
" & vbLf & "    }
" & vbLf & "}"
        Dim result As IRestResponse = client.Execute(request.AddJsonBody(body))
        If result.Content <> "" Then
            Dim o As JObject = JObject.Parse(result.Content)
        End If
        Dim json As String = JsonConvert.SerializeObject(body, Formatting.Indented)
        Dim path As String = "C:\server\Json001.json"
        File.WriteAllText(path, json)
        MessageBox.Show("done01")
    End Sub