Introductory report exercise

Overview

A report needs data selection, presentation and aggregation rules. TReport organizes reports, sections, cells and totals; these details need not obscure the first calculation test. In this editorial exercise, visit two fictional rows, display each quantity and total them; expect 5. When implementing printing, map title, columns and totals to the selected component. This is console preparation rather than a TReport implementation or validated print output. (TOTVS, n.d., refs. 1–2)

Commented example

#Include "Protheus.ch"
User Function Ed372()
    Local aQuantities := {2, 3}
    Local nIndex
    Local nTotal := 0
    // Validate totals before adding layout and printer.
    For nIndex := 1 To Len(aQuantities)
        ConOut(cValToChar(aQuantities[nIndex]))
        nTotal += aQuantities[nIndex]
    Next nIndex
    ConOut("Total: " + cValToChar(nTotal))
Return Nil

Related content