Nesse vídeo demonstraremos a utilização da função DtValVcto, para validar se uma data poderá ser utilizada em algum campo de vencimento.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas #Include "TOTVS.ch" /*/{Protheus.doc} User Function zExe149 Função que valida a data de vencimento (não pode ser mais que 360 dias ou menor que a data logada) @type Function @author Atilio @since 16/12/2022 @obs Função DtValVcto Parâmetros + Data de Vencimento Retorno + Retorna .T. se é válida ou .F. se não **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao **** /*/ User Function zExe149() Local aArea := FWGetArea() Local dDataVenc //Monta a data de vencimento com 3 dias atrás dDataVenc := DaySub(Date(), 3) If DtValVcto(dDataVenc) FWAlertSuccess("A data de vencimento '" + dToC(dDataVenc) + "' é válida", "Teste 1 DtValVcto") Else FWAlertError("A data de vencimento '" + dToC(dDataVenc) + "' não é válida", "Teste 1 DtValVcto") EndIf //Monta a data de vencimento com 1 ano no futuro dDataVenc := YearSum(Date(), 1) If DtValVcto(dDataVenc) FWAlertSuccess("A data de vencimento '" + dToC(dDataVenc) + "' é válida", "Teste 2 DtValVcto") Else FWAlertError("A data de vencimento '" + dToC(dDataVenc) + "' não é válida", "Teste 2 DtValVcto") EndIf //Monta a dta de vencimento daqui 5 dias dDataVenc := DaySum(Date(), 5) If DtValVcto(dDataVenc) FWAlertSuccess("A data de vencimento '" + dToC(dDataVenc) + "' é válida", "Teste 3 DtValVcto") Else FWAlertError("A data de vencimento '" + dToC(dDataVenc) + "' não é válida", "Teste 3 DtValVcto") EndIf FWRestArea(aArea) Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.