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:

ATFA030

País:

Brasil

Ticket:

Interno

Requisito/Story/Issue

DSERCTR1-46829

02. DESCRIPCIÓN

El punto de entrada ATFA036 se ejecuta en la carga de la pantalla de baja de activos manual. Este se ejecuta antes de la exhibición de la pantalla, permitiendo el manejo de parámetros o ajustes necesarios.

Los puntos de entrada AF030CHA de la rutina ATFA030 y AF035CHA de la rutina ATFA035, fueron sustituidos consolidando la funcionalidad en la rutina ATFA036.

03. OTRAS INFORMACIONES


Ejemplo de PE
User Function ATFA036

	Local aParam := PARAMIXB // Vector con los parámetros recibidos por los puntos de entrada de la rutina de baja de activo manual.
	Local lRet := .T. // Variable de devolución de los puntos de entrada de la rutina de baja de activo manual.
	Local oObj := aParam1 // Objeto del Modelo de datos de la rutina de baja de activos en lote.
	Local cIdPonto := aParam2 // Identificador del punto de entrada que se activará por medio de la función ATFA036 de la rutina de baja de activo manual.
	Local cIdModel := IIf( oObj<> NIL, oObj:GetId(), aParam3 ) // Identificador del Modelo de datos de la rutina de baja del Activo (ATFA036)
	Local cClasse := IIf( oObj<> NIL, oObj:ClassName(), '' ) // Nombre de la clase utilizada en la rutina (FWFORMFIELD - Formulario, FWFORMGRID - Grid)
	Local nOperation := 0

	/*
	Verifica si el modelo de datos está activo para la utilización de los datos de la rutina de baja de activo antes de la ejecución de los procedimientos del punto de entrada.	
	*/

	If oObj != Nil .AND. oObj:IsActive()
		/*
			Modo de edición en la rutina (4-Baja, 5-Anulación)
		*/
		nOperation := oObj:GetOperation()
		/*
			Verifica si el Identificador del punto de entrada es del Procesado antes de la exhibición de la pantalla de bajas
		*/
		
		If cIdPonto == "FORMPRE"
			/*
				Grabación de la baja
			*/
			If nOperation == MODEL_OPERATION_UPDATE
				Help("" ,1, "FORMPRE",,"Punto de entrada ejecutado en la carga de la exhibición del formulario para grabación del registro de baja de activo." ,1,0)
				lRet := .F.
				/*
					Gravação do Cancelamento da Baixa
				*/
			ElseIf nOperation == MODEL_OPERATION_DELETE
				Help("" ,1, "FORMPRE",,"Punto de entrada ejecutado en la carga de la exhibición del formulario para grabación del registro de anulación de baja de activo." ,1,0)
				lRet := .F.
			EndIf
		EndIf
	EndIf
	
Return lRet


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.