Entry point contextThe listed call has no explicit fourth argument. PARAMIXB contents and available aliases are unconfirmed; the example array belongs solely to the exercise.
AdvPL GuideExecBlock("F060LOOP", .F., .F.)Receivable filter associated with FINA060/FINA061. Listed call, pending contract and an isolated example for checking a selection rule.
The official index classifies F060LOOP as a receivable filter in FINA060/FINA061 and leaves its specific page under construction. (TOTVS, n.d., ref. 1) The call listing records ExecBlock("F060LOOP", .F., .F.) in both routines. (TOTVS, n.d., ref. 2) It does not show the expression consuming the return value, active alias or selection timing. It therefore does not establish that .T. includes a receivable or .F. terminates processing. This page is under review, based on indexed evidence with restricted full access. The example exercises a fictional rule outside the entry point to help check expected results.
ExecBlock("F060LOOP", .F., .F.)Entry point contextThe listed call has no explicit fourth argument. PARAMIXB contents and available aliases are unconfirmed; the example array belongs solely to the exercise.
The type and meaning of the F060LOOP return are unconfirmed in the sources located. Logical values calculated by the helper do not establish the entry point contract.
#Include "Protheus.ch"
User Function ExF060Loop()
Local aCases := {{100, .T.}, {0, .T.}, {100, .F.}}
Local nIndex := 0
Local lEligible := .F.
// Fictional rule: positive amount and local exercise authorization.
// We neither read SE1 nor define the F060LOOP return value.
For nIndex := 1 To Len(aCases)
lEligible := aCases[nIndex][1] > 0 .And. aCases[nIndex][2]
If lEligible
ConOut("Eligible case in exercise")
Else
ConOut("Ineligible case in exercise")
EndIf
Next nIndex
Return
The first case is eligible; the second and third are ineligible under the fictional rule. This does not demonstrate Protheus receivable selection behavior. Once the contract is confirmed, compare these groups against standard processing in a test environment. The example has not been compiled or run in Protheus.
© 2026 Usina.BR. All rights reserved. TOTVS, Protheus, Microsiga and their respective logos are trademarks of their owners. AdvPL Guide is independent and uses limited, attributed excerpts justified by educational purposes. See the Terms of Use. Terms of Use
Comments
There are no approved comments yet.
Sign in with Google or Microsoft to comment.