PARAMIXB[1]Número do título. (Ref. 1)
AdvPL GuiaUser Function F300FIL()Trata o título processado no retorno SISPAG da antiga FINA300.
A ficha histórica documenta aCpos com quatro posições: número do título, tamanho da parcela, tamanho do título e RecNo. O exemplo oficial lê diretamente PARAMIXB, sem um array externo adicional. (TOTVS, ref. 1) A listagem P12.2210 confirma aCpos como quarto argumento em FA300PROCESSA. (Ref. 2) Uso legado: o SISPAG foi descontinuado em 20/08/2022. A tabela oficial indica FA430FIL na migração para FINA430; isso não comprova contratos idênticos. (Ref. 3)
User Function F300FIL()PARAMIXB[1]Número do título. (Ref. 1)
PARAMIXB[2]Tamanho da parcela. (Ref. 1)
PARAMIXB[3]Tamanho do título. (Ref. 1)
PARAMIXB[4]RecNo do título. (Ref. 1)
A ficha não preenche o contrato de retorno e seu exemplo termina sem valor. A chamada listada não atribui resultado. Não há comprovação de retorno lógico de aprovação ou de substituição do array. (Refs. 1–2)
#Include "Protheus.ch"
User Function F300FIL()
// Adaptação defensiva da leitura de aCpos no exemplo oficial (ref. 1).
// Apenas estudo de ambiente legado; SISPAG descontinuado.
Local aDados := PARAMIXB
If ValType(aDados) == "A"
If Len(aDados) >= 4
If ValType(aDados[2]) == "N" .And. ValType(aDados[3]) == "N"
// Não registra número do título nem RecNo.
ConOut("F300FIL: tamanho parcela=" + Str(aDados[2]) + ;
"; tamanho titulo=" + Str(aDados[3]))
EndIf
EndIf
EndIf
Return NilPropõe observar os tamanhos recebidos, sem posicionar aliases ou alterar títulos. Não é uma nova implementação recomendada de SISPAG. Exemplo não compilado nem executado em Protheus.
© 2026 Usina.BR. Todos os direitos reservados. TOTVS, Protheus, Microsiga e seus respectivos logotipos são marcas de seus titulares. O AdvPL Guia é independente e utiliza citações limitadas, atribuídas e justificadas por finalidade educativa. Consulte os Termos de Uso. Termos de Uso
Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.