Nesse vídeo demonstraremos a utilização da função Right, que serve para pegar o fim de uma string, conforme uma quantidade de caracteres informada.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe425
Pega o fim de um texto até determinada posição
@type Function
@author Atilio
@since 11/03/2023
@see https://tdn.totvs.com/display/tec/Right
@obs
Função Right
Parâmetros
+ cText , Caractere , Texto que será analisado
+ nCount , Numérico , Indica o número de caracteres
Retorno
+ cRet , Caractere , Retorna o texto até aquela determinada posição
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe425()
Local aArea := FWGetArea()
Local cNome := "Daniel"
Local cAbreviad := ""
//Pega só os 3 últimos caracteres do texto
cAbreviad := Right(cNome, 3)
//Mostra o resultado
FWAlertInfo("O nome '" + cNome + "', somente os 3 últimos caracteres fica como '" + cAbreviad + "'", "Teste Right")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
