Dynamics Community Forum Thread Details

Product update by API

Hi,
I am creating a process where you can update the variant comparison prices in shopify via API.

But I have a problem and it is that it sends me a status code 0 as the following message:

When it goes through the first variant in the repeat this if it is updated, if it makes the request correctly. But from then on it starts to send me this error for the following variants.

Someone could help me on what is wrong with my code or why I get this error.

The code I use is the following:

procedure UpdatePriceIn0()
    var
        Client: HttpClient;
        Request: HttpRequestMessage;
        Response: HttpResponseMessage;
        Content: HttpContent;
        ContentHeaders: HttpHeaders;
        JsonResponse: Text;
        AccessToken: Text;
        VariantId: Text;
        UpdateJson: Text;
        ShopifyVariantRecord: Record "Shopify Variants Mercalab";
    begin
        ShopifyVariantRecord.SetRange(Match, false);
        if ShopifyVariantRecord.FindSet() then begin
            repeat
                Client.DefaultRequestHeaders.Clear();
                VariantId := Format(ShopifyVariantRecord.id);
                Request.SetRequestUri('https://cdb2db-11.myshopify.com/admin/api/2024-04/variants/' + VariantId + '.json');
                Request.Method := 'PUT';
                AccessToken := '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';
                Client.DefaultRequestHeaders.Add('X-Shopify-Access-Token', AccessToken);
                UpdateJson := '{"variant":{"id": ' + VariantId + ',"compare_at_price": null}}';
                Content.WriteFrom(UpdateJson);
                Content.GetHeaders(ContentHeaders);
                ContentHeaders.Remove('Content-Type');
                ContentHeaders.Add('Content-Type', 'application/json');
                Request.Content := Content;
                if Client.Send(Request, Response) then begin
                    Content := Response.Content();
                    Content.ReadAs(JsonResponse);
                end else begin
                    Message('Error: ' + Format(Response.HttpStatusCode));
                end;
            until ShopifyVariantRecord.Next() = 0;
        end else begin
            Message('Not found');
        end;
    end;