RE:Formatar campos de 255 caracteres
Hola, por algunas palabras de tu carta, deduzco que eres de Brasil, yo entiendo y escribo los dos idiomas, portugués y español. Viví 2 años en Curitiba, mi padre era de allá( Alcídio Borges Nogueira )
La solución sería utilizar la función MemoEdit. Una vez editado, el string queda con las marcas de avance de línea "incrustadas"; si se quiere eliminarlas, hay que buscar y extraer los caracteres Ascii 141.
Mando un ejemplo
***********************************************************
*
PROCEDURE Ed_DesArt( text1 )
*
LOCAL scr_3
*
scr_3 := SaveScreen( 0, 0, MaxRow(), MaxCol() )
Scroll( 22, 3, 23, 77 ); SetPos( 22, 3 )
DevOut( Padr( " Esc = Sale s/modif Ctrl+W = Confirma Modif", 74 ),;
var_cor2 )
DispBox( 11, 0, 16, 79, bord_caj1 )
DevPos( 12, 35 ) ; DevOut( "Descripc. del Art¡culo", "I" )
text1 := MemoEdit( text1, 14, 2, 15, 78, .T. )
RestScreen( 0, 0, Maxrow(), Maxcol(), scr_3 )
*
RETURN( text1 )
*
***********************************************************
*
* Deta_Lpre: Detalle Listado
* -------------------------------------
*
PROCEDURE Deta_Lpre
*
LOCAL posi, reng1, reng2
*
* Se elimina el CHR(141 ) , y se distribuye en renglones el texto largo
* antes de imprimir, en este caso, 75 posiciones
posi := 0
rest := reng1 := reng2 := ""
*
IF Prow() >= 58
Cabe_Lpre()
ENDIF
*
DevPos( Prow() + 1, 2 )
DevOut( ARTI->codigo )%0