Validação de anos em campos do tipo Data | Ti Responde 023

No vídeo de hoje, vamos demonstrar em como criar uma validação de anos, na digitação do conteúdo de um campo do tipo Data.

Hoje, a dúvida foi feita pelo grande Gomes, onde ele perguntou, se teria como criar uma funcionalidade e colocar em campos e validações, onde o conteúdo seja do tipo Data.

Essa validação, teria que ver a diferença em anos, e caso for maior que 1, que seja exibido uma mensagem ao usuário.

E abaixo o código fonte desenvolvido para exemplificar:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zVldData
Função para validar a data digitada nos campos
@type  Function
@author Atilio
@since 14/03/2022
@obs Colocar u_zVldData() na validação (X3_VLDUSER) dos campos
/*/

User Function zVldData()
    Local aArea      := GetArea()
    Local dDataCampo := &(ReadVar())
    Local dDataAtu   := Date()
    Local lRet       := .T.

    //Se a diferença passar de 1 ano, mostrar mensagem de falha
    If DateDiffYear(dDataAtu, dDataCampo) >= 1
        Help(, , "Help", , "Cadastro Inválido!", 1, 0, , , , , , {"A data informada passa de 1 ano!"})
        lRet := .F.
    EndIf

    RestArea(aArea)
Return lRet

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Dan (Daniel Atilio)
Especialista em Engenharia de Software pela FIB. Entusiasta de soluções Open Source. E blogueiro nas horas vagas.

Deixe uma resposta