... cOficina, cCuenta ) Local nSuma, nPos, nResto, cDc Local anPeso := {1,2,4,8,5,10,9,7,3,6} if empty(cCuenta) return cCuenta Endif // Primer digito de control nSuma := 0 FOR nPos := 1 TO 8 nSuma += Val( SubStr( cEntidad + cOficina, nPos, 1 ) ) * anPeso[nPos + 2] NEXT nBuc nResto := 11 - (nSuma ...