(PureBasic) Datev - Upload File (Transfer a file to DATEV data center)

See more Datev Examples

Note: This example requires Chilkat v10.1.3 or greater.

For more information, see https://developer.datev.de/en/product-detail/accounting-extf-files/2.0/reference/reference-api-overview/accountingextffiles/clients-client-id-extf-files-import-post

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkBinData.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkHttpResponse.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

    ; Implements the following CURL command:

    ; curl --request POST \
    ;   --url "https://accounting-extf-files.api.datev.de/platform-sandbox/v3/clients/REPLACE_CLIENT-ID/extf-files/import" \
    ;   --header "Authorization: Bearer REPLACE_BEARER_TOKEN" \
    ;   --header "X-Datev-Client-ID: clientId" \
    ;   --header "accept: application/json;charset=utf-8" \
    ;   --header "content-type: application/octet-stream" \
    ;   --header "Filename: EXTF_BS_20200101_1.csv" \
    ;   --header "Reference-Id: Buchungsstapel_Verkäufe_2020_01_Nr_001" \
    ;   --header "Client-Application-Version: 2.0c" \
    ;   --data-binary "@REPLACE_BODY"

    ; Use the following online tool to generate HTTP code from a CURL command
    ; Convert a cURL Command to HTTP Source Code

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

    success = CkBinData::ckLoadFile(bdRequestBody,"c:/temp/EXTF_BS_20200101_1.csv")
    If success <> 1
        Debug "Failed to load the csv file."
        CkHttp::ckDispose(http)
        CkBinData::ckDispose(bdRequestBody)
        ProcedureReturn
    EndIf

    CkHttp::ckSetRequestHeader(http,"accept","application/json;charset=utf-8")
    CkHttp::ckSetRequestHeader(http,"X-Datev-Client-ID","clientId")
    CkHttp::ckSetRequestHeader(http,"Client-Application-Version","2.0c")
    CkHttp::ckSetRequestHeader(http,"Filename","EXTF_BS_20200101_1.csv")
    CkHttp::ckSetRequestHeader(http,"Reference-Id","Buchungsstapel_Verkäufe_2020_01_Nr_001")
    ; Adds the "Authorization: Bearer REPLACE_BEARER_TOKEN" header.
    CkHttp::setCkAuthToken(http, "REPLACE_BEARER_TOKEN")

    resp.i = CkHttp::ckPBinaryBd(http,"POST","https://accounting-extf-files.api.datev.de/platform-sandbox/v3/clients/DATEV_USER_ID/extf-files/import",bdRequestBody,"application/octet-stream",0,0)
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkBinData::ckDispose(bdRequestBody)
        ProcedureReturn
    EndIf

    Debug Str(CkHttpResponse::ckStatusCode(resp))
    Debug CkHttpResponse::ckBodyStr(resp)
    CkHttpResponse::ckDispose(resp)



    CkHttp::ckDispose(http)
    CkBinData::ckDispose(bdRequestBody)


    ProcedureReturn
EndProcedure