ENTRY POINTUnder review

F340MKTIT

User Function F340MKTIT()

Customizes selection marks on titles presented for compensation.

F340MKTITFINA340

01 · OVERVIEW

Overview

TDN documents the aTitulos array with logical selection at row position 8. P12.2210 passes {aTitulos} and replaces the array with the return. The public GitHub PE_FINA340.PRW declares xF340MKTIT, clones all of PARAMIXB and changes position 1: its name and access do not directly match the documented contract. It is analysis material, not a validated implementation. (Refs. 1–3)

02 · SYNTAX

Syntax

User Function F340MKTIT()

Parameters

PARAMIXB[1] / aTitulos

ArrayExecution context

Titles; row position 8: logical selection. (Refs. 1–2)

Return value

Title array with the desired marks, preserving other columns.

03 · PRACTICAL EXAMPLE

Editorial example based on documentation

#Include "Protheus.ch"

User Function F340MKTIT()
    // Teaching rule: start without selected titles; adapted from the TOTVS contract.
    Local aTitles := AClone(PARAMIXB[1])
    Local nRow := 0
    For nRow := 1 To Len(aTitles)
        If ValType(aTitles[nRow]) == "A"
            If Len(aTitles[nRow]) >= 8
                If ValType(aTitles[nRow][8]) == "L"
                    aTitles[nRow][8] := .F.
                EndIf
            EndIf
        EndIf
    Next
Return aTitles

Expected result

Teaching proposal with behavior described in comments. Verify the context before compiling in a test environment. Under review: example not compiled or run in Protheus. Verify aliases, locks, transaction position and compatibility in the target release and patch.

04 · PRACTICAL EXAMPLE

Observed call and context

// P12.2210 caller excerpt (EURAI, ref. 2); not an entry point implementation.
// FINA340.PRX - FA340COMP() -> ATITULOS := EXECBLOCK("F340MKTIT",.F.,.F.,{ATITULOS})

Expected result

The record shows arguments and immediate return use where present. It omits the full caller body and does not establish commit timing.

BEST PRACTICES

The editorial example clears marks on structurally valid rows as an explicit teaching rule. Test initial selection, totals and confirmation. Do not assume xF340MKTIT is automatically invoked.
A call without a fourth argument does not document a PARAMIXB layout. Preserve caller identifiers and do not invent fields or positions.
Test plan: compare standard and customized flows, exercise success, rejection and repetition, and inspect balances, movements and accounting as applicable.
Under review: example not compiled or run in Protheus. Verify aliases, locks, transaction position and compatibility in the target release and patch.