Linha Microsiga Protheus

Árvore de páginas

Retorna uma lista de períodos até a data atual, conforme o tipo e quantidade de períodos parametrizados.

Parâmetros

NomeTipoDescrição
cTipoCaracterCódigo com o tipo do período. Valores aceitos: D (Diário), S (Semanal), Q (Quinzenal), M(Mensal).
cPeriodosCaracterQuantidade de períodos.


Retorno

TipoDescrição
ArrayMatriz da lista de períodos anteriores com as colunas de data inicio e fim de cada período.


Exemplo de Uso

User Function perPassado()
    Local lRet  := .T.
    
    Set(_SET_DATEFORMAT, 'dd/mm/yyyy')
    Private dDatabase := cToD("31/10/2023")

    ConOut(REPLICATE("-",70))
    
    //Tipo D: {31/10/2023,31/10/2023}|{30/10/2023,30/10/2023}|{29/10/2023,29/10/2023}|{28/10/2023,28/10/2023}|{27/10/2023,27/10/2023}
    ConOut("Tipo D: " + ArrTokStr(PCPMonitorUtils():RetornaListaPeriodosPassado("D","4")))

    //Tipo S: {29/10/2023,31/10/2023}|{22/10/2023,28/10/2023}|{15/10/2023,21/10/2023}|{08/10/2023,14/10/2023}|{01/10/2023,07/10/2023}
    ConOut("Tipo S: " + ArrTokStr(PCPMonitorUtils():RetornaListaPeriodosPassado("S","4")))

    //Tipo Q: {16/10/2023,31/10/2023}|{01/10/2023,15/10/2023}|{16/09/2023,30/09/2023}|{01/09/2023,15/09/2023}|{16/08/2023,31/08/2023}
    ConOut("Tipo Q: " + ArrTokStr(PCPMonitorUtils():RetornaListaPeriodosPassado("Q","4")))

    //Tipo M: {01/10/2023,31/10/2023}|{01/09/2023,30/09/2023}|{01/08/2023,31/08/2023}|{01/07/2023,31/07/2023}|{01/06/2023,30/06/2023}
    ConOut("Tipo M: " + ArrTokStr(PCPMonitorUtils():RetornaListaPeriodosPassado("M","4")))

    ConOut(REPLICATE("-",70))

Return lRet
  • Sem rótulos