(PureBasic) Shopware 6 - Create Product

See more Shopware 6 Examples

Create a new product.

For more information, see https://docs.shopware.com/en/shopware-platform-dev-en/admin-api-guide/writing-entities#creating-entities

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i

    ; Sends the following POST

    ; POST /api/v3/product/
    ; {
    ;     "name" : "Test123",
    ;     "productNumber" : "random",
    ;     "stock" : 10,
    ;     "price" : [
    ;         {
    ;             "currencyId" : "b7d2554b0ce847cd82f3ac9bd1c0dfca", 
    ;             "gross": 15, 
    ;             "net": 10, 
    ;             "linked" : false
    ;         }
    ;     ],
    ;     "tax" : {
    ;         "name": "test", 
    ;         "taxRate": 15
    ;     }    
    ; }

    ; Use this online tool to generate code from sample JSON:
    ; Generate Code to Create JSON

    ; Create a product named "Test123"
    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckUpdateString(json,"name","Test123")
    CkJsonObject::ckUpdateString(json,"productNumber","XYZ-1234")
    CkJsonObject::ckUpdateInt(json,"stock",10)
    CkJsonObject::ckUpdateString(json,"price[0].currencyId","b7d2554b0ce847cd82f3ac9bd1c0dfca")
    CkJsonObject::ckUpdateInt(json,"price[0].gross",15)
    CkJsonObject::ckUpdateInt(json,"price[0].net",10)
    CkJsonObject::ckUpdateBool(json,"price[0].linked",0)
    CkJsonObject::ckUpdateString(json,"tax.name","test")
    CkJsonObject::ckUpdateInt(json,"tax.taxRate",15)

    ; Load the access token previously obtained in Shopware 6 OAuth2 Client Credentials
    jsonToken.i = CkJsonObject::ckCreate()
    If jsonToken.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckLoadFile(jsonToken,"qa_data/tokens/shopware6.json")

    ; This causes the "Authorization: Bearer <access_token>" header to be added.
    CkHttp::setCkAuthToken(http, CkJsonObject::ckStringOf(jsonToken,"access_token"))

    resp.i = CkHttp::ckPostJson3(http,"https://my-shopware-6-shop.de/api/v3/product","application/json",json)
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(json)
        CkJsonObject::ckDispose(jsonToken)
        ProcedureReturn
    EndIf

    sbResponseBody.i = CkStringBuilder::ckCreate()
    If sbResponseBody.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttpResponse::ckGetBodySb(resp,sbResponseBody)
    jResp.i = CkJsonObject::ckCreate()
    If jResp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckLoadSb(jResp,sbResponseBody)
    CkJsonObject::setCkEmitCompact(jResp, 0)

    ; A successful response is a 204 response status code with an empty response body.
    Debug "Response Body:"
    Debug CkJsonObject::ckEmit(jResp)

    ; If we get a 401 response, it may be that our access token expired and we need to fetch a new one.
    respStatusCode.i = CkHttpResponse::ckStatusCode(resp)
    Debug "Response Status Code = " + Str(respStatusCode)
    If respStatusCode >= 400
        Debug "Response Header:"
        Debug CkHttpResponse::ckHeader(resp)
        Debug "Failed."
        CkHttpResponse::ckDispose(resp)

        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(json)
        CkJsonObject::ckDispose(jsonToken)
        CkStringBuilder::ckDispose(sbResponseBody)
        CkJsonObject::ckDispose(jResp)
        ProcedureReturn
    EndIf

    CkHttpResponse::ckDispose(resp)



    CkHttp::ckDispose(http)
    CkJsonObject::ckDispose(json)
    CkJsonObject::ckDispose(jsonToken)
    CkStringBuilder::ckDispose(sbResponseBody)
    CkJsonObject::ckDispose(jResp)


    ProcedureReturn
EndProcedure