cCalcBase textual do cálculo.
AdvPL GuiaDigito11( cCalc, cDigito ) --> lRetCompara um dígito informado com o cálculo em módulo 11.
Apesar do título mencionar cálculo, a ficha documenta Digito11(cCalc,cDigito) com retorno lógico de comparação, não um dígito numérico gerado. A fonte de 2012 abrange versões antigas e não detalha pesos nem exceções do algoritmo; não a generalize para qualquer documento fiscal ou bancário. O fragmento exige base e dígito previamente definidos pelo contrato específico, sem inventar par de teste aprovado. (TOTVS, s.d., ref. 1)
Digito11( cCalc, cDigito ) --> lRetcCalcBase textual do cálculo.
cDigitoDígito textual a comparar.
Lógico da comparação.
#Include "Protheus.ch"
User Function Ed351()
Local bValidar := {|cBase,cDV| Digito11(cBase,cDV)}
// Callback preparado: fornecer par homologado antes de avaliar.
Return NilBloco preparado, sem validar um número real. Em revisão: exemplo editorial não compilado nem executado em Protheus. Conferir includes, release, RDD e contexto antes de homologar.
© 2026 Usina.BR. Todos os direitos reservados. TOTVS, Protheus, Microsiga e seus respectivos logotipos são marcas de seus titulares. O AdvPL Guia é independente e utiliza citações limitadas, atribuídas e justificadas por finalidade educativa. Consulte os Termos de Uso. Termos de Uso
Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.