Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

01. DATOS GENERALES

Producto:

TOTVS Backoffice

Línea de producto:

Línea Protheus

Segmento:

Servicios

Módulo:

TOTVS Backoffice (Línea Protheus) - Activo fijo (SIGAATF)

Función:

ATFA200

País:

Brasil

Ticket:

Interno

Requisito/Story/Issue

DSERCTR1-46829

02. DESCRIPCIÓN

El punto de entrada AT200AN1 se activa después de grabar el bloqueo o desbloqueo de un bien en la rutina ATFA200. Permite el manejo directo del registro del activo que se está cambiando, como por ejemplo bloquear o desbloquear el bien, permitiendo ajustes personalizados antes de que finalice el proceso. Este punto de entrada es útil para realizar personalizaciones específicas que implican el manejo de bloqueos o desbloqueos, asegurando una mayor flexibilidad en la lógica aplicada a los activos.

03. OTRAS INFORMACIONES


Manejo de PE en el sistema
If ExistBlock("AT200AN1")
   ExecBlock("AT200AN1",.F.,.F.)
EndIf
Ejemplo de PE
User Function AT200AN1()

	Local aSaveArea     := GetArea()
	Local cFilial       := xFilial("SN1")
	Local nBem          := 123456  // Número de un bien específico para el ejemplo
	  Local dDataBloqueio := Date()

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

	// Verifica si el bien se encontro
	If !SN1->(Eof())
		If SN1->N1_DTBLOQ == CTOD("  /  /    ")
			// Bloquea el bien
			Reclock("SN1", .F.)
			SN1->N1_DTBLOQ := dDataBloqueio
			MsUnlock()
		Else
			// Desbloquea el bien
			Reclock("SN1", .F.)
			SN1->N1_DTBLOQ := CTOD("  /  /    ")
			MsUnlock()
		EndIf
	EndIf

	RestArea(aSaveArea)
	
Return

¡Importante!

  • Se observa que la utilización del PE y los impactos de este en el sistema son de responsabilidad del cliente.
  • Los ejemplos utilizados en esta documentación solamente son para fines de demostración, cada cliente debe verificar qué comportamiento desea realizar de acuerdo con el alcance del punto de entrada.

04. ASUNTOS RELACIONADOS

  • No se aplica.