(DataFlex) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    Boolean iSuccess
    Variant vBdRequestBody
    Handle hoBdRequestBody
    Variant vResp
    Handle hoResp
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

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

    Get Create (RefClass(cComChilkatBinData)) To hoBdRequestBody
    If (Not(IsComObjectCreated(hoBdRequestBody))) Begin
        Send CreateComObject of hoBdRequestBody
    End
    Get ComLoadFile Of hoBdRequestBody "c:/temp/EXTF_BS_20200101_1.csv" To iSuccess
    If (iSuccess <> True) Begin
        Showln "Failed to load the csv file."
        Procedure_Return
    End

    Send ComSetRequestHeader To hoHttp "accept" "application/json;charset=utf-8"
    Send ComSetRequestHeader To hoHttp "X-Datev-Client-ID" "clientId"
    Send ComSetRequestHeader To hoHttp "Client-Application-Version" "2.0c"
    Send ComSetRequestHeader To hoHttp "Filename" "EXTF_BS_20200101_1.csv"
    Send ComSetRequestHeader To hoHttp "Reference-Id" "Buchungsstapel_Verkäufe_2020_01_Nr_001"
    // Adds the "Authorization: Bearer REPLACE_BEARER_TOKEN" header.
    Set ComAuthToken Of hoHttp To "REPLACE_BEARER_TOKEN"

    Get pvComObject of hoBdRequestBody to vBdRequestBody
    Get ComPBinaryBd Of hoHttp "POST" "https://accounting-extf-files.api.datev.de/platform-sandbox/v3/clients/DATEV_USER_ID/extf-files/import" vBdRequestBody "application/octet-stream" False False To vResp
    If (IsComObject(vResp)) Begin
        Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
        Set pvComObject Of hoResp To vResp
    End
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComStatusCode Of hoResp To iTemp1
    Showln iTemp1
    Get ComBodyStr Of hoResp To sTemp1
    Showln sTemp1
    Send Destroy of hoResp


End_Procedure