PARAMIXB[1] / aTitulosTítulos, con selección lógica en la posición 8. (Refs. 1–2)
Guía AdvPLUser Function F340VALOK()Valida la confirmación de títulos marcados para compensación.
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)
User Function F340VALOK()PARAMIXB[1] / aTitulosTítulos, con selección lógica en la posición 8. (Refs. 1–2)
Lógico: .T. confirma; .F. vuelve a la selección sin confirmar.
#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 > 0Propuesta 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.
// Fragmento del llamador P12.2210 (EURAI, ref. 2); no es una implementación del PE.
// FINA340.PRX - FA340OK() -> LRET := EXECBLOCK("F340VALOK", .F., .F., {ATITULOS})El registro muestra argumentos y uso inmediato del retorno cuando existen. Omite el cuerpo completo del llamador y no demuestra el momento del commit.
Desarrollado con Usina Docs · Alpha
© 2026 Usina.BR. Todos los derechos reservados. TOTVS, Protheus, Microsiga y sus respectivos logotipos son marcas de sus titulares. Guía AdvPL es independiente y utiliza citas limitadas, atribuidas y justificadas por fines educativos. Consulta los Términos de Uso. Términos de Uso
Comentarios
Todavía no hay comentarios aprobados.
Inicia sesión con Google o Microsoft para comentar.