Esta rotina calcula um o digito de um numero de até 43 posicoes (utilizo
para boleta)
Caso queira utilizala em um numero de digitos menor, retire do Wpeso da
esquerda pra direita.
Retorna só o digito.
function CalcDig11(Went: String): String;
var
Wpeso: String;
Wsoma: SmallInt;
Wct: Smal
Atenciosamente,Galera,
Como faço para calcular o dígito verificador pelo módulo 11
Atenciosamente,
Marcelo Carvalho
Programador Sênior
Santa Casa de Misericórdia de Porto Alegre
E-mail: [EMAIL PROTECTED]
Essa mensagem, incluindo seus anexos, tem caráter confidencial e seu conté
2 matches
Mail list logo