01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

Função:ATFA200
País:Brasil
Ticket:Interno
Requisito/Story/IssueDSERCTR1-46829

02. DESCRIÇÃO

O ponto de entrada AT200AN1 é acionado após a gravação do bloqueio ou desbloqueio de um bem na rotina ATFA200. Ele permite a manipulação direta do registro do bem que está sendo alterado, como por exemplo para bloquear ou desbloquear o bem, permitindo ajustes personalizados antes da finalização do processo. Esse ponto de entrada é útil para realizar customizações específicas que envolvem o tratamento de bloqueios ou desbloqueios, garantindo maior flexibilidade na lógica aplicada aos ativos.

03. DEMAIS INFORMAÇÕES


If ExistBlock("AT200AN1")
   ExecBlock("AT200AN1",.F.,.F.)
EndIf
User Function AT200AN1()

	Local aSaveArea     := GetArea()
	Local cFilial       := xFilial("SN1")
	Local nBem          := 123456  // Número de um bem específico para o exemplo
	Local dDataBloqueio := Date()

	dbSelectArea("SN1")
	dbSetOrder(1)
	dbSeek(cFilial + StrZero(nBem, 6), .T.)

	// Verifica se o bem foi encontrado
	If !SN1->(Eof())
		If SN1->N1_DTBLOQ == CTOD("  /  /    ")
			// Bloqueia o bem
			Reclock("SN1", .F.)
			SN1->N1_DTBLOQ := dDataBloqueio
			MsUnlock()
		Else
			// Desbloqueia o bem
			Reclock("SN1", .F.)
			SN1->N1_DTBLOQ := CTOD("  /  /    ")
			MsUnlock()
		EndIf
	EndIf

	RestArea(aSaveArea)
	
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