Usina BRGuía AdvPL
Ingresar
← Todos los temas
PUNTO DE ENTRADAEn revisión

F340VALOK

User Function F340VALOK()

Valida la confirmación de títulos marcados para compensación.

F340VALOKFINA340
01 · DESCRIPCIÓN GENERAL

Descripción general

La ficha documenta aTitulos en PARAMIXB[1] y selección lógica en la posición 8 de cada fila. .T. confirma; .F. cancela la confirmación y mantiene la pantalla de selección. El ejemplo oficial rechaza confirmar sin títulos marcados. Es distinto del momento de validación F340VLD. (Refs. 1–2)

02 · SINTAXIS

Sintaxis

User Function F340VALOK()

Parámetros

PARAMIXB[1] / aTitulos
ArrayContexto de ejecución

Títulos, con selección lógica en la posición 8. (Refs. 1–2)

Retorno

Lógico: .T. confirma; .F. vuelve a la selección sin confirmar.

03 · EJEMPLO PRÁCTICO

Ejemplo editorial basado en la documentación

#Include "Protheus.ch"

User Function F340VALOK()
    // Regla oficial adaptada: exigir al menos un titulo marcado.
    Local aTitulos := PARAMIXB[1]
    Local nFila := 0
    Local nMarcados := 0
    For nFila := 1 To Len(aTitulos)
        If ValType(aTitulos[nFila]) == "A"
            If Len(aTitulos[nFila]) >= 8
                If ValType(aTitulos[nFila][8]) == "L"
                    If aTitulos[nFila][8]
                        nMarcados++
                    EndIf
                EndIf
            EndIf
        EndIf
    Next
Return nMarcados > 0
Resultado esperado

Propuesta didáctica con el comportamiento descrito en los comentarios. Comprobar el contexto antes de compilar en pruebas. En revisión: ejemplo no compilado ni ejecutado en Protheus. Comprobar aliases, bloqueos, posición transaccional y compatibilidad en el release y patch utilizados.

04 · EJEMPLO PRÁCTICO

Llamada observada y contexto

// Fragmento del llamador P12.2210 (EURAI, ref. 2); no es una implementación del PE.
// FINA340.PRX - FA340OK() -> LRET := EXECBLOCK("F340VALOK", .F., .F., {ATITULOS})
Resultado esperado

El registro muestra argumentos y uso inmediato del retorno cuando existen. Omite el cuerpo completo del llamador y no demuestra el momento del commit.

BUENAS PRÁCTICAS
  • La regla didáctica comprueba que exista alguna marca válida. No modifica títulos ni recalcula saldos. Probar ninguna selección, un título y varios títulos.
  • Una llamada sin cuarto argumento no documenta una estructura de PARAMIXB. Conservar identificadores del llamador y no inventar campos ni posiciones.
  • Plan de pruebas: comparar el flujo estándar y personalizado, probar éxito, rechazo y repetición y comprobar saldos, movimientos y contabilidad según el proceso.
  • En revisión: ejemplo no compilado ni ejecutado en Protheus. Comprobar aliases, bloqueos, posición transaccional y compatibilidad en el release y patch utilizados.

Contenido relacionado

REFERENCIAS
  1. TOTVS. F340VALOK - Validação dos títulos marcados. TDN. Consulta el 2026-10-24.
  2. EURAI. Pontos de Entrada P12.2210 - Parte 2. Universo do Desenvolvedor, 2023. Consulta el 2026-10-24.
Estado
En revisión
Página creada el
Última revisión el
Idioma original
Portugués
Revisión
Usina.BR
0 comentario(s) aprobado(s)

Comentarios

Todavía no hay comentarios aprobados.

Inicia sesión con Google o Microsoft para comentar.

Desarrollado con Usina Docs · Alpha