PureBasic

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

See more Datev Examples

Demonstrates how to transfer a file to the DATEV data center. PureBasic

IncludeFile "CkBinData.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkHttpResponse.pb"

Procedure ChilkatExample()

    success.i = 0

    ; 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

    ; 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 = CkHttpResponse::ckCreate()
    If resp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

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

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


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


    ProcedureReturn
EndProcedure