Go Requires Chilkat v11.0.0+

PayPal: Export a day of balance activity to CSV

See more PayPal Examples

Create a UTF-8 ledger export for the previous UTC day. Preserve signed amounts and separate currencies, and leave absent fees blank. The file is written after all pages have been read. Transaction Search can lag by several hours.

PayPal documentation

Go

    success := false

    //  See Unlock Chilkat before making requests.
    //  For the merchant's internal backoffice application. Load the sandbox token
    //  from the merchant's credential store. Keep it out of publicly distributed apps.
    //  See Get a PayPal access token.
    http := chilkat.NewHttp()
    http.SetAuthToken("SANDBOX_ACCESS_TOKEN")
    resp := chilkat.NewHttpResponse()
    //  Export yesterday in UTC; choose an earlier date if the report is still refreshing.
    day := chilkat.NewCkDateTime()
    day.SetFromCurrentSystemTime()
    day.AddDays(-1)
    utcDate := day.GetAsIso8601("YYYY-MM-DD",false)
    startTime := chilkat.NewStringBuilder()
    startTime.Append(*utcDate)
    startTime.Append("T00:00:00Z")
    endTime := chilkat.NewStringBuilder()
    endTime.Append(*utcDate)
    endTime.Append("T23:59:59.999Z")
    query := chilkat.NewJsonObject()
    query.UpdateString("start_date",*startTime.GetAsString())
    query.UpdateString("end_date",*endTime.GetAsString())
    query.UpdateString("balance_affecting_records_only","Y")
    query.UpdateString("fields","transaction_info")
    query.UpdateInt("page_size",100)
    csv := chilkat.NewCsv()
    csv.SetHasColumnNames(true)
    csv.SetColumnName(0,"transaction_id")
    csv.SetColumnName(1,"event_code")
    csv.SetColumnName(2,"status")
    csv.SetColumnName(3,"currency")
    csv.SetColumnName(4,"amount")
    csv.SetColumnName(5,"fee_currency")
    csv.SetColumnName(6,"fee")
    row := 0
    page := 1
    lastPage := 1
    for (page <= lastPage) {
        query.UpdateInt("page",page)
        success = http.HttpParams("GET","https://api-m.sandbox.paypal.com/v1/reporting/transactions",query,resp)
        if success != true {
            fmt.Println("No HTTP response: ", http.LastErrorText())
            http.DisposeHttp()
            resp.DisposeHttpResponse()
            day.DisposeCkDateTime()
            startTime.DisposeStringBuilder()
            endTime.DisposeStringBuilder()
            query.DisposeJsonObject()
            csv.DisposeCsv()
            return
        }

        if (resp.StatusCode() < 200) || (resp.StatusCode() >= 300) {
            errorInfo := chilkat.NewJsonObject()
            errorInfo.Load(resp.BodyStr())
            fmt.Println("HTTP ", resp.StatusCode(), " ", *errorInfo.StringOf("name"), " ", *errorInfo.StringOf("details[0].issue"))
            fmt.Println("PayPal debug ID: ", *errorInfo.StringOf("debug_id"))
            http.DisposeHttp()
            resp.DisposeHttpResponse()
            day.DisposeCkDateTime()
            startTime.DisposeStringBuilder()
            endTime.DisposeStringBuilder()
            query.DisposeJsonObject()
            csv.DisposeCsv()
            errorInfo.DisposeJsonObject()
            return
        }

        result := chilkat.NewJsonObject()
        parsedResult := result.Load(resp.BodyStr())
        if parsedResult != true {
            fmt.Println("Expected a JSON response; HTTP ", resp.StatusCode())
            http.DisposeHttp()
            resp.DisposeHttpResponse()
            day.DisposeCkDateTime()
            startTime.DisposeStringBuilder()
            endTime.DisposeStringBuilder()
            query.DisposeJsonObject()
            csv.DisposeCsv()
            errorInfo.DisposeJsonObject()
            result.DisposeJsonObject()
            return
        }

        i := 0
        count := result.SizeOfArray("transaction_details")
        for (i < count) {
            result.SetI(i)
            csv.SetCell(row,0,*result.StringOf("transaction_details[i].transaction_info.transaction_id"))
            csv.SetCell(row,1,*result.StringOf("transaction_details[i].transaction_info.transaction_event_code"))
            csv.SetCell(row,2,*result.StringOf("transaction_details[i].transaction_info.transaction_status"))
            csv.SetCell(row,3,*result.StringOf("transaction_details[i].transaction_info.transaction_amount.currency_code"))
            csv.SetCell(row,4,*result.StringOf("transaction_details[i].transaction_info.transaction_amount.value"))
            csv.SetCell(row,5,*result.StringOf("transaction_details[i].transaction_info.fee_amount.currency_code"))
            csv.SetCell(row,6,*result.StringOf("transaction_details[i].transaction_info.fee_amount.value"))
            row = row + 1
            i = i + 1
        }

        lastPage = result.IntOf("total_pages")
        page = page + 1
    }

    filename := chilkat.NewStringBuilder()
    filename.Append("paypal-activity-")
    filename.Append(*utcDate)
    filename.Append(".csv")
    saved := csv.SaveFile2(*filename.GetAsString(),"utf-8")
    if saved != true {
        fmt.Println(csv.LastErrorText())
        http.DisposeHttp()
        resp.DisposeHttpResponse()
        day.DisposeCkDateTime()
        startTime.DisposeStringBuilder()
        endTime.DisposeStringBuilder()
        query.DisposeJsonObject()
        csv.DisposeCsv()
        errorInfo.DisposeJsonObject()
        result.DisposeJsonObject()
        filename.DisposeStringBuilder()
        return
    }

    fmt.Println("Exported ", row, " rows to ", *filename.GetAsString())

    http.DisposeHttp()
    resp.DisposeHttpResponse()
    day.DisposeCkDateTime()
    startTime.DisposeStringBuilder()
    endTime.DisposeStringBuilder()
    query.DisposeJsonObject()
    csv.DisposeCsv()
    errorInfo.DisposeJsonObject()
    result.DisposeJsonObject()
    filename.DisposeStringBuilder()