Base de Conhecimento

RH - Linha Protheus - GPE - Ponto de Entrada GP650ACM - Agrupamento dos Títulos

time.png Tempo aproximado para leitura: 00:01:00 min

Dúvida

Utilização do ponto de entrada GP650ACM

Ambiente
[TOTVS RH - TOTVS RH (Linha Protheus) - Gestão de Pessoal - Todas as versões

Solução

Descrição:

O ponto de entrada GP650ACM é utilizado no momento do agrupamento dos títulos, sendo possível armazenar no array “aAliasFields” os dados que identificam a origem do título. Exemplo: filial, matricula, verba, centro de custo, valor.

Eventos

Um exemplo de utilização deste ponto de entrada é a necessidade de criar uma tabela para listar todos os lançamentos que fazem parte de um determinado título.

Neste caso é necessário utilizar também o ponto de entrada GP650CHK para obter o número do título. 

 

Programa Fonte

gpem650

Sintaxe

GP650ACM - Agrupamento dos Títulos ( [ ] )

Parâmetros:
Nome     Tipo     Descrição     Default     Obrigatório     Referência  
        Array of Record                          
Retorno
    ()
Observações

O exemplo a seguir ilustra a necessidade de criar uma tabela contendo o detalhamento do título, com os lançamentos que o compõe.

Utiliza-se os dois pontos de entrada: GP650ACM e GP650CHK.

 

Exemplos
============================================||Exemplo de utilização do ponto de entrada GP650ACM||============================================User Function GP650ACM()//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ Declaracao de Variaveis                                             ³//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙLocal aArea := GetArea()Local cFil	 := &cFilLanLocal cMat	 := &cMatLanLocal cCC  	 := &cCcLanLocal cPD	 := &cPDLanLocal nSeq	 := 0              nPos:= Ascan( aAliasFields ,{|x|x[1]+x[2]+x[3]+x[4]==cFil+cMat+cCC+cPD }) If nPos == 0		Aadd( aAliasFields, { 	cFil, 	;			cMat, 	;			cCC,	;		    				cPD,	;			"001"	} )Else	nSeq := VAL(aAliasFields[nPos,5])+1		Aadd( aAliasFields, { 	cFil, 	;			cMat, 	;			cCC,	;		    				cPD,	;			strZero(nSeq,3)	} )EndIf      RestArea(aArea)Return=============================================||Exemplo de utilização do ponto de entrada GP650CHK:||=============================================User Function GP650CHK()Local nX 	:= 1Local aArea := getArea()       For nX := 1 to Len(aAliasFields)	       If Z01->(!dbSeek(aAliasFields[nX,1]+cNovoTit+aAliasFields[nX,2]+aAliasFields[nX,3]+ ;				aAliasFields[nX,4]+aAliasFields[nX,5] ))		RecLock("Z01", .T. )	Z01->Z01_FILIAL :=	aAliasFields[nX,1]	Z01->Z01_TIT       :=	cNovoTit	Z01->Z01_MAT     :=	aAliasFields[nX,2]	Z01->Z01_CC       :=	aAliasFields[nX,3]	Z01->Z01_PD       :=	aAliasFields[nX,4]	Z01->Z01_SEQ    :=	aAliasFields[nX,5]		MsUnLock()      EndIf	Next nXRestArea( aArea )Return
Variáveis
  Nome     Tipo     Escopo     Pode Alterar     descrição  
  aAliasFields     Array of Record     Global     Não        
  cFilLan     Caracter     Global     Não        
  cCpoAgrup     Caracter     Global     Não        
  cCcLan     Caracter     Global     Não        
  cMatLan     Caracter     Global     Não        
  cPDLan     Caracter     Global     Não        
  cValLan     Caracter     Global     Não        
Esse artigo foi útil?
Usuários que acharam isso útil: 0 de 0

0 Comentários

Por favor, entre para comentar.
X Fechar

Olá ,

Há pendência referente a um de seus produtos contratados para a empresa ().

Entre em contato com o Centro de Serviços TOTVS para tratativa.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cobrança – Verificação de pendências financeiras . clique aqui.

TOTVS

X Fechar

Olá ,

Seu contato não está cadastrado no Portal do Cliente como um perfil autorizado a solicitar consultoria telefônica.

Por gentileza, acione o administrador do Portal de sua empresa para: (1)configurar o seu acesso ou (2)buscar um perfil autorizado para registro desse atendimento.

Em caso de dúvidas sobre a identificação do contato administrador do Portal, ligue (11) 4003-0015, opção 7 e, em seguida, opção 4 para buscar o suporte com o time de Assessoria ao Portal do Cliente. . clique aqui.

TOTVS

X Fechar

Olá ,

Para o atendimento de "Consultoria Telefônica" você deverá estar de acordo com o Faturamento.

TOTVS

X Fechar

Olá,

Algo inesperado ocorreu, e o usuario nao foi reconhecido ou você nao se encontra logado

Por favor realize um novo login

Em caso de dúvidas, entre em contato com o administrador do Portal de Clientes de sua empresa para verificação do seu usuário, ou Centro de Serviços TOTVS.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cadastros . clique aqui.

TOTVS

Chat _

Preencha os campos abaixo para iniciar o atendimento:

Chat _