import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: PNM010R2 - Leitura de Registros de Refeições
Descrição:
Este Ponto de Entrada permite criar controle/processo diferente do padrão para a gravação dos registros de refeições na tabela SP5.
Programa Fonte
PONM010.PRX
Sintaxe
PNM010R2 - Leitura de Registros de Refeições ( [ Param1 ], [ Param2 ], [ Param3 ], [ Param4 ], [ Param5 ], [ Param6 ], [ Param7 ], [ Param8 ] ) --> lRet
Parâmetros:
Retorno
Observações
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.
Exemplos
#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) |