|
Bem Vindo, Visitante
|
Todos os Fórums
ADVPL
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
UF Calculo do Mod 10 |
|
Versão: |
12.1.17 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
Mensagem do
AGMC
em 23/05/2019, 12:53 h
Local: AC Registro: 04/07/2014 Postagens: 262 |
Bom dia, alguém tem alguma User Function do Módulo 10 para calculo de digito verificador?
Atenciosamente,
Alan Gustavo
Grupo Miragina
skype:alan_miragina |
|
|
Mensagem do
@BETO
em 30/05/2019, 10:35 h
Local: MG Registro: 26/01/2006 Postagens: 534 |
Bom dia, segue a mod 10 e a mod 11.
Static Function Modulo10(cData)
LOCAL L,D,P := 0
LOCAL B := .F.
L := Len(cData)
B := .T.
D := 0
While L > 0
P := Val(SubStr(cData, L, 1))
If (B)
P := P * 2
If P > 9
P := P - 9
End
End
D := D + P
L := L - 1
B := !B
End
D := 10 - (Mod(D,10))
If D = 10
D := 0
End
Return(D)
Static Function Modulo11(cData)
LOCAL L, D, P := 0
L := Len(cdata)
D := 0
P := 1
While L > 0
P := P + 1
D := D + (Val(SubStr(cData, L, 1)) * P)
If P = 9
P := 1
End
L := L - 1
End
D := 11 - (mod(D,11))
If (D == 0 .Or. D == 1 .Or. D == 10 .Or. D == 11)
D := 1
End
Return(D) |
|
|
Mensagem do
AGMC
em 31/05/2019, 17:21 h
Local: AC Registro: 04/07/2014 Postagens: 262 |
Obg. Você é o cara.
Att,
Alan Gustavo
Grupo Miragina
skype:alan_miragina |
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|