Nesse vídeo demonstraremos a utilização da função RetSegunda, que serve para buscar a última segunda feira conforme data informada.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe418
Busaca a última segunda feira
@type Function
@author Atilio
@since 22/02/2023
@obs 

    Função RetSegunda
    Parâmetros
        Recebe uma data de referência
    Retorno
        Se recebeu um domingo no parâmetro avança pra próxima segunda do contrário se for outros dias (terça; quarta; etc) vem retroagindo até a última segunda

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe418()
    Local aArea      := FWGetArea()
    Local dDataRef   := sToD("20230329")
    Local dUltSegun

    //Busca a última segunda feira, conforme data passada
    dUltSegun := RetSegunda(dDataRef)

    //Exibe uma mensagem
    FWAlertInfo("Para a data '" + dToC(dDataRef) + "', a última segunda é '" + dToC(dUltSegun) + "'", "Teste RetSegunda")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++