Problemas con Tword y Campos Memo

Post Reply
maecmx
Posts: 19
Joined: Fri Nov 11, 2005 8:12 pm
Location: Guadalajara, Jalisco Mexico
Contact:

Problemas con Tword y Campos Memo

Post by maecmx »

Todo me funciona correctamente mientras no utilice un campo Memo.

Mi problema es al querer incluir un campo memo a la clase de Tword pero cuando creo una base con campos memos me marca error al querer abrir la base.

Alguien esta utilizando Tword y campos memos.

STAT FUNC Imp_Carta(vCar)
local cArchivo
local cModelo, oWord, nCarta

oDTab:=Open_Dbf("BONOCAR" )
IF (oDTab)->(DbSeek(vCar))
nCarta :=ALLTRIM((oDTab)->nCarta)
EndIf
Close_Dbf("BONOCAR",oDTab)
cModelo := ALLTRIM(cruta+'CARTAS\'+nCarta)
cArchivo := ALLTRIM(cruta+"GENONO.DBF")

// inicia OLE com Word
oWord := TWord():New() // inicia o objeto OLE Word
oWord:OpenDoc( cModelo ) // abre o documento modelo
oWord:OpenDataSource( cArchivo ) // abre o data source (contrato.dbf)
oWord:oMailMerge:Invoke( "Execute" ) // executa a funcao do Word de mala direta
oWord:Visualizar() // visualiza o documento

RETURN (NIL)

¿alguna sugeremcia?

Mil Gracias.

Saludos
Post Reply