Nesse vídeo demonstraremos a utilização da função IsAlpha, que serve para validar se uma variável possui letras.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "Totvs.ch"
/*/{Protheus.doc} zExe307
Valida se dentro de uma string ela possui letras (.T.) ou se começa com números (.F.)
@type Function
@author Atilio
@since 23/02/2023
@see https://tdn.totvs.com/display/tec/IsAlpha
@obs
Função IsAlpha
Parâmetros
+ cString , Caractere , Texto a ser validado
Retorno
+ lRet , Lógico , .T. se tiver letras do alfabeto ou .F. se começar com números
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe307()
Local aArea := FWGetArea()
Local cTexto := ""
//Teste de somente letras
cTexto := "Daniel"
If IsAlpha(cTexto)
FWAlertSuccess("O texto possui letras", "Teste 1 IsAlpha")
EndIf
//Teste de letras com números
cTexto := "Daniel 123 Atilio"
If IsAlpha(cTexto)
FWAlertSuccess("O texto possui letras", "Teste 2 IsAlpha")
EndIf
//Teste começando com números
cTexto := "3.14"
If IsAlpha(cTexto)
FWAlertSuccess("O texto possui letras", "Teste 3 IsAlpha")
EndIf
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
