Nesse vídeo demonstraremos a utilização da função FDatasCum, que serve para buscar as datas de um intervalo.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas #Include "TOTVS.ch" /*/{Protheus.doc} User Function zExe170 Retorna as datas de um intervalo @type Function @author Atilio @since 19/12/2022 @obs Função FDatasCum Parâmetros + Período a ser validado sendo 1= Diário; 2= Compatibilidade (Semanal); 3= Decendial; 4= Mensal + Data de referência Retorno + Array com as datas do intervalo encontrado **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao **** /*/ User Function zExe170() Local aArea := FWGetArea() Local dDataRef := Date() Local aDiario := {} Local aDecendial := {} Local aMensal := {} Local cMensagem := "" //Busca os períodos aDiario := FDatasCum("1", dDataRef) aDecendial := FDatasCum("3", dDataRef) aMensal := FDatasCum("4", dDataRef) //Monta a mensagem com os períodos cMensagem += "Diario: " + CenArr2Str(aDiario[1], ";") + CRLF cMensagem += "Decendio: " + CenArr2Str(aDecendial[1], ";") + CRLF cMensagem += "Mensal: " + CenArr2Str(aMensal[1], ";") FWAlertInfo(cMensagem, "Teste com FDatasCum") FWRestArea(aArea) Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.