PNM010R2 - Leitura de Registros de Refeições -- 112326

Este Ponto de Entrada permite criar controle/processo diferente do padrão para a gravação dos registros de refeições na tabela SP5.

PONM010.PRX

PNM010R2 - Leitura de Registros de Refeições ( [ Param1 ], [ Param2 ], [ Param3 ], [ Param4 ], [ Param5 ], [ Param6 ], [ Param7 ], [ Param8 ] ) --> lRet

lRet(logico)
• Indica se efetua a gravação do registro.

Serão enviados os seguintes elementos para o Ponto de Entrada:

Elemento 1: Código do Relógio;

Elemento 2: Filial do Funcionário;

Elemento 3: Matrícula do Funcionário;

Elemento 4: Data da Marcação;

Elemento 5: Horário da Marcação;

Elemento 6: Centro de Custo da Marcação;

Elemento 7: Tipo do Parâmetro MV_DESPREF ("N" para número de ocorrências/"M" para minutos)

Elemento 8: Quantidade/Minutos a Serem Desprezadas;

O ponto de entrada deverá retornar um valor lógico (.T. para verdadeiro e .F. para falso) para indicar se a rotina irá efetuar a gravação do registro lido na tabela SP5.

#include "protheus.ch"User Function PNM010R2() Local cCodRel	:= Paramixb[1]Local cCusto	:= Paramixb[6]Local cFilial	:= Paramixb[2]Local cMat   	:= Paramixb[3]Local cTpParam 	:= Paramixb[7]Local dData	 	:= Paramixb[4]Local lGrava 	:= .T.Local nParam	:= Paramixb[8]Local nHorario	:= Paramixb[5]If SP5->( MsSeek( cFilial + cMat + Dtos(dData) + Str(nHorario,5,2) , .F. ) )	lGrava 	:= .F.EndIfReturn  (lGrava)