function CodigoCnae(lExibe){
    cCodAux = CompletaZeros(document.forms[0].CodAtivContrib.value, 3);
	document.forms[0].CodAtivContrib.value = cCodAux;
	cCnae = "011,012,013,014,015,016,017,021,022,023,031,032,050,060,071,072,081,089,091,099,101,102,103,104,105,106,107,108,109,111,112,121,122,131,132,133,134,135,141,142,151,152,153,154,161,162,171,172,173,174,181,182,183,191,192,193,201,202,203,204,205,206,207,209,211,212,221,222,231,232,233,234,239,241,242,243,244,245,251,252,253,254,255,259,261,262,263,264,265,266,267,268,271,272,273,274,275,279,281,282,283,284,285,286,291,292,293,294,295,301,303,304,305,309,310,321,322,323,324,325,329,331,332,351,352,353,360,370,381,382,383,390,411,412,421,422,429,431,432,433,439,451,452,453,454,461,462,463,464,465,466,467,468,469,471,472,473,474,475,476,477,478,479,491,492,493,494,495,501,502,503,509,511,512,513,521,522,523,524,525,531,532,551,559,561,562,581,582,591,592,601,602,611,612,613,614,619,620,631,639,641,642,643,644,645,646,647,649,651,652,653,654,655,661,662,663,681,682,691,692,701,702,711,712,721,722,731,732,741,742,749,750,771,772,773,774,781,782,783,791,799,801,802,803,811,812,813,821,822,823,829,841,842,843,851,852,853,854,855,859,861,862,863,864,865,866,869,871,872,873,880,900,910,920,931,932,941,942,943,949,951,952,960,970,990";
	if(cCodAux.length == 3) {
		if(cCnae.search(cCodAux)>=0){
			return true;
		}
	} 

 
 	if (lExibe){
    alert('Código não encontrado,\nCorrija-o ou verifique na tabela');
    }
    document.forms[0].CodAtivContrib.value = "011";
    document.forms[0].CodAtivContrib.focus(); document.forms[0].CodAtivContrib.select();
    return false;	
}