Xbase++ Requires Chilkat v11.0.0+

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. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oBdRequestBody
LOCAL oResp
LOCAL cUrl

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

//  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

oBdRequestBody := CreateObject("Chilkat.BinData")
nSuccess := oBdRequestBody:LoadFile("c:/temp/EXTF_BS_20200101_1.csv")
IF (nSuccess != 1)
    ? "Failed to load the csv file."
    oHttp:destroy()
    oBdRequestBody:destroy()
    RETURN
ENDIF

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

oResp := CreateObject("Chilkat.HttpResponse")
cUrl := "https://accounting-extf-files.api.datev.de/platform-sandbox/v3/clients/DATEV_USER_ID/extf-files/import"
nSuccess := oHttp:HttpBd("POST", cUrl, oBdRequestBody, "application/octet-stream", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oBdRequestBody:destroy()
    oResp:destroy()
    RETURN
ENDIF

? Str(oResp:StatusCode)
? oResp:BodyStr

oHttp:destroy()
oBdRequestBody:destroy()
oResp:destroy()