Alinhando um Texto com JustificaTXT em ADVPL

Adilio Costa 28 de setembro de 2025 Manipulação de String

Tempo de leitura: 2 minutos

A função JustificaTXT em ADVPL alinha texto em relatórios ou telas do Protheus, ajustando espaços entre palavras para que as linhas tenham o mesmo comprimento, exceto a última. Isso melhora a apresentação visual e formatação do texto. Ela é uma das funções de manipulação de string em ADVPL.

Sintaxe:

JustificaTXT(cTexto,nCarac)

Parâmetro(s):

Retorno:

Exemplo da função JustificaTXT em ADVPL:

#include 'protheus.ch'

/*{Protheus.doc} User Function fJustTXT
    (Essa função tem por finalidade mostrar a função de Manipulação de String JustificaTXT em ADVPL)
    @type  Function
    @author Adilio Costa
    @since 26/09/2025
    @version 1.0
@?Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@?Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@?Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@?Conheça os Cursos e Formações do ProtheusAdvpl:
https://cursos-e-formacoes-protheusadvpl.gr-site.com/

@Participe de nossas comunidades no WhatsApp:
-Comunidade Protheus Backoffice:https://chat.whatsapp.com/KMUIAjwZ6EZ6eAHsLkPTyb
-Comunidade Protheus-RH:https://chat.whatsapp.com/L5dUyAna6xU4ylG5DUgfOW
-Comunidade Protheus-Programação:https://chat.whatsapp.com/LsD6z0apdqKHlOz67bcaEn
-Comunidade Protheus-Framework:https://chat.whatsapp.com/BzUFpjaSnTC3vtsfa77jmG

|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|

*/
User Function fJustTXT()
	Local cQLIN := Chr(13)+Chr(10)
	Local cTexto  := ""
    Local cTextoJust := ""
    Local aDadosJust := ""
    Local cMsg := ""
    Local nI

    cTexto  := "O Portal ProtheusAdvpl é uma das maiores plataformas de conteúdos "
	cTexto += " sobre o ERP TOTVS Protheus e sua linguagem de programação ADVPL/TLPP. "
	cTexto += "Nessa plataforma temos uma trilha chamada CPA, de Carreira ProtheusAdvpl. "
	cTexto += "Na trilha CPA1(Carreira ProtheusAdvpl1) temos assuntos relacionados à "
	cTexto += "infraestrutura do TOTVS Protheus e ferramentas auxiliares. "
	cTexto += "Na trilha CPA2(Carreira ProtheusAdvpl2) temos assuntos relacionados à "
	cTexto += "Programação ADVPL I, ADVPL II, ADVPL III, ADVPL Web Service e TLPP. "
	cTexto += "Na trilha CPA3(Carreira ProtheusAdvpl3) temos assuntos relacionados aos "
	cTexto += "Módulos do Protheus(Compras,Estoque e Custos, Faturamento... ) "
	cTexto += "e Documentos Eletrônicos no TOTVS Protheus."

	aDadosJust := JustificaTXT(cTexto,45)

    For nI := 1 To Len(aDadosJust)
        cTextoJust += aDadosJust[nI] + cQLIN
    Next nI

    cMsg := "Texto Original:"+cQLIN+cQLIN+cTexto+cQLIN+cQLIN+cQLIN
    cMsg += "Texto Justificado com JustificaTXT a cada 45 caracteres:"+cQLIN+cQLIN+cTextoJust

    FWAlertInfo(cMsg,"Função JustificaTXT")



Return

É isso aí, finalizamos aqui o post aqui do Blog ProtheusAdvpl. Caso tenha ficado alguma dúvida deixe seu comentário ou nos envie um e-mail para adiliocosta@protheusadvpl.com.br, até um próximo post, grande abraço e fica com Deus.