Linha Microsiga Protheus

Árvore de páginas

Busca a data de início do próximo período conforme o tipo do período e data parametrizada.

Parâmetros

NomeTipoDescriçãoReferência
cTipoCaracterCódigo com o tipo do período. Valores aceitos: D (Diário), S (Semanal), Q (Quinzenal), M (Mensal) 
dDataDataData base para o cálculo.X


Exemplo de Uso

User Function proxPeriod()
    Local lRet  := .T.
    Local dData := Nil

    Set(_SET_DATEFORMAT, 'dd/mm/yyyy')

    ConOut(REPLICATE("-",70))
    dData := cToD("31/10/2023")
    PCPMonitorUtils():BuscaProximoPeriodo("D",@dData)
    ConOut("Diario: " + dToC(dData)) //Diario: 01/11/2023

    dData := cToD("31/10/2023")
    PCPMonitorUtils():BuscaProximoPeriodo("S",@dData)
    ConOut("Semanal: " + dToC(dData)) //Semanal: 05/11/2023

    dData := cToD("31/10/2023")
    PCPMonitorUtils():BuscaProximoPeriodo("Q",@dData)
    ConOut("Quinzenal: " + dToC(dData)) //Quinzenal: 01/11/2023

    dData := cToD("31/10/2023")
    PCPMonitorUtils():BuscaProximoPeriodo("M",@dData)
    ConOut("Mensal: " + dToC(dData)) //Mensal: 01/11/2023
    ConOut(REPLICATE("-",70))

Return lRet
  • Sem rótulos