PadR

Reading time: 2 minutes

A função PadR  é uma função de manipulação de string em ADVPL. Essa função tem por finalidade adicionar caracteres de preenchimento à direita do conteúdo de uma variável passada como parâmetro.

Sintaxe:

PadR(xExp,nTam,cCarac)

Parâmetro(s):

Retorno:

Observações sobre a função PadR:

• PadR transforma o valor apontado por xExp em string (igual ao comportamento da função cValToChar), e adiciona o caractere definido em cCarac à direita do valor de xExp até que seja atingido o tamanho definido em nTam.
• Caso o terceiro parâmetro cCarac não seja especificado PadR preencherá com o espaço em branco (” “).
• A função PadR utilizará apenas o primeiro caractere da string apontada por cCarac.
• Caso o tamanho de xExp convertido para string for maior que o especificado em nTam, a função retornará o conteúdo de xExp truncado, de forma que o seu comprimento final seja igual ao definido em nTam.
• Caso a nTam seja menor ou igual a 0 (zero), a função retornará uma string vazia (“”).

No exemplo abaixo em ADVPL nós passamos à variável xExp com o conteúdo “1000”, informamos o tamanho 15 definimo em nTam que ficará o conteúdo de xExp após o preenchimento do caractere “2” definido em cCarac pela função PadR. Ao final a nova variável cExp terá o conteúdo “100022222222222”:

#include 'protheus.ch'

/*{Protheus.doc} User Function fPadR
    (Essa função tem por finalidade mostrar a função de Manipulação de String PadR em ADVPL)
    @type  Function
    @author Adilio Costa
    @since 08/10/2022
    @version Protheus 12.1.2210
    @site https://www.protheusadvpl.com.br
    @canal https://www.youtube.com/protheusadvpl
    @instagram https://www.instagram.com/protheusadvpl
    @Portal ProtheusAdvpl:https://hotmart.com/pt-br/marketplace/produtos/portal-protheusadvpl/O10336806O
    @Post:PadR
*/

//Exemplo da função PadR
User Function fPadR()
    //Variável que terá seu conteúdo preenchido à direita
    Local xExp := "1000" 
    Local nTam := 15 //Tamanho da nova variável
    Local cCarac := "2" //Caractere que será adicionado a direita do conteúdo
    Local cExp := ""

        cExp := PadR(xExp,nTam,cCarac)

 
    MsgInfo("O novo código do produto "+xExp+" é:"+cExp,"Exemplo da função PadR")
 
Return

É isso aí, finalizamos aqui o post sobre a função ADVPL PadR, caso tenha ficado alguma dúvida deixe seu comentário ou me envie um email para adiliocosta@protheusadvpl.com.br, até um próximo post, grande abraço e fica com Deus.

Link(s) de referência(s):https://tdn.totvs.com/display/tec/PadR