Hola Fauso Martinez,
Ya solucione y tu idea me sirvió, por otra parte lo otro que hice fue lo siguientes, por si alguien tiene el mismo problema.
SELECT *, SUBSTR(descripcion,1,150)as desc1, SUBSTR(descripcion,151,350) as desc2 r1 = SQLExec(Thisform.nhandle,sqlcad,'tmpresult')
If r1 <= 0
Select TmpCotiza
Zap
Append From Dbf('tmpresult')
Select TmpCotiza
Replace descripcion With (desc1 + desc2) All
Select tmpresult
Use