Dynamics Community Forum Thread Details

I have a problem for those with experience with the subject of sending to API

Hi For All

I have the following code, this code works perfectly in another project but on this project that I am currently working on it does not work and when I execute it gives me the following error "Failed to call the API." Very strange, I tried to trace the error but no details of the error appeared.

The problem is definitely not with the code because it works for me in another project and the same environment version as well... Are there other reasons? Is there anything preventing the code from connecting to "API" directly?

The user's permissions are full super, and I entered the "Azure Portal" website and gave all permissions, but to no avail.

Please help, thank you very much

  procedure SendInvoiceToAPI(EncodedXML: Text; ClientId: Text; SecretKey: Text): Text
    var
        HttpClient: HttpClient;
        HttpRequestMessage: HttpRequestMessage;
        HttpResponseMessage: HttpResponseMessage;
        RequestContent: HttpContent;
        ResponseText: Text;
        JsonBody: Text;
        HttpHeaders: HttpHeaders;
    begin
        // إعداد JSON body
        JsonBody := '{"invoice": "' + EncodedXML + '"}';
        RequestContent.WriteFrom(JsonBody);
        // إعداد رؤوس الطلب
        RequestContent.GetHeaders(HttpHeaders);
        HttpHeaders.Clear();
        HttpHeaders.Add('Content-Type', 'application/json');
        HttpHeaders.Add('Client-Id', ClientId); 
        HttpHeaders.Add('Secret-Key', SecretKey); 
        // إرسال الطلب
        HttpRequestMessage.SetRequestUri('https://backend.jofotara.gov.jo/core/invoices/');
        HttpRequestMessage.Method := 'POST';
        HttpRequestMessage.Content := RequestContent;
        if not HttpClient.Send(HttpRequestMessage, HttpResponseMessage) then begin
            SaveBarcodeValue(Rec."No.", 'Error');
            Error('Failed to call the API.');
        end;
        // قراءة الاستجابة
        HttpResponseMessage.Content.ReadAs(ResponseText);
        // التحقق من استجابة API
        if not HttpResponseMessage.IsSuccessStatusCode then begin
            SaveBarcodeValue(Rec."No.", 'Error');
            Error('API request failed with status code: %1. Response: %2', HttpResponseMessage.HttpStatusCode, ResponseText);
        end;
        exit(ResponseText);
    end;