Histórico da Página
...
Criado a função TecFerAloc para uso de outros módulos, exemplo SIGAGPE, para atender a necessidade acima.
Descrição
Retorna se é feriado e se Funcionario/Atendente tem agenda na data
Sintaxe
TecFerAloc("01", "000001", StoD("20241125"), @lTemAlocacao)
Parâmetros
| Nome | Tipo | Descrição | Default | Obrigatório | Referência |
| cFil | Caractere | Filial do Funcionário | x | ||
| cMat | Caractere | Matricula do Funcionário | x | ||
| dData | Data | Data para avaliar se é feriado e se tem da Agenda | x | ||
| lTemAlocacao | Caracter | Se atendente tem Agenda na data (retorno por referência) | .F. | x |
Retorno
| Nome | Tipo | Descrição |
| lFeriado | lógico | Indica se é Feriado |
Exemplo de uso
| Bloco de código | ||
|---|---|---|
| ||
Local cFil := "01"
Local cMat := "000001"
Local dData := StoD("20241125")
Local lTemAlocacao := .F.
Local lFeriado := .F.
lFeriado := TecFerAloc(cFil, cMat, dData, @lTemAlocacao)
|
...
Import HTML Content
Visão Geral
Conteúdo das Ferramentas