<!--
// Procura por String/Letra dentro de outra quando oque="P"
// Retorna o tamanho da string quando oque="T"

function at(cP,cT,oque) {
	var cS = "*", nC = 0;
	while (true) {
		cS = cT.substring(nC,nC+1);
		if (cS=="") {
			if (oque=="P")
				nC=-1;
			break;
		}
		else
			if (cP==cS && oque=="P") {
				break;
			}
		nC++
	}
	return (nC);
}

function decimais(nValor, nDec) {
	var cValor, nTam, nPonto, cDec, nTDec, nZeros, nConta;
	cValor 	= "" + nValor;
	nTam	= at(" ", cValor, "T");
	nPonto 	= at(".", cValor, "P");
	if (nPonto==-1) {
		cDec	= "";
		nZeros 	= nDec;
	}
	else {
		cDec	= cValor.substring(nPonto+1,nTam);
		nTDec	= at(" ", cDec, "T");
		if (nTDec<nDec) {
			cDec 	= cDec.substring(0,nTDec);
			nZeros	= nDec - nTDec;
		}
		else {
			cDec	= cDec.substring(0,nDec);
			nZeros	= 0;
		}
	}

	if (nPonto!=-1)
		cValor	= cValor.substring(0,nPonto);

	cValor	= cValor + "." + cDec;

	if (nZeros>0) {
		for (nConta=1;nConta<=nZeros;nConta++) {
			cValor+="0";
		}
	}
	return (cValor);
}
//-->