topic-23549

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Fusión de datos con fichero RTF
Posted: Fri Feb 24, 2012 07:02 PM

Con la clase TWord fusiono datos de un fichero .dbf con un fichero .doc de esta forma:
............
oWord:Replace("[NOMBRE]",cNombre)
oWord:Replace("[DOMICILIO]",cDomicilio)
............
¿Existe la posibilidad de hacer lo mismo con un fichero RTF? Pues necesito tener accesible el fichero para poder editar/modificar desde el programa, supongo que con la clase TRichEdit. ¿ Se haría la fusión con la clase TRichEdit ? Nunca tuve la necesidad de usarla y la desconozco.

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Fusión de datos con fichero RTF
Posted: Fri Feb 24, 2012 10:46 PM

Manuel yo lo hago con una plantilla .HTM y la abro con Word

Aqui parte de la plantilla que tambien puede tener imagenes
[FECHA]

V-001/11

Señores

[EMPRESA]
Atn.: [CONTACTO]
Presente.-

Estimados Señores,

Code (fw): Select all Collapse

*Abre la plantilla
Static Function Plantilla()
    oWord:=TOleAuto():New( "Word.Application" )
    cPlantilla:=cPath+"PLANTILLA.HTM"
    oWord:Documents:Open(cPlantilla) ;oWord:Visible:= .T.;oWnd:Minimize()
    oWord:= NIL
Return Nil
*La fusion
Static Function Fusion()
   cViaP:=cPath+"CARTA.HTM"
   cXMLFile:= cPath+"PLANTILLA.HTM"
     cHTMFile = MemoRead( cXMLFile )
     cHTMFile:= STRTRAN(cHTMFile, "[FECHA]",FecActual(DATE()))
     cHTMFile:= STRTRAN(cHTMFile, "[EMPRESA]",UPPER(TRFS->EMPRESA))
     cHTMFile:= STRTRAN(cHTMFile, "[CONTACTO]",UPPER(TRFS->CONTACTO))
      memowrit(cViaP, cHTMFile,.f.  )
Return Nil
El resultado será CARTA.HTM el cual se puede mandar en el cuerpo de un correo.

Espero te ayude

Saludos,

Adhemar

Saludos,

Adhemar C.

FiveTech Support Forums

Continue the discussion