PUNTO DE ENTRADAEn revisión

F241IRAN

User Function F241IRAN()

Contexto {cNumBor} en FINA241: análisis del ejemplo comunitario y diagnóstico editorial.

F241IRANFINA241cNumBorPARAMIXBExecBlock

01 · DESCRIPCIÓN GENERAL

Descripción general

La lista oficial registra ExecBlock("F241IRAN", .F., .F., {cNumBor}); el índice específico sigue en construcción. (TOTVS, s.f., refs. 2–3) Eurai Rapelli lee PARAMIXB[1] como carácter y devuelve NIL; la consulta a SEA está comentada. (Rapelli, 2023, ref. 1) La lista P12.2210 sitúa la llamada en FA241BORDE. (Universo do Desenvolvedor, 2023, ref. 4) El diagnóstico siguiente es código propio y no reproduce íntegramente el artículo. No se confirmó si la llamada ocurre antes o después de grabar o hacer commit. Las consultas en GitHub encontraron referencias de catálogo, pero ninguna implementación útil.

02 · SINTAXIS

Sintaxis

User Function F241IRAN()

Parámetros

PARAMIXB[1] / cNumBor

Carácter en el ejemplo comunitarioContexto por confirmar

La llamada envuelve cNumBor en un array de un elemento. Según el mecanismo de ExecBlock, el array completo llega a PARAMIXB y cNumBor corresponde a PARAMIXB[1]. (TOTVS, s.f., refs. 2 y 5) El artículo lo lee como carácter. Longitud, formato, unicidad y composición de clave sin confirmar.

Retorno

El artículo utiliza NIL; esto no demuestra un contrato oficial de retorno. El fragmento del llamador no asigna el resultado. El diagnóstico sigue ese ejemplo, pero requiere confirmación en el release utilizado antes de habilitarse. (refs. 1 y 4)

03 · EJEMPLO PRÁCTICO

Diagnóstico editorial sin consultar SEA

#Include "Protheus.ch"

User Function F241IRAN()
    // Código propio basado en el contexto del ejemplo de Eurai Rapelli (ref. 1).
    // Comprueba solo la forma recibida; no valida ni imprime el número.
    Local uContexto := PARAMIXB
    Local lFormaEsperada := .F.

    // Las comprobaciones separadas evitan indexar un valor que no sea array.
    If ValType(uContexto) == "A"
        If Len(uContexto) >= 1
            lFormaEsperada := ValType(uContexto[1]) == "C"
        EndIf
    EndIf

    ConOut("F241IRAN: array con primer elemento carácter = " + IIf(lFormaEsperada, "sí", "no"))

    // NIL sigue el ejemplo comunitario; contrato del release pendiente de confirmación.
Return NIL

Resultado esperado

Registra sí si el contexto es array con al menos un elemento y el primero es carácter; de lo contrario, registra no. Devuelve NIL sin acceder a tablas ni modificar el contexto. No valida existencia, contenido ni autorización de la orden de pago. Sin compilación ni ejecución en Protheus.

BUENAS PRÁCTICAS

La línea dbSeek del fuente comunitario está comentada; no es una consulta ejecutada ni un bloque completo de búsqueda.
No habilite una búsqueda en SEA sin confirmar apertura del alias, orden del índice, clave y preservación del área de trabajo.
No interprete la disponibilidad de cNumBor como prueba de orden ya grabada ni transacción confirmada.
El diagnóstico reconoce solo la forma del contexto. Una cadena vacía también es carácter y no demuestra un identificador válido.
Homologue generación, llamadas repetidas y eventual reprocesamiento en el release y patch utilizados.
No utilice NIL como autorización para grabar, cancelar o ignorar fallos. La finalidad completa y el tratamiento del retorno siguen en revisión.

Contenido relacionado

REFERENCIAS

Estado: En revisión
Página creada el: 23/10/2026 a las 09:12
Última revisión el: 23/10/2026 a las 09:12
Idioma original: Portugués
Revisión: Usina.BR