conseguimos, agora o trem escreve em portugues.

 

Carlinhos, qual a sua versão do crystal?

meu crystal é 8.5...

Vb 6

Se você estiver usando o controle CrystalReport.ocx, basta criar uma fórmula dentro do Crystal com qualquer nome, por exemplo, "Extenso". Depois, no Vb você faz assim:

 

CrystalReport1.Formulas(0) = "Extenso = '" & Suafuncao() & "'"

 

Onde SuaFuncao é a função que você deve ter para converter um valor em extenso. essa função pode vir de uma dll como o amigo Martini mostrou. Se eu não me engano você pode conseguir essa dll no site da revista Info Exame, ou aqui mesmo neste site, ou ainda no Macoratti.

 

um abraço,

Sandro

beleza.

Eu fiz assim numa outra necessidade, onde a pesso preenche um cadastro do imovel e ao digitar a area no lostfocus coloquei o codigo para escrever por extenso.

 

 Agora nesse caso, eu tenho um relatorio e nele crei uma formula com diversas condicoes, se a pessoa pagou uma parcela do IPTU ele soma as restantes se não pagou nada ele soma outros valores, entao é um valor que obtenho dentro do relatorio... ai veio a necessidade de se criar um codigo que escrevesse por extenso dentro do proprio relatorio. Eu tinha pensado em fazer isso pelo vb e passar para o crystal, mas vi que nao daria certo... mas com a ajuda dos colegas do forum deu certo.

 

mas valeu pela dica.

 

Até mais.

se for crystal 9 tem a dll cr_towords_pt.dll disponivel no site da crystal, coloca ela no diretório arquivos comunscrystal decisions2.0in

 

falow