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