Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada ativado antes da gravação das marcações automáticas

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

SIGAPON(Ponto Eletrônico)

Função:

PutMarcAut(PONXFUN.PRW)

Chamados relacionados:

TVQOOL

Ponto de Entrada

Eventos:

Ocorre depois da geração das batidas automáticas porém antes da sua efetivação(gravação).

Programa Fonte:

PONXFUN.PRW

Função:

MarcAut3

Retorno:

Nome

Tipo

Descrição

Obrigatório

aMarcDia

A

Vetor que contém as marcações do dia

X

Exemplo de Implementação do PE MarcAut3
#INCLUDE 'PROTHEUS.CH'
/*/{Protheus.doc} MarcAut3(U_MARCAUT3)
	Exemplo de implementação do P.E no qual é possível modificar
	as marcações automáticas que devem ser geradas.
@author philipe.pompeu
@since 16/08/2016
@version P12.1.7
@return aResult, vetor que contem as variáveis modificadas
/*/
User Function MARCAUT3()
	Local aMarcDia 	:= ParamIxb[1] /*Armazena marcações que serão feitas de forma automática*/
	Local nX	:= 1
	
	/*Enquanto o número de batidas for ímpar*/
	while(( Len(aMarcDia) % 2 ) > 0 .And. nX <= Len(aMarcDia))
		
		/*Remove as geradas automaticamente até o número de marcações for par.*/
		if(aMarcDia[nX,4] == 'A')
			aDel(aMarcDia,nX)
			aSize(aMarcDia,Len(aMarcDia)-1)	       				
		endIf
		nX++	       			
	EndDo 
Return({aMarcDia})