DataFlex

Shopware 6 - Delete Product

See more Shopware 6 Examples

Delete a product. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoHttp
    Handle hoJsonToken
    String sJsonStr
    Integer iRespStatusCode
    String sTemp1
    Boolean bTemp1

    Move False To iSuccess

    // This example assumes the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // Load the access token previously obtained in Shopware 6 OAuth2 Client Credentials
    Get Create (RefClass(cComChilkatJsonObject)) To hoJsonToken
    If (Not(IsComObjectCreated(hoJsonToken))) Begin
        Send CreateComObject of hoJsonToken
    End
    Get ComLoadFile Of hoJsonToken "qa_data/tokens/shopware6.json" To iSuccess

    // This causes the "Authorization: Bearer <access_token>" header to be added.
    Get ComStringOf Of hoJsonToken "access_token" To sTemp1
    Set ComAuthToken Of hoHttp To sTemp1

    // Delete a product by the product id.
    // See Find Shopware 6 Product by Name for sample code to find a product id given the name.

    // We need to send a DELETE request like this:
    // DELETE /api/v3/product/d195dabb53cf46d096bd9a8726d82558

    Get ComSetUrlVar Of hoHttp "id" "d195dabb53cf46d096bd9a8726d82558" To iSuccess

    // If successful (204 response code), then the jsonStr will be empty.
    // Otherwise it will be a JSON error message.
    Get ComQuickDeleteStr Of hoHttp "https://my-shopware-6-shop.de/api/v3/product/{$id}" To sJsonStr
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // A 204 status code indicates success.
    Get ComLastStatus Of hoHttp To iRespStatusCode
    Showln "Response status code for DELETE: " iRespStatusCode

    // This will be non-empty if an error occurred.
    Showln sJsonStr


End_Procedure