Tempo de leitura: 2 minutos
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