Histórico da Página

...

02. SITUAÇÃO/REQUISITO

Com integração direta com entre Gestão de Serviços e RH, é possível alocar o atendente em outra escala diferente da cadastrado no RH (SRA). Modificando o cargo do mesmo, na integração com o ponto continuava aparecendo a escala cadastrada no Gestão de ServiçosCaso o funcionário deixasse de ser um Atendente, não era possível desligar a integração para aquele funcionário.

03. SOLUÇÃO

Implementado no PNMTABC01, no retorno do código do atendente, o campo AA1_MSBLQL onde ao realizar essa troca é necessário altera-ló para . Caso o campo esteja criado e com o valor "1" (Bloqueado) pois o mesmo não ira retorna a escala do Gestão de Serviços e sim do RH, a integração entre GS e GPE para este funcionário será bloqueada.

Código Antes:

Static Function GetAtend(cFil, cMat)
	Local cCod := ""
	Local cAliasTrb := GetNextAlias()
	
	BeginSQL Alias cAliasTrb
		SELECT AA1_CODTEC
		
		FROM %Table:AA1% AA1
		
		WHERE 
			AA1.AA1_FILIAL = %xFilial:AA1%  AND
			AA1.AA1_CDFUNC = %Exp:cMat% AND
			AA1.AA1_FUNFIL = %Exp:cFil% AND
			AA1.%NotDel%

	EndSQL
	
	If (cAliasTrb)->(!EOF())
		cCod := (cAliasTrb)->AA1_CODTEC
	EndIf
	
	(cAliasTrb)->(DbCloseArea())
	
Return cCod

...

Static Function GetAtend(cFil, cMat)
	Local cCod 		:= ""
	Local cAliasTrb := GetNextAlias()
	Local cQuery	:= "% %%%"
	Local lAA1MSBL	:= AA1->( ColumnPos('AA1_MSBLQL')) > 0
	
	If lAA1MSBL
		cQuery := "%"
		cQuery += " AND AA1.AA1_MSBLQL <> '1' "
		cQuery += "%"
	EndIf
	BeginSQL Alias cAliasTrb
		SELECT AA1_CODTEC
		
		FROM %Table:AA1% AA1
		
		WHERE 
			AA1.AA1_FILIAL = %xFilial:AA1%  AND
			AA1.AA1_CDFUNC = %Exp:cMat% AND
			AA1.AA1_FUNFIL = %Exp:cFil% AND
			AA1.%NotDel%
			%Exp:cQuery%
	EndSQL
	
	If (cAliasTrb)->(!EOF())
		cCod := (cAliasTrb)->AA1_CODTEC
	EndIf
	
	(cAliasTrb)->(DbCloseArea())
	
Return cCod

...