PNA280POS - Verificação de informações -- 10427

Na rotina de Manutenção de Lançamentos Integrados de Marcações e Apontamentos, foi criado um ponto de entrada para realizar a verificação de informações antes de executar a ação de movimentação de registros de funcionários. Dessa forma, é necessário que o parâmetro MV_P280MOV possua o conteúdo  igual a “S”.

PONA280.PRW

PNA280POS - Verificação de informações ( ) --> Nil

Nil(nulo)
• Nil

• Parâmetros enviados

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

            Param1 – Bloco de código da ação de movimentação de registros do Cadastro de Funcionários (SRA) a ser realizada. Tipo bloco de código.

            Param2 – Ação de movimentação de registros do Cadastro de Funcionários (SRA) a ser realizada. Tipo caracter. Pode ser:

                        _PRIMEIRO – Movimenta para o primeiro registro do SRA.

                        _PROXIMO - Movimenta para o próximo registro do SRA.

                        _ANTERIOR - Movimenta para o registro anterior SRA.

                        _ULTIMO - Movimenta para o último registro do SRA.

                        _NADA – Não realiza a movimentação de registro.

• Retorno

          Não existe retorno desse ponto de entrada.

• Procedimentos para Implementação

      1.      No Rdmake obter o array enviado.

      2.      Realizar os procedimentos necessários.
 

Exemplo de implementação do ponto de entrada. Aqui, deseja-se que o trabalhador de código de matrícula ‘000003’ não seja acessado pelo usuário. Demonstra-se a possibilidade da criação de uma rotina para a seleção de trabalhadores, como por exemplo, acessar somente os trabalhadores que possuem faltas a serem analisadas:#INCLUDE 'RWMAKE.CH'USER FUNCTION PNA280POS()Local bAcao            := ParamIxb[1]Local cAcao            := ParamIxb[2] Eval(bAcao,cAcao )             If SRA->RA_MAT == '000003'    Eval(bAcao,cAcao)Endif RETURN (NIL)