28-02-24, 04:57 PM
الشباب المحترمين
عندى كود به مشكله هذا الكود المطلوب منه احضار بيانات من موقع الفاتورة الالكترونيه يفيد بان الفاتورة تم استلامها ويرد برقم الفاتورة الالكترونى
حتى اتاكد من ان الفاتورة التى قمت بارسالها لموقع الضرائب تم قبولها
وهذا هو الكود
وللعلم فان هذا الكود يقوم بانشاء ملف جسون طبقا للمسار ادناه ولكن لا يعطى البيانات المطلوب
يرجى الافادة والتعديل على هذا الكود حتى يفى المطلوب
ارجو اعتبار الموضوع هام
عندى كود به مشكله هذا الكود المطلوب منه احضار بيانات من موقع الفاتورة الالكترونيه يفيد بان الفاتورة تم استلامها ويرد برقم الفاتورة الالكترونى
حتى اتاكد من ان الفاتورة التى قمت بارسالها لموقع الضرائب تم قبولها
وهذا هو الكود
وللعلم فان هذا الكود يقوم بانشاء ملف جسون طبقا للمسار ادناه ولكن لا يعطى البيانات المطلوب
يرجى الافادة والتعديل على هذا الكود حتى يفى المطلوب
ارجو اعتبار الموضوع هام
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
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