Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 2 minutos

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:

TOTVS Backoffice (Linha Protheus) - Ativo Fixo (SIGAATF)

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


Manipulação de PE no sistema
If ExistBlock("AT200AN1")
   ExecBlock("AT200AN1",.F.,.F.)
EndIf
Exemplo de PE
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

Importante !!

  • 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.