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
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Imprension de campos memo en Canvas
-
Pepe Lutrillo
- Mensajes: 45
- Registrado: Lun Ago 15, 2005 7:58 pm
-
Marcelo Coelho Silva
- Mensajes: 269
- Registrado: Sab May 31, 2008 4:49 pm
- Ubicación: Brasil
- Contactar:
Imprension de campos memo en Canvas
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
>
>
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
>
>
Att.
Marcelo Coelho Silva
Brasil.
Marcelo Coelho Silva
Brasil.