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;
  }
}