function valida_pais(cod_pais){ if (cod_pais.length < 2){ return false; } if (!IsNumero(cod_pais)){ return false; } if ((cod_pais=='1504')|| (cod_pais=='1508')|| (cod_pais=='4525')|| (cod_pais=='3595')|| (cod_pais=='4985')|| (cod_pais=='6781')|| (cod_pais=='7370')){ return true; } while (cod_pais.length < 7){ cod_pais = '0' + '' +cod_pais; } b = 7; soma = 0; for (i=0;i<8;i++){ nro = CharToInt(ie.substr(i,1)); if (i < 7){ soma = soma + (nro * b); b = b - 1; } } i = soma % 11; dig = 11 - i; if (dig!=nro){ return false }else{ return true; } }