PC Toledo

... CODEPAGE, "PTISO" )
CLS
GrafTempo("calculando")
FOR nCont = 1 TO nTotal
GrafTempo( nCont, nTotal )
cNumero := Ltrim( Str( nCont ) )
A := Modulo11_All( cNumero )
B := Modulo11_033Barras( cNumero )
IF A != B
? A, B
ENDIF
nKey := Inkey()
IF nKey == K_ESC
EXIT
ENDIF
NEXT
? "fim"
Inkey ...

... nValor > 9, 9, 0 )
NEXT
nResto := MOD( nSoma, 10 )
cDigito := Str( iif( nResto == 0, 0, 10 - nResto ), 1 )

RETURN cDigito

STATIC FUNCTION Modulo11( cNumero )

LOCAL cChar, nSoma := 0, nResto, cDigito, nMultiplica := 2

cNumero := AllTrim( cNumero )
FOR EACH cChar IN cNumero DESCEND
nSoma ...

... LOCAL cLuz := "83680000001762320048100942155127816001453291153"
LOCAL cTelefone := "84610000000510140082089699479218581554719226099"

IF Modulo11( "34191000000000000001753980229122525005423000" ) != "1"
? 'Função modulo11 está com erro!"
ENDIF
IF Modulo10( "399903512" ) != "8"
? "Função ...

... Como e feita a verificação do digito verificador das contas de telefone, agua, dare...

Tanto pela rotina que o Quintas disponibilizou como pela 'modulo11' da a mesma coisa, só que não e a que esta impressa, no caso neste exemplo 84650000000 - 1, pelo calculo da 9

E pelo modulo11 realmente que ...

Dê uma olhada nestes tópicos:

modulo11

Faltou a função modulo11
/*
Função| Modulo11 | Autor | Erick Nori Barbosa | Data | 30/05/94|
Descrição | Calculo do modulo 11
Sintaxe | ExpL1 := Modulo11(ExpC1,ExpN1,ExpN2)
Parametros | ExpC1 = String para calcular o digito
| ExpN1 = Primeiro numero de multiplicação do modulo 11
| ExpN2 = Ultimo ...

Teste: 0282613-56

... que precisa


Quanto ao Dígito Verificador

No Manual Integração você irá encontrar o cálculo. Eu uso a função do Mestre Maligno.
Function Modulo11(cStr,nPeso1,nPeso2)
02 local nTot := 0
03 local nMul := nPeso1
04 local i
05
06 for i := Len(cStr) to 1 step -1
07 nTot += Val(SubStr(cStr,i,1 ...

... Modulo10( cAgencia + cConta + cCarteira + cNossoNumero )
cBarras += cCarteira + cNossoNumero + cDigito + cAgencia + cConta + "000"
cDigito := ::Modulo11(cBarras)
cBarras := Substr(cBarras,1,4) + cDigito + Substr(cBarras,5)
::cBarras := cBarras

cParte := cBanco + "9" + cCarteira + Substr ...

... 4),3,4)+strzero(month(NFISCAL->EMISSAO),2);
+Tiraponto(PERS->CGCMF)+"55001"+strsimb(NFISCAL->NUMERO,9)+"1"+strsimb(NFISCAL->NUMERO,8)
mDVNFE=MODULO11_NFE(mFILE_XML)
mFILE_XM=ALLTRIM(PERS->NFE_PNFE)+"\\"+mFILE_XML+ALLTRIM(STR(mDVNFE))+'-nfe.xml'

oConsulta := hbNFeConsulta()
oConsulta:ohbNFe ...

... hb_dtoc( datemi, 'YYMM' )
Ch = CodUf + dEmis + cnpj + modelo + strzero( val(serie), 3 ) + strzero(numnfe,9) + tpEmis + strzero(numnfe,8)
Dv = Modulo11( ch ,2,9)

Return ( Ch + Dv ...

... os últimos 8 número dela)
cDV=? Dígito Verificador da Chave de Acesso. (Foi disponibilizado no forum se não me falha a memória uma rotina chamada Modulo11() que fara o calculo. Não sei se é bem este o nome ou MOD11 mas existe esta função. Não encontrando veja na pág. 85 tem a explicação de como gerar ...

Valeu Itamar,

Pra facilitar ainda mais a vida dos colegas, segue função do Modulo11 de autoria do Maligno:


//**************************************************************************************************
function Modulo11(cStr,nPeso1,nPeso2) // módulo 11, com pesos nPeso1 (inicial) a nPeso2 ...

... cMod := '55'
cSerie := '001'
cNF := strzero(sa->numero,9)
cXML := cUF+cAnoMes+cCNPJ+cMod+cSerie+cNF+'1'+substr(cNF,2,8)
cNFDV := substr(cNF,2,8)+modulo11( cXML,2,9 )
cNFXML := cUF+cAnoMes+cCNPJ+cMod+cSerie+cNF+'1'+cNFDV+'-nfe.xml'


O modulo11 é uma função do Maligno!
Tá no Dicas, Contribuições ...

... de 44 caracteres.

Abaixo a função que eu utilizo para calcular o dígito: (Acho que foi disponibilizada por algum colega deste forum)

Function Modulo11(cStr,nPeso1,nPeso2)
local nTot := 0
local nMul := nPeso1
local i

for i := Len(cStr) to 1 step -1
nTot += Val(SubStr(cStr,i,1)) * nMul ...