PONTO DE ENTRADAEm revisão

F241IRAN

User Function F241IRAN()

Contexto {cNumBor} na FINA241: leitura do exemplo comunitário e diagnóstico editorial.

F241IRANFINA241cNumBorPARAMIXBExecBlock

01 · VISÃO GERAL

Visão geral

A lista oficial registra ExecBlock("F241IRAN", .F., .F., {cNumBor}); o índice específico permanece em construção. (TOTVS, s.d., refs. 2–3) Eurai Rapelli lê PARAMIXB[1] como caractere e retorna NIL; a consulta à SEA está comentada. (Rapelli, 2023, ref. 1) A listagem P12.2210 situa a chamada em FA241BORDE. (Universo do Desenvolvedor, 2023, ref. 4) O diagnóstico abaixo é autoral e não reproduz integralmente o artigo. Não foi confirmado se a chamada ocorre antes ou depois da gravação ou do commit. No GitHub apareceram referências de catálogo, mas nenhuma implementação útil nas consultas realizadas.

02 · SINTAXE

Sintaxe

User Function F241IRAN()

Parâmetros

PARAMIXB[1] / cNumBor

Caractere no exemplo comunitárioContexto a confirmar

A chamada envolve cNumBor em um array de um elemento. Pela regra de ExecBlock, o array inteiro chega em PARAMIXB, e cNumBor corresponde a PARAMIXB[1]. (TOTVS, s.d., refs. 2 e 5) O artigo o lê como caractere. Não foram confirmados comprimento, formato, unicidade nem composição de chave.

Retorno

O artigo usa NIL; isso não comprova um contrato oficial de retorno. O recorte do chamador não atribui o resultado. O diagnóstico acompanha esse exemplo, mas exige confirmação no release-alvo antes de ser habilitado. (refs. 1 e 4)

03 · EXEMPLO PRÁTICO

Diagnóstico editorial sem consultar a SEA

#Include "Protheus.ch"

User Function F241IRAN()
    // Código autoral baseado no contexto do exemplo de Eurai Rapelli (ref. 1).
    // Verifica somente a forma recebida; não valida nem imprime o número.
    Local uContexto := PARAMIXB
    Local lFormatoEsperado := .F.

    // Testes separados evitam indexar um valor que não seja array.
    If ValType(uContexto) == "A"
        If Len(uContexto) >= 1
            lFormatoEsperado := ValType(uContexto[1]) == "C"
        EndIf
    EndIf

    ConOut("F241IRAN: array com primeiro elemento caractere = " + IIf(lFormatoEsperado, "sim", "não"))

    // NIL acompanha o exemplo comunitário; contrato do release ainda a confirmar.
Return NIL

Resultado esperado

Registra sim se o contexto for array com ao menos um elemento e o primeiro for caractere; caso contrário, registra não. Retorna NIL, sem acessar tabelas nem alterar o contexto. Isso não valida existência, conteúdo ou autorização do borderô. Não compilado nem executado em Protheus.

BOAS PRÁTICAS

A linha de dbSeek da fonte comunitária está comentada; não é uma consulta executada nem um bloco de busca completo.
Não ative uma busca na SEA sem confirmar abertura do alias, ordem do índice, chave e preservação da área de trabalho.
Não interprete a presença de cNumBor como prova de borderô já gravado ou transação concluída.
O diagnóstico reconhece apenas a forma do contexto. Uma string vazia também é caractere e não demonstra um identificador válido.
Homologue geração, repetição de chamadas e eventual reprocessamento no release e patch utilizados.
Não use o retorno NIL como autorização para gravar, cancelar ou ignorar falhas. A finalidade completa e o tratamento do retorno seguem em revisão.

Conteúdos relacionados

REFERÊNCIAS

Situação: Em revisão
Página criada em: 23/10/2026 às 09:12
Última revisão em: 23/10/2026 às 09:12
Idioma original: Português
Revisão: Usina.BR