Xailer & OZ Software

Buenos dias:
Tengo un campo memo en donde tengo capturada la siguiente información:
RENG1
RENG2
RENG3
RENG4
Al intentar imprimirlo utilizo, por ejemplo:
:TextOut( X, Y, Substr(::oDataSetConceptos:NOTAS, 1, 63))
La impresión aparece:
RENG1 RENG2 RENG3 RENG4
Como puedo hacer para que dentro del canvas me respete los <return> que están almacenados en el campo memo y se impriman de la siguiente forma?
RENG1
RENG2
RENG3
RENG4
Mil gracias
Pepe Lutrillo

Pepe,
Uma solução é utilizar uma rotina de filtro.
Exemplo:
:TextOut( X, Y, FcFiltro(Substr(::oDataSetConceptos:NOTAS, 1, 63)) )
Onde,
Function FcFiltro( cString )
Local cRet, cLetra
cRet := ""
For each cLetra INTO cString
If cLetra != Chr(13) .and. cLetra != Chr(10) // CR e LF
cRet += cLetra
EndIf
Next
Return (cRet)
att.
Marcelo Coelho Silva
Brasil.
Em 06/10/2010 23:15, Pepe Lutrillo escreveu:
> Buenos dias:
>
> Tengo un campo memo en donde tengo capturada la siguiente
> información:
>
> RENG1
> RENG2
> RENG3
> RENG4
>
> Al intentar imprimirlo utilizo, por ejemplo:
>
> :TextOut( X, Y, Substr(::oDataSetConceptos:NOTAS, 1, 63))
>
> La impresión aparece: RENG1 RENG2 RENG3 RENG4
>
> Como puedo hacer para que dentro del canvas me respete los
> <return> que están almacenados en el campo memo y se
> impriman de la siguiente forma?
>
> RENG1 RENG2 RENG3 RENG4
> Mil gracias
> Pepe Lutrillo
>
>