Nesse vídeo demonstraremos como validar se uma data é um dia útil (se não é feriado ou fim de semana) através da função DataValida.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas #Include "TOTVS.ch" /*/{Protheus.doc} User Function zExe106 Retorna a próxima data válida (sem ser fim de semana ou feriado) @type Function @author Atilio @since 12/12/2022 @see https://tdn.totvs.com/pages/releaseview.action?pageId=6815098 @obs Função DataValida Parâmetros + dData , Data , Data a ser validada + lTipo , Lógico , .T. se posterga para a próxima data válida ou .F. se retrocede para data válida anterior Retorno + dData , Data , Data válida do sistema **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao **** /*/ User Function zExe106() Local aArea := FWGetArea() Local dData := sToD("20221210") Local dDataVld //Busca a data válida dDataVld := DataValida(dData) //Se for diferente, exibe a mensagem dizendo que era feriado ou fim de semana If dData != dDataVld FWAlertInfo("Fim de semana ou feriado!" + CRLF + "dData: " + DToC(dData) + CRLF + "dDataVld: " + DToC(dDataVld), "Teste DataValida") Else FWAlertInfo("Datas iguais", "Teste DataValida") EndIf FWRestArea(aArea) Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.