FoxPro/Visual FoxPro - AYUDA URGET USO DEL PUTFILE() VFP8

*******************************************************************

SALVANDO UN ARCHIVO RTF, TENGO OTRA FORMA DE HACERLO PERO QUIERO SIMULAR A WORD
ASI QUE EMPLEAO PUTFILE() EXCELENTE ME LO GUARDA EL ARCHIVO. PERO YA CUANDO LE VOY A
GUARDAR EN EL "APPEND GENERAL SOURCE FROM XRTF" NO LO ENCUENTRA, YA QUE PUFILE() ME
REGRESA EL LA RUTA DEL ARCHIVO MAS EL NOMBRE ASI QUE NO LO GUARDA DEBIDO A ESO ME INMAGINO
COMO PUEDO HACER PARA QUE ME RETORNE SOLO EL NOMBBRE DEL ARCHIVO.
GRACIAS DE ATEMANO.
DOUGLAS SANCHEZ.

LOCAL XRTF
XRTF = PUTFILE('Guardar como: ','escriba aqui el nombre del archivo','RTF')
IF !EMPTY(XRTF)
WAIT WINDOW "GUARDANDO DATOS ... " NOWAIT
lcFileName = XRTF
ThisForm.oleRTF.Object.SaveFile(lcFileName)
SELECT RTF
GO BOTT
APPEND GENERAL SOURCE FROM XRTF
Replace rtf.fecha With ZFECHA
Replace NOMBRE With XRTF
WAIT WINDOW "OK DATOS GUARDADOS" TIMEOUT 1
WAIT CLEAR
ELSE
WAIT WINDOW "NO SE PUDIERON GUARDAR LOS DATOS, NO ASIGNO EL NOMBRE DEL ARCHIVO" TIMEOUT 2
RETURN
ENDIF

Y SI LO HAGO ASI SIEMPRE ME LE VA PONER EL MISMO NOMBRE AL MENOS
QUE LLAM UN FORM. LE PIDEA AL USUARIO QUE DIGIET EL NOMBRE DEL
DOCUMENTO.

****************************************************************************
lcFileName = "encabezado.RTF" &&O como se llame el archivo fisico
ThisForm.oleRTF.Object.SaveFile(lcFileName)
APPEND GENERAL tucampoGeneral FROM "encabezado.RTF"

****************************************************************************