No vídeo de hoje, vamos demonstrar em como validar se o conteúdo digitado em um FWInputBox possui apenas números.

A dúvida de hoje, nos perguntaram, se seria possível acionar uma validação para que, num FWInputBox o usuário digite apenas números.

Pensando nisso, montamos um exemplo, onde vamos mostrar como usar a função IsNumeric junto com a FWInputBox.

Segue abaixo o vídeo exemplificando:

E abaixo o código fonte desenvolvido:

//Bibliotecas TLPP
#Include "tlpp-core.th"

//Declaração da namespace
Namespace custom.terminal.youtube

/*/{Protheus.doc} User Function video0175
Função para que só permita digitar valores numéricos em um FWInputBox
@type  Function
@author Atilio
@since 14/06/2024
@example custom.terminal.youtube.u_video0175()
/*/

User Function video0175()
    Local aArea       := FWGetArea()   As Array
    Local cInputText  := ""            As Character
    Local nValue      := 0             As Numeric

    //Faz um laço infinito
    While .T.
        //Pega o valor
        cInputText := FWInputBox("Coloque um valor:")

        //Se tiver conteúdo e só números, encerra o laço
        If ! Empty(cInputText) .And. IsNumeric(cInputText)
            Exit
        EndIf
    EndDo

    //Converte o valor e mostra numa mensagem
    nValue := Val(cInputText)
    FWAlertInfo(FormatStr("Valor digitado: %n", {nValue}), "Resultado")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheusTLPP