PARAMIXB[1]Payable number. (Ref. 1)
AdvPL GuideUser Function F300FIL()Handles the payable processed in the former FINA300 SISPAG return flow.
The historical page documents four aCpos positions: payable number, installment size, payable number size and RecNo. Its example reads PARAMIXB directly, without an additional outer array. (TOTVS, ref. 1) The P12.2210 listing confirms aCpos as the fourth FA300PROCESSA argument. (Ref. 2) Legacy use: SISPAG was discontinued on 2022-08-20. The official migration table points to FA430FIL in FINA430; this does not establish identical contracts. (Ref. 3)
User Function F300FIL()PARAMIXB[1]Payable number. (Ref. 1)
PARAMIXB[2]Installment size. (Ref. 1)
PARAMIXB[3]Payable number size. (Ref. 1)
PARAMIXB[4]Payable RecNo. (Ref. 1)
The page leaves the return contract blank and its example ends without a value. The listed call does not assign the result. A logical approval or array replacement return is not established. (Refs. 1–2)
#Include "Protheus.ch"
User Function F300FIL()
// Defensive adaptation of aCpos reading in the official example (ref. 1).
// Legacy investigation only; SISPAG has been discontinued.
Local aData := PARAMIXB
If ValType(aData) == "A"
If Len(aData) >= 4
If ValType(aData[2]) == "N" .And. ValType(aData[3]) == "N"
// Does not log payable number or RecNo.
ConOut("F300FIL: installment size=" + Str(aData[2]) + ;
"; payable number size=" + Str(aData[3]))
EndIf
EndIf
EndIf
Return NilProposes observing received sizes without positioning aliases or changing payables. This is not a recommended new SISPAG implementation. Example not 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.