Producto: |
TOTVS Backoffice
|
Línea de producto: | Línea Protheus |
Segmento: | Servicios |
Módulo: | TOTVS Backoffice (Línea Protheus) - Activo fijo (SIGAATF)
|
Función: | ATFA250 |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue | DSERCTR1-46030 |
Este punto de entrada se llama justo antes de que se haga la contabilización, después de que los registros de activos se hayan actualizado en el sistema. Es una oportunidad para agregar ajustes o validaciones a los registros, como cálculos o comprobaciones adicionales antes de que los datos se registren en los sistemas de contabilidad.
If ExistBlock("AF250GRV") // PUNTO DE ENTRADA ANTES DE CONTABILIZAR
Execblock("AF250GRV",.F.,.F.,Acols[nX])
EndIf
// Implementación de la función de punto de entrada AF250GRV
User Function AF250GRV()
// Ejemplo: Agregar una comprobación de integridad a los datos de un activo
Local aCols := PARAMIXB[1] // Array de columnas con datos de activos
Local nPosICMS := Ascan(aHeader, {|x| Alltrim(x[2]) == "N1_ICMSAPR" })
Local nICMS := 0
Local i := 0
For i := 1 To Len(aCols)
// Verifica si el valor de ICMS es superior a un valor permitido
If aCols[i][nPosICMS] > 10000
// Genera un mensaje de alerta
Help(" ", 1, "AF250_ALERT",, "El valor de ICMS excede el límite permitido.", 1, 0)
EndIf
Next i
Return
¡Importante!