Tenho este código que queria traduzido em Clipper, harbour ou fivewin pois não sei de qual linguagem se trata.
Esta faltando um valor de uma variável (pNum) que acredito que foi passada como parâmetro.
FUNÇÃO PARA CÁLCULO DE DÍGITO
==============================
Dim Ind As Integer
Dim lVlPro As Integer
Dim lVlTeste As String
Dim lCampo As String
Dim valfator As Integer
Dim lAjuste As Integer
lVlPro = 0
Ind = Len(pNum) + 1
If Ind = 44 Then
lAjuste = 1
Else
lAjuste = 0
End If
valfator = 1
lCampo = pNum
lVlTeste = pNum
While Ind > 1
valfator = valfator + 1
Ind = Ind - 1
lVlPro = lVlPro + Mid(lVlTeste, Ind, 1).val * valfator
If valfator = 9 Then
valfator = 1
End If
Wend
lVlPro = lVlPro Mod 11
lVlPro = 11 - lVlPro
If lVlPro = 10 Or lVlPro = 11 Or lVlPro = 0 Then
lVlPro = lAjuste
End If
Return Str(lVlPro)
Se poderem agradeço a ajuda.
Obrigado
Ladinilson Sousa