Compatível com as Bases de Dados:

Todas

Idioma:

Português(Brasil)

Parâmetros:

MTR530 - Nome do grupo de perguntas

dData (Data) - Data para iniciar o cálculo da função.

lTipo (Lógico) - Se .T. posterga a data recebida para o próximo dia útil. - Se .F. retrocede a data recebida para o dia útil anterior.

Observações:

A função irá considerar as datas encontradas na tabela 63 do SX5 (Tabela de Feriados), os sábados (caso o parâmetro MV_SABFERI seja igual a "S") e os domingos como sendo feriados, retornando assim a próxima data válida.

O cadastro na tabela 63 deve seguir o exemplo abaixo:

Feriado fixo: 25/12 Natal (1ª e 2ª posição DIA, 4ª e 5ª posição MÊS)

Feriado móvel: 09/02/16 Carnaval (1ª e 2ª posição DIA, 4ª e 5ª posição MÊS, 7ª e 8ª ANO)

Exemplo:

#include "protheus.ch"

User Function DataValida()

Local dData := CTOD("14/11/09")L
ocal lNext := .T. 
Local dNewData := DataValida(dData, lNext)

ApMsgAlert("Proxima data válida será: "+ Dtoc(dNewData)+ ' - ' +DiaExtenso(dNewData))

Return

vai transformar o conteúdo selecionado nas perguntas do tipo range em expressão ADVPL

Abaixo o conteúdo selecionado pelo usuário:

Image Added

Abaixo o conteúdo atribuido ao mv_par01 para a montagem do filtro para a busca das filiais selecionadas pelo usuário

Mv_par01:= 'D MG 01,D MG 02,M SP 01,M SP 02'

Exemplo:

Programa Fonte:

Mslib.prw

Programa Fonte:

DATAVALI.PRG