(RESOLVIDO)Valor por Extenso com sc_vl_extenso

Programação
#1

Prezados, a função/macro “sc_vl_extenso” só escreve o valor se não tiver casas decimais ?

se faço assim aparece apenas o valor inteiro por escrito…mas o valor tem decimais.
$valor = {cheque[$x][0]};
$func = {cheque[$x][1]};

sc_format_num($valor, ‘.’, ‘,’, 0, ‘S’, ‘1’, ‘’);
$extenso = sc_vl_extenso($valor, 50, ‘V’);

Se faço assim nao escreve;

sc_format_num($valor, ‘.’, ‘,’, 2, ‘S’, ‘1’, ‘’);
$extenso = sc_vl_extenso($valor, 50, ‘V’);

Help.

#2

Utilize a macro sc_vl_extenso() antes da sc_format_num().

#3

Como não pensei nisso antes.srsr
show…funfou 100%

                                     R$ 703,80

 SETECENTOS E TRES REAIS E OITENTA CENTAVOS  // agora preciso quebrar essa linha...

Adey Passos De Almeida

       Teófilo Otoni, 13 De Janeiro De 2014

[code]sc_lookup(cheque,“SELECT
folha.liquido,
tblFuncionario.nome
FROM
dbo.tblFuncionario INNER JOIN dbo.folha ON tblFuncionario.idFunc = folha.funcionario WHERE id_folha BETWEEN {ap} AND {ap2}”);//busca cheques para impressão

$conta = count({cheque});
for($x=0;$x<$conta;$x++)
{

		if({cheque}===false)
		{
				echo "Erro de acesso. Mensagem=" .{cheque};
		}elseif(empty({cheque}))
		{
				echo "Comando Select não retornou dados";
		}else
		{

$valor = {cheque[$x][0]};
$func = {cheque[$x][1]};
$extenso = sc_vl_extenso($valor, 50, ‘V’);
sc_format_num($valor, ‘.’, ‘,’, 2, ‘S’, ‘1’, ‘R$’);

			//PREPARA O CONTEÚDO A SER GRAVADO

$conteudo = " $valor

 $extenso

$func

       {local} \r\n

\r\n
\r\n
\r\n
\r\n

";
}
//ARQUIVO TXT
$arquivo = “cheque.txt”;

//TENTA ABRIR O ARQUIVO TXT
if (!$abrir = fopen($arquivo, “a+”)) {
echo “Erro abrindo arquivo ($arquivo)”;
exit;
}

//ESCREVE NO ARQUIVO TXT
if (!fwrite($abrir, $conteudo)) {
print “Erro escrevendo no arquivo ($arquivo)”;
exit;
}

echo “Arquivo gravado com Sucesso !!”;

//FECHA O ARQUIVO
fclose($abrir);

}[/code]

#4

Prezados, estou tentando fazer a quebra de texto mas esta dando um retorno estranho.

OITOCENTOS E QUATRO REAIS E
OITENTA E DOIS CENTA-
VOS

[code]$extenso = sc_vl_extenso($valor, 50, ‘V’);
sc_format_num($valor, ‘.’, ‘,’, 2, ‘S’, ‘1’, ‘R$’);

$newtext = wordwrap($extenso, 30 , “\r\n”,true); //fiz aqui a quebra
//PREPARA O CONTEÚDO A SER GRAVADO

$conteudo = " $valor \r\n

$newtext\r\n //tem que quebrar esse texto

$func

       {local}

\r\n
\r\n
\r\n
\r\n

";
}[/code]

#5

Resolvido.

Precisava extrair as tags html.

$newtext = wordwrap(strip_tags($extenso), 30 , “\r\n”,true);

                                                           R$ 804,82 

OITOCENTOS E QUATRO REAIS E

OITENTA E DOIS CENTAVOS
Fulano de Tal

                    Teófilo Otoni, 15 De Janeiro De 2014