Exibir origem

01. DADOS GERAIS

Produto:
Linha de Produto:
Segmento:
Módulo:
Função:	ATFA271
País:	Brasil
Ticket:	Interno
Requisito/Story/Issue	DSERCTR1-46748

02. DESCRIÇÃO

O ponto de entrada AF271TP é acionado durante a chamada da rotina ATFA271 (Cadastro de Grupos de Bens) e permite ao cliente implementar validações ou ajustes adicionais que atendam às necessidades específicas da sua empresa. Este ponto de entrada proporciona a flexibilidade necessária para adaptar o processo de cadastro de grupos de bens, garantindo que as informações inseridas estejam em conformidade com as regras e políticas internas.

Com o AF271TP, o cliente pode definir critérios de validação que assegurem que todos os dados relacionados ao cadastro de grupos de bens sejam consistentes e adequados ao contexto de negócios da organização, contribuindo para maior precisão e controle sobre os registros.

03. DEMAIS INFORMAÇÕES

ExecBlock("AF271TP",.F.,.F.)

#Include 'protheus.ch'
#Include 'parmtype.ch'

User Function AF271TP()

	//---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
	// Este exemplo permite alterar o campo X3_CBOX para garantir que o tipo 12 (FNG_TIPO), esteja disponível no cadastro de grupos de ativos.

	//---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

	SX3->(DbSetOrder(2))

	If SX3->(DbSeek("FNG_TIPO")) 

		If ALLTRIM(SX3->X3_CBOX) == '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13"})'
		   RecLock("SX3", .F.) 
		   SX3->X3_CBOX := '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13","12"})' 
		   MsUnLock() 
		EndIf
		
		If ALLTRIM(SX3->X3_CBOXSPA) == '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13"})'
		   RecLock("SX3", .F.) 
		   SX3->X3_CBOXSPA := '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13","12"})' 
		   MsUnLock() 
		EndIf
		
		If ALLTRIM(SX3->X3_CBOXENG) == '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13"})'
		   RecLock("SX3", .F.) 
		   SX3->X3_CBOXENG := '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13","12"})' 
		   MsUnLock() 
		EndIf

	EndIf

Return

Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.

04. ASSUNTOS RELACIONADOS

Não se aplica.