eu utilizo uma dll, para isso eu crie um campo na tabela onde eu tenho o campo valor para colocar o valor por extenso ... segue abaixo o código

 

'no modulo
Public Declare Function extenso Lib "Extens32.dll"(ByVal Valor As String, ByVal Retorno As String) As Integer

Public Function PassaExtenso(ValorII As Double) As String
  ' Passa um número para a DLL e
  ' recebe-o de volta por extenso
  On Error GoTo Passa_Err
  Dim Retorno$, x%
  Retorno$ = Space$(512)
  x% = extenso(ValorII, Retorno$)
  PassaExtenso = UCase(Trim$(Retorno$))
Passa_Fim:
  Exit Function
Passa_Err:
  MsgBox Error$(Err)
  Resume Passa_Fim
End Function

 

tabela.edit
tabela!Extenso =  ucase(PassaExtenso(Valor_pago))
tabela.update

 

Martini, meus agradecimentos, necessito de uma DLL, que possa ser incorporada no "Crystal Reports".

[]s.

Santana

Santana, no site www.crystal.com.br têm disponível essa dll para download, qq coisa mande ae.

 

Abraços,

Fabio CR