... cadena, cadena2, n1, n2, NUmero LOCAL Izda, Dcha, String, Mascara, k LOCAL cCode := ::cText k := LEFT(ALLTRIM( cCode ) + "000000000000", 12 ) // padding with '0' // calculo del digito de control // suma de impares s1 := 0 // suma de pares s2 := 0 FOR n := 1 TO 6 s1 := s1 + VAL(SUBSTR( k, ( n ...