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 |
El punto de entrada AF250TOK se activa cuando se procesa una pantalla de datos dentro de la rutina ATFA250, responsable de analizar los valores y la consistencia de la información introducida por el usuario. Con esto se pueden realizar validaciones adicionales de acuerdo al criterio de la empresa, permitiendo o no el registro de los datos.
If ExistBlock('AF250TOK') If !ExecBlock( 'AF250TOK', .f., .f., {@aAF250Imp,@aAF250Desc,@aAF250DOri} ) Return .F. EndIf EndIf
User Function AF250TOK() // Variables recibidas a través del PARAMIXB Local aAF250Imp := PARAMIXB[1] // Array con información fiscal Local aAF250Desc := PARAMIXB[2] // Array con las descripciones Local aAF250DOri := PARAMIXB[3] // Array con las descripciones originales Local i := 0 Local j := 0 Local lRet := .T. // Ejemplo de utilización For i := 1 to Len(aAF250Imp) // Aquí se puede implementar la lógica que valida la información del array aAF250Imp If Empty(aAF250Imp[i][1]) lRet := .F. // Si algún campo está vacío, devuelve FALSE EndIf Next // Lógica para manejar el aAF250Desc y aAF250DOri si es necesario For j := 1 to Len(aAF250DOri) // Ejemplo de una posible validación If aAF250DOri[j][7] == 0 lRet := .F. // Devuelve FALSE si encuentra una descripción no atribuida EndIf Next Return lRet
¡Importante!