(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# 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

set bdRequestBody [new_CkBinData]

set success [CkBinData_LoadFile $bdRequestBody "c:/temp/EXTF_BS_20200101_1.csv"]
if {$success != 1} then {
    puts "Failed to load the csv file."
    delete_CkHttp $http
    delete_CkBinData $bdRequestBody
    exit
}

CkHttp_SetRequestHeader $http "accept" "application/json;charset=utf-8"
CkHttp_SetRequestHeader $http "X-Datev-Client-ID" "clientId"
CkHttp_SetRequestHeader $http "Client-Application-Version" "2.0c"
CkHttp_SetRequestHeader $http "Filename" "EXTF_BS_20200101_1.csv"
CkHttp_SetRequestHeader $http "Reference-Id" "Buchungsstapel_Verkäufe_2020_01_Nr_001"
# Adds the "Authorization: Bearer REPLACE_BEARER_TOKEN" header.
CkHttp_put_AuthToken $http "REPLACE_BEARER_TOKEN"

# resp is a CkHttpResponse
set resp [CkHttp_PBinaryBd $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_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkBinData $bdRequestBody
    exit
}

puts [CkHttpResponse_get_StatusCode $resp]
puts [CkHttpResponse_bodyStr $resp]
delete_CkHttpResponse $resp


delete_CkHttp $http
delete_CkBinData $bdRequestBody