Nesse vídeo demonstraremos a utilização da função Replicate, que serve para replicar um caractere ou uma string um determinado número de vezes.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe411
Replica uma string com um número de vezes informado
@type Function
@author Atilio
@since 28/03/2023
@see https://tdn.totvs.com/pages/releaseview.action?pageId=24347047
@obs
Função Replicate
Parâmetros
Expressão caractere que será replicada
Número de vezes para replicar
Retorno
String já replicada
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe411()
Local aArea := FWGetArea()
Local cTeste := ""
//Replica "0" conforme tamanho do campo
cTeste := Replicate("0", TamSX3("B1_COD")[1])
FWAlertInfo("O resultado é: " + cTeste, "Teste 1 - Replicate")
//Replica uma string 10 vezes
cTeste := Replicate("*=-=", 10)
FWAlertInfo("O resultado é: " + cTeste, "Teste 2 - Replicate")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
