Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PNMTABC01 - Manipulação do calendário -- 10438

Ponto-de-Entrada: PNMTABC01 - Manipulação do calendário
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Nas rotinas que utilizam a montagem do calendário no ponto eletrônico é possível manipular o calendário.  Para manipular o calendário deve-se utilizar este ponto de entrada.
Programa Fonte 
PONXFUN.PRX
Sintaxe

PNMTABC01 - Manipulação do calendário ( < aTabCalend> , < lCriaCalOk> ) --> aRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aTabCalend Array of Record Array com o conteúdo do calendário montado X
lCriaCalOk Lógico Variável booleana, sendo seu conteúdo igual a .T. o calendário foi montado corretamente, sendo .F. o calendário não foi montado X
Retorno
    aRet(array_of_record)
  • Array contendo o novo calendário.
Observações
  • Parâmetros enviados

            Será enviado um array com 2 elementos via variável ParamIXB.

            Param1 – Array com o conteúdo do calendário montado.

            Param2 – Variável booleana, sendo seu conteúdo igual a .T. o calendário foi montado corretamente, sendo .F. o calendário não foi montado.

           

  • Retorno

             Array contendo o calendário já alterado. 

Procedimentos para Implementação

1.      No Rdmake obter o array enviado.

2.      Realizar os procedimentos necessários.

Exemplos 
Exemplo de implementação do ponto de entrada. Nesse exemplo é enviada uma mensagem dizendo se o calendário foi montado de forma correta, após isto, todos os dias irão se tornar feriados.#INCLUDE 'PONCALEN.CH'USER FUNCTION PNMTABC01()Local aTabCalend := ParamIxb[1]Local lCalOk   := ParamIxb[2]Local nCont                 := 0Local aReturn  := {}If lCalOk     MsgInfo('Calendário criado com sucesso!')EndIfFor nCont := 1 To Len(aTabCalend)         aTabCalend [ nCont, CALEND_POS_FERIADO  ] := .T.         aTabCalend [ nCont, CALEND_POS_TIPO_DIA ] := 'F'         aTabCalend [ nCont, CALEND_POS_DESC_FERIADO ] := 'TESTE'NextaReturn := aClone(aTabCalend)RETURN (aReturn)