PARAMIXB[1] / aTitulosTítulos; posição 8 da linha: marcação lógica. (Refs. 1–2)
AdvPL GuiaUser Function F340MKTIT()Personaliza a marcação dos títulos apresentados na compensação.
O TDN documenta o array aTitulos e a posição 8 de cada linha como marcação lógica. P12.2210 passa {aTitulos} e substitui o array pelo retorno. O arquivo público PE_FINA340.PRW do GitHub declara xF340MKTIT, clona PARAMIXB inteiro e altera a posição 1: o nome e o acesso não correspondem diretamente ao contrato documentado. Ele serve como material de análise, não como implementação validada. (Refs. 1–3)
User Function F340MKTIT()PARAMIXB[1] / aTitulosTítulos; posição 8 da linha: marcação lógica. (Refs. 1–2)
Array de títulos com as marcações desejadas, preservando as demais colunas.
#Include "Protheus.ch"
User Function F340MKTIT()
// Regra didatica: iniciar sem titulos marcados; adaptacao do contrato TOTVS.
Local aTitulos := AClone(PARAMIXB[1])
Local nLinha := 0
For nLinha := 1 To Len(aTitulos)
If ValType(aTitulos[nLinha]) == "A"
If Len(aTitulos[nLinha]) >= 8
If ValType(aTitulos[nLinha][8]) == "L"
aTitulos[nLinha][8] := .F.
EndIf
EndIf
EndIf
Next
Return aTitulosProposta didática com o comportamento descrito nos comentários. Conferir o contexto antes de compilar em homologação. Em revisão: exemplo não compilado nem executado em Protheus. Aliases, bloqueios, posição na transação e compatibilidade devem ser conferidos no release e patch utilizados.
// Trecho do chamador P12.2210 (EURAI, ref. 2); não é implementação do PE.
// FINA340.PRX - FA340COMP() -> ATITULOS := EXECBLOCK("F340MKTIT",.F.,.F.,{ATITULOS})O registro mostra argumentos e uso imediato do retorno quando presentes. Não inclui o corpo completo do chamador nem comprova a posição do commit.
© 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.