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.