Page 1 of 1

Problemas con Tword y Campos Memo

Posted: Tue Jun 26, 2007 7:02 pm
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