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.
